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Vorwort 

Was dürfen Sie von diesem Buch erwarten? Mit Hilfe der Kommentare 
sollte es Ihnen möglich sein, die wichtigsten Abläufe und Funktionen im 
Betriebssystem und im Basic zu verstehen. Eine Vielzahl von Informatio- 
nen, zum Beispiel die Syntax bei Basic-Anweisungen oder die Angabe der 
verwendeten Register, soll Sie dabei unterstützen. Die stack-orientierte 
Darstellung (das Ein- und Ausrücken bei Push- und Pop-Befehlen) macht 
die Programme lesbarer und betont die Stellen des Programms, an denen 
echte Aktionen stattfinden. Die bei jeder Routine angegebenen Referenz- 
adressen ermöglichen es, das Programm auch nach rückwärts zu verfol- 
gen. 

Dieses Buch kann und soll weder ein Handbuch noch eine Hardware- 
Beschreibung ersetzen. Bei der Komplexität der Zusammenhänge ist es 
ohnehin ratsam, so viele Informationsquellen wie nur möglich zu Rate zu 
ziehen. 

Ich hoffe, daß es mir gelingt, Ihnen mehr als ein freudiges Aha’ zu 
entlocken! 
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Wie es dazu kam 

Als ich im November 1984 den in zwei Kartons verpackten Kleincom- 
puter aus dem Kaufhaus nach Hause trug, wußte ich noch nicht so genau, 
was ich da gekauft hatte. Ich dachte eigentlich zunächst nur an das, was 
man sehen konnte: Ein Computer mit Tastatur und Bildschirm, grün, bei 
dem man nach den Prospektangaben die Tastaturbelegung und sogar ein- 
zelne Zeichen selbst definieren kann. Angenehm und kaufentscheidend 
waren die Zehnertastatur und die Cursor-Tasten (und natürlich der Preis). 
Für den vorgesehenen Zweck, als intelligentes Erfassungsterminal, glaubte 
ich es allemal gut einsetzen zu können. Zur Datenspeicherung war ich zwar 
Besseres gewohnt, doch dachte ich, zunächst tut’s der ohnehin bereits ein- 
gebaute Cassettenrecorder auch - und - die Floppy soll janoch kommen. Zu 
Hause machte ich mich erst einmal mit dem recht umfangreichen Hand- 
buch vertraut, probierte ein paar Beispiele und mein Erstaunen und mein 
Respekt vor diesem kleinen Gerät wuchs von Stunde zu Stunde. Dabei war 
es nicht einmal der Sound oder die Grafik; was mich faszinierte, war das 
ganz 'normale’ Basic, die langen Variablennamen, die Möglichkeit, in Basic 
Multitasking’ zu veranstalten, Tasten zu belegen, Zeichen zu definieren 
und eine Reihe von weiteren Details, auf die ich gerne noch eingehen 
werde. . 

Schließlich wollte ich es dann ganz genau wissen. Ich versuchte am 
nächsten Tag - leider vergeblich - die im Handbuch erwähnte Hardware- 
Beschreibung zu erhalten. So begnügte ich mich zunächst mit ’Tips & 
Tricks’ aus dem Hause Data-Becker-Verlag. 

An dieser Stelle sei - in aller Bescheidenheit - erwähnt, daß ich bereits 
fast zehn Jahre Erfahrung mit Basic, Fortran und Assembler auf einem 
Mini (einer NOVA2 von Data General) habe und vor ein paar Jahren auch 
Basic und Assembler aufeinem CBM 8032 programmiert habe. Vom Z80 
(oder 8080) hatte ich jedoch noch keine Ahnung. Doch dank Rodnay Zaks’ 
hervorragendem Handbuch aus dem Sybex Verlag konnte auch diese Wis- 
senslücke bald geschlossen werden. 

Doch nun ging's ans Innenleben. Als Programmierer möchte man na- 
türlich wissen, wo liegt das Basic, wo werden die Variablen gespeichert, 
wo liegen die Informationen, die beim 6502 in der Page Zero liegen, wo 
sind die Zeichen definiert, wo die Daten über die Tastaturbelegung, welche 
Bereiche und Adressen werden vom Betriebssystem und vom Basic belegt 
oder welche stehen für eigene Zwecke zur Verfügung. Von meiner NOVA 
und vom CBM war ich es gewohnt, vorhandene Routinen zu nutzen, so lag 
der Wunsch nahe, dies auch beim CPC464 zu tun. 


huslik, cpc464 inside out 0.7 


Zunächst wurde mal ein einfacher Hexdump erzeugt, um vielleicht 
schon an den enthaltenen lesbaren Texten "etwas zu erkennen’. Die unbe- 
friedigende Erkenntnis, wo die wenigen lesbaren Texte lagen, führte sehr 
schnell dazu, aus dem Hexmonitor einen richtigen Disassembler zu entwik- 
keln. Dies war die Gelegenheit, den, aus der Bit-Ebene gesehen, recht holp- 
rigen Befehlssatz des Z80 genau kennenzulernen. 

So wichen die vielleicht 50 Seiten Hexdump zunächst ca. 250 Seiten 
Z80-Code, natürlich ohne Kommentare und mit all den Ungereimtheiten 
die daraus resultieren, daß man ja wirklich noch keine Ahnung hat, wo 
Daten stehen, oder wie manche Unterroutinen ihre Parameter erhalten. 
Freilich mußte auch der Versuch, sozusagen von Adresse Null ausgehend, 
nachzuvollziehen, "was er denn so macht’ und dabei Kommentare in das 
Listing zu schreiben, als völlig aussichtslos aufgegeben werden, vor allem 
deshalb, weil man bei den immer weiter verschachtelten Unterprogramm- 
aufrufen bald nicht mehr weiß, wo vorne und hinten ist. 

So ging ich dann die Sache von drei Seiten her gleichzeitig an. Einmal 
versuchte ich, den Sinn kleiner einfach gestalteter Unterroutinen zu ent- 
schlüsseln (das nennt man "bottom up’), zum anderen hoffte ich vom Basic 
her, dessen Kommandos und Funktionen noch relativ leicht zu lokalisieren 
waren, die Verwendung der Sprunglisten und Betriebssystem-Routinen zu 
erkennen. Natürlich hatte ich auch eine - zugegebenermaßen zunächst 
noch etwas nebelhafte - Vorstellung von dem, was in so einem Rechner 
notwendigerweise ablaufen muß. Und irgendwie und irgendwo mußte das 
auch ablaufen (bekannt unter dem Begriff "top down’). 

Schließlich konnte ich mir dann von England die hier noch nichterhält- 
liche Hardware-Beschreibung beschaffen (inzwischen ist auch die deutsche 
Übersetzung der Firmware-Beschreibung erschienen und wird dringend 
als Arbeitsunterlage empfohlen), die dem immer noch mageren Gerippe 
schon etwas Fleisch verschaffte. 

Nicht, daß Sie jetzt aber glauben, mit dem Handbuch wäre das Listing 
bereits komplett! Die ca. 200 Einsprung-Adressen gaben dem ganzen zwar 
einen gewissen Halt, doch waren diese im Vergleich zu den jetzt weit über 
6000 Kommentarzeilen und Einzelanweisungen nur ein bescheidener An- 
fang, und was das Basic betrifft, so ist darüber nichts in der Firmware- 
Beschreibung enthalten. 

Wenn also die normalen Methoden nicht halfen, mußte eine bessere 
gefunden werden. Der Disassembler wurde nun so aufgebaut, daß er wäh- 
rend des Ablaufs die Erkenntnisse’ über eine bestimmte Speicherstelle oder 
Routine automatisch dann einbaut, wenn auf diese Bezug genommen 
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wird. Die ’Erkenntnisse’ standen nun zunächst in Data-Anweisungen. Im- 
mer neue Erkenntnisse führten aber bald dazu, daß der Platz im Speicher 
nicht mehr ausreichte. Und so war ich gezwungen, den Disassembler mit 
allen Erkenntnissen samt ROM-Inhalt auf meine NOVA mit einem Ma- 
gnetplattensystem zu übertragen. Die Übertragung klappte auch ganz gut, 
nachdem ich eine ohnehin nicht mehr benutzte Streifenleser-Schnittstelle 
meiner NOVA zum parallelen Eingang umgebaut und mit dem Drucker- 
Ausgang des CPC464 verbunden hatte. Der in Basic vorhandene Disas- 
sembler wurde nochmal neu in FORTRAN geschrieben. Für die Ausgabe 
in Hex war noch eine kleine Assembler-Routine notwendig. Bis alles wie- 
der so richtig lief, waren zwar weitere zwei Wochen vergangen, doch nun 
ging es zügig voran nach dem Schema: Listing ausdrucken (die ’Erkennt- 
nisse’ und ’?? Vermutungen ??', die in einer eigenen Datei abgelegt waren, 
fügte der Disassembler bereits ein), Durcharbeiten des Listings und wieder 
neue Kommentare anmerken, die neuen Erkenntnisse wieder eintippen, 
Vermutungen berichtigen, und wieder ein neues Listing ausdrucken usw. 
Immer neue Anforderungen kamen auf den Disassembler zu: Ab einer 
bestimmten Adresse im Byte-Format ausgeben, dann wieder Z80-Code, 
nun folgen Adressen, Tabellen, Basic-Token, Ascii-Zeichen, Fünf-Byte- 
Real-Zahlen. Zuletzt mußte auch die Ausgabe noch elegant formatiert wer- 
den: Variable Seitenlängen, lebende Kolumnentitel, Seitennumerierung 
und Seitenumbruch. 

Heute möchte ich sagen, daß etwa ein Drittel der Zeit für den Disassem- 
bler, ein Drittel für das Studium des Listings und den Rest mit reinen 
Schreibarbeiten draufging. Rund 10.000 Blatt Papier wurden bedruckt, 15 
Farbbänder verschlissen und ungezählte Nächte über den Listings und am 
Bildschirm verbracht. 

Hier muß ich anmerken, daß ich wohl kaum mehr über den CPC464 
geschrieben hätte, wäre mir nicht schon bald klar gewesen, welches her- 
vorragende Konzept hier realisiert wurde. Die Tragweite dieser Entwick- 
lung wird einem, so glaube ich, erst bewußt, wenn man sich mit dem Detail 
beschäftigt. Dies und der Umstand, daß es noch keine anderweitigen Infor- 
mationsmöglichkeiten gab, ließen mich den Entschluß fassen, diese gesam- 
melten Informationen als Buch herauszugeben, um auch anderen Interes- 
sierten die Möglichkeit zu geben, den CPC besser kennenzulernen und zu 
nutzen. Ich hoffe, daß das Buch jetzt zum richtigen Zeitpunkt erschienen ist 
und daß der Stilsowie die Aufmachung des Buches angenommen wird. Es 
ist mir natürlich bewußt - und jeder, der sich schon einmal mit der Analyse 
eines Programms beschäftigt hat, wird dies gerne zugeben -, daß man ein 
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Programm dieses Umfangs nicht in drei Monaten bis ins letzte Detail be- 
schreiben kann. Aus diesem Grunde habe ich die mir weniger vordringlich 
erscheinenden Bereiche, wie Cassettenoperationen und Sound, nur ge- 
streift, dafür aber die Verwaltung der Variablen und Interpretationen des 
Basic-Programms ausführlich mit Kommentaren versehen. 

In der Firmware-Beschreibung war leider nichts über die im Betriebs- 
system vorhandenen arithmetischen Routinen enthalten. Soweit die Funk- 
tion klar zu erkennen war, (etwa aus der Art, wie das Basic diese verwen- 
det), wurden die Bezeichnungen angegeben, in Zweifelsfällen habe ich die 
für Vermutungen verwendeten ’??’ stehen lassen; diese Angaben sind dann 
ohne Gewähr. Weitere Ausarbeitungen bleiben einer künftigen Auflage 
vorbehalten, wobei ich für Anregungen, Kommentare und Meinungen 
dankbar bin. Die am Ende mitgehefteten Bögen können sie für Ihre Mittei- 
lungen verwenden. 

Vielleicht sind Sie enttäuscht, daß die Kommentare im Listing englisch 
abgefaßt sind, doch werden Sie beim Lesen selbst feststellen, daß Sie die 
Texte nicht zu übersetzen brauchen, da diese nur aus Worten bestehen, die 
dem normalen Jargon der Programmierer entnommen sind. Meine ersten 
Versuche, deutsche Kommentare anzubringen, gab ich schnell wieder auf, 
weil es mir einfach nicht gelingen wollte, mit wenigen Worten das Ent- 
scheidende treffend auszudrücken. Einige Begriffe, die vielleicht nicht so 
geläufig sind, habe ich im Anhang als kleines Wörterbuch zusammenge- 
faßt. 


Augsburg, im Februar 1985 


Winfried Huslik 
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Das Betriebssystem des CPC464 

Wenn man einmal davon absieht, daß es nur eine einzige Interrupt- 
Quelle gibt, nämlich den Time-Interrupt alle 1/300 Sekunden, könnte man 
glatt von einem Mainfraim im Kompaktformat sprechen; jedenfalls dürfte 
das hier verwirklichte Konzept der Event-Verarbeitung einmalig sein für 
einen Rechner dieser Größenordnung. 

Das Betriebssystem besticht durch seine klare Gliederung, sowohl was 
die Handhabung der Hardware betrifft, als auch die verschiedenen Steue- 
rungsebenen. Als Beispiel mag hier die Tastatureingabe dienen. Während 
aufder untersten Ebene die Tastatur abgefragt, entprellt und ein Bit für eine 
gedrückte Taste gesetzt wird, wird auf der zweiten Ebene eine Tastennum- 
mer übergeben und aufder dritten Ebene die Tastennummer inein Zeichen 
entsprechend den Tabellen für Normal-, Shift- und Control-Codes umge- 
wandelt. Darüber wird, falls es sich bei dem von der dritten Ebene überge- 
benen Zeichen um ein Key-Token handelt (eine von 32 möglichen Funk- 
tionstasten), dieses zu einem String expandiert. 

Aufeiner noch höheren Ebene (es muß nicht notwendigerweise Num- 
mer fünf sein) steht schließlich eine komplette Editier-Funktion zur Verfü- 
gung, die außer der Tastatur den Tastatur-Puffer, die Bearbeitung der Cur- 
sor-Steuertasten übernimmt und dabei gleichzeitig die Lage und Größe 
eines angesprochenen Bildschirmfensters berücksichtigt. 

Über eine Sprungtabelle im RAM ab B900 stehen insgesamt 263 Ein- 
sprungadressen für Systemroutinen zur Verfügung. Diese werden beim 
System-Reset ins RAM kopiert und sind auch nur dort funktionsfähig. 
Deshalb wurde auch die Dekodierung nicht im unteren ROM vorgenom- 
men, sondern im RAM, wo sie tatsächlich benutzt werden. 
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0.12 


Das RAM des CPC464 


C000 Screen Memory 
BFOO 
BEOO 
BDCD 
BDA3 
BD3D 
BD13 
BCC8 
BCA7 
BC65 
BBFF 
BBBA 
BB4E 
BB00 
B900 
BSE4 
BSDC 
B800 
B550 
B34C 
B328 
B20C 
BIC8 
B100 
B0C2 
AESB 
ADB2 
AC44 
ACIC 
AC0O 
AB80?? 
279? Memory Pool used for: 

User Symbols 

1/O Buffers 

String Data 

Indexed Variables 

Variables 
0170 Basic Program 
0040 
0000 
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Zugriff auf ROM und RAM 

Eines der wichtigsten Dinge, über die man sich als Programmierer im 
Klaren sein muß, ist die Art und Weise, wie man auf ROM oder RAM 
zugreiftoder wieman dieim ROM oder RAM befindlichen Routinen nutzt. 
Mit PEEK und POKE im Basic treffen Sie immer nur ins RAM. Wenn Sie 
aber eigene Maschinenroutinen einsetzen wollen, haben Sie es mit ROM- 
Select, ROM-Disable und ROM-Enable zu tun. 

Grundsätzlich gilt fogendes: Schreibzugriffe beziehen sich immer auf's 
RAM, gleichgültig, welches ROM selectiert oder enabled wurde. Bei allen 
Lesezugriffen, hierzu zählt auch die Ausführung eines im ROM oder RAM 
gelegenen Programms, hat das ROM Vorrang, sofern es vorhanden und 
enabled ist. Der mittlere RAM-Bereich von 4000 bis BFFF, der ja von 
keinem ROM überlagert ist, kann jedoch immer beschrieben oder gelesen 
werden, unabhängig von der ROM-Selection. Das ist auch der Grund, 
warum sich die Einsprungadressen für die Betriebssystemroutinen, die 
ROM-Selections-Logik, die Interrrupt-Behandlung, die Bildschirm-Aus- 
gabe, sämtliche Basic- und Betriebssystem-Parameter wie Tastaturbele- 
gung oder Tastaturpuffer, Ein-/ Ausgabepuffer, in diesem Bereich befin- 
den. (Siehe gelbe Seiten.) 

Beachten Sie, daß sich ROM-Select immer nur auf das obere ROM (ab 
C000) bezieht, während ROM-Enable/Disable sowohl das untere als auch 
das obere ROM unabhängig voneinander ein- oder ausschalten kann. Las- 
sen Sie sich nicht dadurch verwirren, daß ROM-Select und ROM-Enable/ 
Disable im gleichen Byte oder Register übergeben werden. Werte von 00 
bis FB wählen das entsprechende (obere) ROM, enablen es und disablen das 
untere ROM. (Man verzeihe mir, besonders hier, mein schlechtes Deutsch!) 
Bei Werten von FC bis FF ändert sich nichts an der ROM-Selection, viel- 
mehr werden durch die Bits 0 und | des Wertes die ROMs disabled oder 
enabled. 1BO disables the lower ROM and IBl disables the upper ROM 
(so!). 

Gehen wir davon aus, daß Sie den Bildschirm-Speicher dort lassen wo 
er ist (ab C000) und Ihr Basic-Programm mit verschiedenen Maschinen- 
routinen verbessern oder erweitern wollen. Solange Sie alles selbst strik- 
ken, also keine Routinen aus dem Betriebssystem oder dem Basic einbauen 
wollen, brauchen Sie nichts zu berücksichtigen. Spätestens dann, wenn Sie 
Vorhandenes nutzen wollen (und deshalb haben Sie vielleicht auch dieses 
Buch gekauft), müssen Sie: 
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— Daten, die Sie bearbeiten wollen, in den mittleren RAM-Bereich 
von 4000 bis BFFF bringen, 

—  Betriebssystem-Routinen (damit ist das untere ROM gemeint)nur 
über die vorhandene Sprungliste ansprechen, 

— Routinen in einem oberen ROM (z.B. Basic) mit einem entspre- 
chenden RST 3 ansprechen. 


Studieren Sie am besten die Basic-Routinen, die mit Ihrem Problem 
verwandt sind. Wenn Sie voll in die Programmierung einsteigen wollen, 
werden Sie nicht um die Anschaffung des Firmware-Handbuches und des 
DEVPAC Assembler /Disassembler's herumkommen. Für die ersten Ver- 
suche kommen Sie vielleicht mit den im Anhang abgedruckten Tabellen 
zurecht. 


Indirection — Umleitung 

All das, was man früher bei anderen Rechnern, wenn es überhaupt 
möglich war, mit viel List und Tücke aufpfropfen mußte, ist hier schon 
vorgesehen: Für das Basic sind insgesamt neun verschiedene Umleitungen 
eingebaut. Anstelle des dort normalerweise enthaltenen Codes C9 (ret) 
kann ein Jump zu einer Anwenderroutine eingesetzt werden. Dies ist be- 
sonders zur Fehlerbehandlung oder zur Befehlssatzerweiterung nützlich. 
Man muß davon ausgehen, daß die künftig lieferbaren Hardware-Erweite- 
rungen, wie z.B. ein Floppy-Laufwerk, von dieser Möglichkeit ausgiebig 
Gebrauch machen werden. 


Multitasking 

Ein Begriff, unter dem man sich schwer etwas Konkretes vorstellen 
kann. Der CPC läßt keine Wünsche offen: Es geht sogar mit Basic. Dem 
Assembler-Programmierer stehen Sytemroutinen zur Verfügung, mit de- 
nen man eigene Tasks ‘ein- und ausklinken‘ kann. 
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Das Basic 
Das Basic besteht im wesentlichen aus den folgenden Teilen: 


l. Der Programmeditor 

Er bildet die direkte Schnittstelle zum Anwender. Alles, was über die 
Tastatur eingegeben wird, wird zunächst im Editbuffer gespeichert. Erst 
wenn die Eingabe (mit RETURN) abgeschlossen ist, übernimmt der Line- 
Assembler die weitere Ausführung. 


2. Der Line-Assembler 

hat die Aufgabe, den im Edit-Buffer abgelegten Text in das Basic-For- 
mat zu komprimieren, d.h. Basic-Befehle (Schlüsselwörter) werden in das 
entsprechende Token umgewandelt. Variable werden je nach Typ gekenn- 
zeichnet und Konstantwerte in ein genormtes Format umgewandelt. Der 
CPC464 verwendet zur Zwischenspeicherung den Bereich ab 0040 unter- 
halb des Basic-Programms. Begann die Eingabe mit einer Zeilennummer, 
so wird diese Progammzeile in das Basic-Programm eingebaut. Fehlt die 
Zeilennummer, so werden die Statements unmittelbar vom Interpreter 
ausgeführt. 


3. Der. Basic-Interpreter 

Dieser interpretiert - freilich nach festen Regeln - den kompakten Basic- 
Code und führt die dort enthaltenen Kommandos und Funktionen durch 
Aufrufen der entsprechenden Interpreter-Routinen aus. 


4. Der List-Generator 

Schließlich ist es nicht damit getan, ein Programm einzutippen und 
kompakt abzuspeichern. Genauso wichtig ist es, diese Kompaktform wie- 
der lesbar zu machen, sei es, um sie zeilenweise an den Editor zu übergeben 
für Änderungen oder um als Listing auf Bildschirm oder Drucker ausgege- 
ben zu werden. 
Utilities 

sind Routinen, die mehr oder weniger notwendig oder nützlich sind: 
Hier gibt es von Basic zu Basic die größten Unterschiede. Doch sind es 
gerade diese Feinheiten, die das Arbeiten in Basic zum Vergnügen oder zur 
Qual machen können. Der CPC464 kann sich hier sehen lassen: Alles was 
das Herz begehrt, Chain Merge mit Delete <Zeilenbereich» und «Startzeile,, 
Sound, Windows, Graphic, Key Def, Symbol, Instr, Midstr( =, ja und 
Multitasking! 
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Das Basic des CPC464 


Was ist also nun das Besondere, das Herausragende an diesem Basic? 
Zum einen ist es der erhebliche Umfang der Funktionen und Befehle, zum 
anderen istesseine Geschwindigkeit. Wenn beieinem Benchmark-Test der 
CPC erheblich schneller arbeitet als vergleichbare Produkte, so kann dies 
verschiedene Ursachen haben: Der Prozessortyp, die Taktfrequenz und die 
Raffinesse des Programms. Ich will hier nicht 6502 oder 6510 gegen Z80 
abwägen, doch seit ich mich mit dem Z80 befasse, ist er mir allein schon 
von der Anzahl und Art der Register her sowie der Vielfalt der zur Verfü- 
gung stehenden Befehle sympatischer. Doch nicht der Prozessor, sondern 
die Software ist hier das Entscheidende. 

Wenn wir auf die oben erwähnte Unterteilung der verschiedenen Ba- 
sic-Funktionen zurückkommen, so befindet sich dort nur ein Abschnitt, 
der zeitkritisch ist: Der Interpreter. Nicht ohne Grund steht Basic in dem 
(Ver-)Ruf, ca. 20 bis 1000 mal langsamer zu sein als ein vergleichbares 
Maschinenprogramm. Die Begründung liegt auf der Hand: Weil der Inter- 
preter die Programmzeile ja erst einmal umwandeln muß, um zu sehen, 
waser womit machen soll. Je leichter man also dem Interpreter das Erken- 
nen seiner Aufgabe macht, desto schneller wird er schließlich, und genau 
hier setzt die Raffinesse des CPC-Basic ein. Der Interpreter wurde (fast) 
vollständig von allen zeitaufwendigen Routinen, wie z.B. Zahlenumwand- 
lung, Variablen suchen usw. entlastet. 

Ein Byte kann, wie wir wissen, Werte von 0 bis 255 oder hex 00 bis FF 
annehmen. Doch erst die Vereinbarung über die Bedeutung des Inhalts gibt 
dem Byte seinen Sinn. Im Anhang sind die 255 Bytes mit ihren möglichen 
Bedeutungen für den CPC464 aufgelistet. 

Eine der angenehmen Eigenschaften des CPC ist, daß er intern wie 
extern den Ascii-Code zur Textdarstellung verwendet. Das erspart schon 
einmal zeitraubende Umwandlungen bei der Ein- und Ausgabe und er- 
möglicht den problemlosen Anschluß von Druckern mit Centronics- 
Schnittstelle. Doch hier gleich einen Wermutstropfen vorneweg: die einge- 
baute Druckerschnittstelle liefert nur sieben Datenbits, das achte wurde als 
Strobe verwendet. Für den Normalbetrieb spielt das zwar keine Rolle, doch 
wenn man Grafiken ausdrucken möchte fehlt es einfach. 

Wenn man die Ascii-Tabelle betrachtet, so stellt man fest, daß nur 
sieben Bit verwendet werden. Das achte Bit wird, neben der eben erwähn- 
ten Graphic-Steuerung von Druckern, gelegentlich als Parity-Bit verwen- 
det, was aber nur bei der bit-seriellen Datenübertragung, möglicherweise 
über Telefonleitung, eine Rolle spielt. Bei den heute üblicherweise kurzen 
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und sicheren Datenübertragungswegen vom Rechner zum Drucker oder 
Bildschirm-Terminal bleibt es jedoch meist unberücksichtigt. (Außerdem 
muß man es extra erzeugen und auch noch prüfen. Dieser Hard- oder 
Software-Aufwand wird gerne eingespart.) Von den unterhalb von hex 20 
liegenden Kontrollzeichen sind die bekanntesten CR, LF, BS, TAB und 
ESC. Für den Basic-Interpreter haben jedoch die Zeichen von 00bis IFeine 
völlig andere Bedeutung. Wegen der Wichtigkeit für das Verständnis des 
Aufbaus einer Basic-Zeile sei hier die Tabelle gleich eingefügt. 


00 <line end> 10 <const 2> 

01 <statement end> ll <const 3> 

02 <integer VAR?> 12 <const 4> 

03 «string VAR$> 13 <const 5> 

04 <real VAR!> l4 <const 6> 

05 <FAC real> 15 <const 7> 

06 16 <const 8> 

07 17 <const 9> 

08 18 

09 <allow for spaces> 19 <next 1 byte VAL> 
0A lA <next 2 byte VAL> 
0B <integer var> lB <next 2 byte BIN> 
0C <string var> IC <next 2 byte HEX> 
0D <real var> 1lD <next 2 byte ADDRESS> 
0E <const 0> lE <next 2 byte LINE# 
OF <const 1> lF <next 5 byte REAL> 


10 REM Analyse 

20 GOSUB 160 

50 FOR iii=&40 TO HIMEM STEP 16 

60 MID$(pri,1,77)=SPACE$(77):MID$(pri,1,4)=HEX$ (111,4) 

70 FOR jjj=0 TO 15 

80 kkk=PEEK(i1i+jjj):mmm=kkk AND 127:IF mmm<&20 OR mmm=127 THEN mmm=46:’. 
90 MID$(pri,(56+jjj),1)=CHR$ (mmm) 

100 MID$ (pri, (jjj*3+1)+6,4)=FNxxx(kkk) :NEXT jjj 

110 IF MID$(1pri$,5)<>MID$(pri,5) GOTO 140 

120 IF flag%=0 THEN PRINT#ch," *kk':f]ag%=1:G0TO 150 ELSE 150 
140 MID$(1pri$,1,77)=pri:PRINT#ch,pri:flag%=0 

150 NEXT:CLOSEOUT :END 

160 DEFINT c,1-m:DEFSTR p,s-z:MODE 2:ch=8 

170 DIM array(3,4):array(3,4)=SQR(PI):xlotto!=13983816 

180 DEF FN xxx(jj)=HEX$(jj,2) 

185 pri=SPACE$(77):1pri$=pri 

190 RETURN 
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Dies soll ein Programm sein, das einerseits den gesamten Speicher- 
bereich des CP464 ausdruckt, zum anderen sollten möglichst viele Com- 
mandotypen und Variablenarten verwendet werden, um deren Aufbau zu 
beschreiben. Wundern Sie sich auch bitte nicht über die etwas ungewöhn- 
liche Art der Zuweisung »MIDstr(pri,1,77)=SPACEstr(77)«, diese soll 
nur verhindern, daß der Speicher mit immer neuen Strings belegt wird(und 
natürlich findet auch kein Garbage Collect statt). Die Variablennamen 
wurden so gewählt, daß sie auch im Hexdump deutlich zu erkennen sind. 
Soll die Ausgabe auf den Bildschirm erfolgen, ändern Sie in Zeile 160: 
ch=0. Die Zeile 170 ist überflüssig. 

Wenn Sie bei eigenen Versuchen das Programm ändern, laufen lassen 
und wieder ändern, sieht der Speicher nicht mehr so aufgeräumt aus. Sie 
sollten dann das Programm sichern, den Rechner zurücksetzen und das 
Programm von der Cassette starten. 

So wurde es auch hier gemacht. Das erkennt man gleich ab Adresse 
0040. Dort legt der Line-Assembler eine Basic-Zeile ab, bevor diese ins 
Programm eingebaut oder als Direct Command gleich ausgeführt wird. 
CA ist das Token für RUN, dann folgt das Anführungszeichen und der 
Programmname. Haben Sie das Programm geändert, so steht die zuletzt 
geänderte Zeile in diesem Bereich, allerdings sind die ersten Bytes immer 
mit CA 00 00 00 00 überschrieben, wenn sie das Programm starten. 

Betrachten wir nun den Speicherbereich ab 0170. Eine Programmzeile 
ist nach folgendem Schema aufgebaut: 


«Länge» «Zeilennummer) «Statement(s), «Endezeichen» 


Die Länge besteht aus zwei Bytes und dient zur Errechnung der 
Adresse der nächsten Zeile. Die Zeilennummer wird ebenfalls mit zwei 
Bytes dargestellt (immer niederwertiges Byte zuerst). Ein Statement ver- 
steht sich einschließlich der eventuell erforderlichen Parameter. Mehrere 
Statements in einer Zeile sind durch ein Trennzeichen (:) Ol voneinander 
getrennt. Das Ende einer Basic-Zeile wird intern duch 00 markiert. Das 
Ende des Basic-Programms wird durch eine neue Zeile mit der Länge 0000 
gekennzeichnet. Die Zuweisung an eine Variable nimmt eine Sonderstel- 
lung ein, weil es das einzige Statement ist, das nicht mit einem Token 
beginnt (wenngleich LET aus Kompatibilitätsgründen zugelassen ist). 

Unsere erste Zeile hat die Länge 000E und die Zeilennummer 000A 
(10.). Zumleichteren Auffinden der Zeilenanfänge sind diese im Hexdump 
unterstrichen. Als erstes Token erscheint nun C5 für REM und anschlie- 
Bend der Text dazu, abgeschlossen durch 00. 
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0050 
E22, 
0170 
0180 = n be] 20 1D 43 03 
0190 


72 EI 2C OF 
E9 ac 12 29 
a 0 
EF 
EA 
20 
20 
20 
00 
OD 
00 
72 
14 
6B 
6E 
F2 
05 
EF 
20 
EF 
34 
19 
63 
E7 
AO 


54 
AC 03 00 
00 


2E 00 00 00 
“U 010) 


2.23 


2.2.2 
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00 1ÄB 00 
28 0C 


12 29 
00 14 00 


20 [Ec] 20 19 oF 


FF 12 28 
29 Ol OB 
FA 20 19 
00 20 FC 
OB 58 00 


5A_00 AC 


42 00 6A 
6D 6D ED 
EI 2C 28 
2C 12 29 
6B EB 29 
00 Al 20 
AC 28 0C 
03 00 3D 
0E 20 EB 
20 20 20 
OF O1 AO 


00 _8C_00 


4D 29 EF 
E8 2C 0C 
EF OE 00 
00 8E 20 


7A Ol AD 20 10 

AA 00 93 20 OD 
29 01 OD OB 00 
FF 18 28 FF 44 
EF IF 00 48 60 
Oc IC 00 78 78 
28 0D 00 00 6A 
00 70 72 E9 EF 
70 72 E9 EF 0C 


00 00_00) 00 
F 00 


00 


CA 22 64 65 6D 6F 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


0E_00 0A 00 [65] 20 41 6E 61 6C 79 73 65 00 0A_00 


00 [9E]) 20 on 37 


69 #9 [Er] ıc 40 00 20 [ec] 20 | eh? 20 [ee] 20 


35 00 3c 00 [ac] 


4D 29 [EFJ[FFHI6) 28 19 


Pr 00 


46 


2C 
oc 
37 


0D 
58 
3 
20 
6D 
28 
6A 
29 
0D 
EF 
ol 
AC 
24 
00 
20 
2A 
20 
AC 
oc 
24 
OA 
63 


29 2C 
38 _00 64 00 


OF 29 
00 
oc 
20 
03 
70 
00 
23 
2A 
39 
03 
00 


6A 
00 
42 
00 
EI 
20 
06 
ol 
20 
00 
72 
1%) 
BO 


EA 
78 
00 
6C 
2C 


24 00 70 72 
00 143 CB] 

48 60 55 98 00 
4D 2F A6 00 


60_52 c9| 
69 4D E2 A5 00 00149 49 c9| 69) 00 
00 00 04 8B 00 OO 4A 4A CAIOY) 
004B 4B cBIO4) 00 00.00 00 00 00 00L4N 4D cDI 6) 
Wh 4c 41 c7lO1) 00 00 00 001AL 52 52 
69 00 02 05 00 04 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


00 00 00 50 84 00 


00 00 00 00 00 00 00 00 00 8E C4 DF 62 81 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


I"demoscoeccceen 


DEeKEE EEE 


"...E Analyse... 
eCosee2ee .7 
-iillo.d. 1 .B £ 
o..5.<.,(.$.pri, 
.,.M)o..(.M).,(. 
$.pri,.,.)o.Ss(.7 
lllye)eeeFee .B 
.3jjo- 1 ...Y.P. 
«M.kkko..(.7.iii 
t.B.jjj). .X.mmmo 
«M.kkk zZ se. «X 
.mmmg. » | .X.mm 
mo.. k .X.mmmo.. 
..@..°.2.,(.$.pr 
1,(.8t.B.jjj),.») 
0..(.X.mmn).d.d. 
»(.$.pri,(-Bejjj 
Vete)te,.)od.ee.x 
xx(.M.kkk).O .B» 
Jjj-K.n.! „(esel 
Be (.$.pri, 
ee meXel . 


a.flago. k tb... 
ch, " aka, 
a.flago.. .9. » 
Ieheenlensl 
pri,.,.M)o.$.pri 
«t#...ch,.$.pri. 
.arflago......0. 


ee 0 0. c,1l-m 
° PsS-Zem sen e.C 
ho..tc%.. ...arr 


ay(e,.)....array 
(.5.)0..(.D).... 
xlottoo..H'U..". 
hee d e0eXXX(ee. 
jj)o.s(...jj,.)- 
1.9..$.prio..(.M 
)e...lprio.$.pri 
ee ?>elr....CHie. 
..XLOTTO..H'U... 
XXXB, + «PRI.M/&. 
«LPRI.Mb%. .III.. 
ern JJJereePee 
«KKK.o.00...MMM. 
een .FLAG.....ARR 
AYelococreruenese 


SaskienesiD- bei 


DERHEKLERZEREENENT 


0.19 


A550 20 20 30 30 20 30 30 20 30 30 20 30 30 20 30 30 00 00 00 00 00 
A560 20 33 30 20 33 30 20 32 30 20 33 30 20 33 30 20 30 30 20 30 30 
A570 33 33 20 33 30 20 32 30 20 33 33 20 33 30 20 32 33 30 20 33 30 2 
A580 32 20 20 33 33 20 33 30 20 32 30 20 33 33 20 33 2 33 30 20 33 3 
A590 33 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 33 

A5SADO 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 


A5SDO 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41. 35 AS 
A5SEO 45 35 41 35 44 30 20 20 32 30 20 32 30 20 32 30 E5A5DO 20 20 20 
A5SFO 20 33 35 20 34 34 20 33 30 20 32 30 20 32 30 20 35 44 30 20 20 
A600 33 30 20 32 30 20 33 32 20 33 30 20 32 30 20 33 30 20 32 30 20 3 
A610 30 20 32 30 20 33 33 20 20 33 30 20 32 30 20 33 0 20 33 30 20 3 


A620 20 20 33 30 20 32 30 20 33 20 20 20 20 20 20 41 30 20 3 A 
A630 36 33 30 20 20 33 36 20 33 33 20 33 30 20 32 30 630 36 33 30 20 
A640 20 20 20 20 20 20 20 32 30 20 33 32 20 33 30 20 20 32 30 

A650 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2 


A660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 
A670 20 20 20 20 20 20 20 20 20 20 20 20 


Die zweite Zeile hat die Länge 000A und die Nummer 0014 (20.). Dann 
folgt das Token 9F für GOSUB undein Blank. Was nun folgt, unterscheidet 
den CPC464 wesentlich von anderen Basic-Rechnern. Eine Zeilennumer 
160 ist hier nicht zu finden. Stattdessen hat der Rechner (beim ersten 
Durchgang heimlich) die Zeilennummer gegen die tatsächliche Speichera- 
dresse ausgetauscht und muß nun künftig nie mehr nach dieser Nummer 
suchen. Gleichzeitig wurde auch das Kennzeichen IE (Zeilennummer) in 
1D (Adresse) geändert. 

Die dritte Zeile lautet: FOR iii = &40 .... Entsprechend finden wir das 
Token 9E und Blank vor, doch bevor es mit ’iii’ weitergeht, sind da noch 
drei Bytes: OD als Kennzeichen für eine (vordefinierte) Real-Variable und 
0037 als direkter Verweis in die Variablentabelle (deren Beginn wir mit 
PEEK(&AE85) + PEEK(&AE86)*256 erfragen können). Spätestens jetzt 
wird das Prinzip klar, nach dem hier gearbeitet wird: Vermeidung aller 
zeitaufwendigen Arbeiten durch direkten Verweis auf die jeweiligen 
Speicherstellen. Zwar muß die Variable bei Ihrer ersten Verwendung im 
Programm in die Tabelle eingetragen werden, denn beim Programmstart 
stehen anstelle dieses Verweises nur zwei Nullen als Platzhalter, doch spä- 

testens beim zweiten Durchgang kann unmittelbar auf den Inhalt zugegrif- 
fen werden. Taucht eine Variable im Programmtext auf, so wird nur ge- 
prüft, ob der Platzhalter bereits durch einen Tabellenindex ersetzt wurde. 
Nur wenn eine Variable an dieser Stelle für das Programm neu ist, wird sie 


in der Variablentabelle gesucht und der ensprechende Index ins Programm 
eingebaut. 
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Nun folgt der Variablen-Namen. Er muß auf jeden Fall mit einem 
Buchstaben beginnen, darfbis zu 40 Zeichen lang sein und außer Buchsta- 
ben und Ziffern auch Punkte enthalten. Dies ist eine weitere angenehme 
Eigenschaft des CPC-Basic, die es ermöglicht, durch Verwendung selbst- 
erklärender WVariablen-Namen (z.B. lines.to.print, lines.printed, 
page.number), übersichtliche Programme zu schreiben. 

Das Ende des Variablen-Namens wird durch das gesetzte Bit 7 gekenn- 
zeichnet. Besteht der Name nur aus einem Zeichen, ist es bereits dort gesetzt 
und Könnte, wenn Sie mit dem oben angeführten kleinen Basic-Programm 
arbeiten, beim schnellen Hinsehen auch miteinem Token verwechselt wer- 
den. Verwenden Sie daher für Ihre ersten Experimente am besten Varia- 
blen-Namen aus mehreren gleichen Buchstaben, die Sie dann auch in hex- 
Form leicht erkennen können. 

Auf den Variablen-Namen folgt in dem oben beschriebenen Beispiel 
der Zuweisung das Token für ’='. Dieses Token weist den Interpreter an, 
den Wert des nun folgenden Ausdrucks an die Variable (deren Platz inner- 
halb der Tabelle ja bereits bekannt ist) zuzuweisen. In unserem Beispiel 
wird einfach der Wert einer Zahl zugewiesen. (Dies gilt allgemein, bei der 
Zuweisung an eine Laufvariable finden noch andere Vorgänge statt, die 
hier nicht beschrieben sind.) Was nun folgt, sind nicht einfach eine Reihe 
von Ziffern im Ascii-Format, nein, auch hier herrscht Raffinesse, denn die 
Arbeit der Umsetzung hat der Line-Assembler bereits längst erledigt und 
serviert das ganze mundgerecht. Das nächste Byte sagt genau was kommt: 
Eine weitere Variable oder eine Konstante mit genauer Formatangabe. Für 
die Variablen gilt die gleiche Vereinbarung wie oben bereits beschrieben. 
Häufig verwendete Konstante im Bereich von 0 bis 9 sind bereits in diesem 
Byte selbst verschlüsselt, nämlich dann, wenn dieses einen Wert von OE 
(=0)bis 17 (= 9) einnimmt. Das spart Speicherplatz, und nach einfacher 
Subtraktion von 0E steht der Wert zur Weiterverarbeitung bereits zur 
Verfügung. 

19 gibt an, daß das nun folgende Byte die Zahl darstellt, 1A, daß die 
Zahl aus den folgenden zwei Bytes (L,H) besteht, ebenso wie bei IBund IC, 
nur mit dem Unterschied, daß die Zahl im Binär- bzw. Hexadezimal-For- 
mat eingegeben wurde (und natürlich auch bei der Ausgabe wieder so 
dargestellt wird). ID erklärt die folgenden zwei Bytes eine Adresse sind, IE 
sagt aus, daß die folgenden zwei Bytes eine Zeilennummer darstellen, und 
IF schließlich verweist auf die nun folgenden fünf Bytes im Real-Format. 
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Aber nicht nur die aufbereitete Zahlendarstellung bringt Vorteile, 
mehr noch deren Verarbeitung. Wirdz.B. einer Integer-Variablen ein Inte- 
ger-Wert zugewiesen, so geschieht dies schlicht durch Kopieren von zwei 
Bytes. Dasselbe gilt für die fünf Bytes beider Zuweisung einer Real-Zahlan 
eine Real-Variable oder den drei Bytes bei einer einfachen String-Zuwei- 
sung. Stimmt der Variablen-Typ bei Real und Integer nicht überein, so 
wird zusätzlich intern eine Umwandlung vorgenommen. 

All diese Maßnahmen wirken sich letztlich in einer sehr hohen Verar- 
beitungsgeschwindigkeit aus, Vorverlegung der zeitintensiven Zahlenum- 
wandlungen in die Programmerstellungsphase, direkter Verweis auf den 
Variablen-Tabellen-Eintrag sowie Vorgabe des Verarbeitungsschlüssels. 

In der Basic-Zeile folgt nun entweder 00 als Zeichen für das Zeilenende 
oder O1 als Zeichen für den Doppelpunkt, was heißt, daß weitere State- 
ments folgen können. Bleibt anzumerken: Gleichgültig, ob Sie nun mit 
vordefinierten Variablen-Typen (DEFINT, DEFSTR, DEFREAL) arbei- 
ten oder ob Sie an den Variablen-Namen ‘%‘ oder ‘!' anhängen, ob Sie 
Integer-Zahlen als Dezimal-Ziffern hex oder binär eingeben, Sie belegen 
immer den gleich viel Speicherplatz, nur optisch beim Auflisten der Pro- 
gramme belegen die Zeichen ‘'%, !, &' eine Druckstelle. 

Etwas Gutes hat das Anhängsel aber doch, wenn Sie mit Bytes geizen 
müssen (und es nicht auf die Lesbarkeit des Programms ankommt): Das 
Anhänsel ersetzt einen Blank nach dem Variablennamen und spart bei 
bestimmten Gelegenheiten ein Byte ein. Beispiele: 


PRINT ali%b!c$ 
IF a%OR b%OR i%THEN 300 
IF a% AND&7F GOTO 300 


Doch Vorsicht: Eine vordefinierte Real-Variable, z.B. i ist manchmal 
auch gleich i%. Zur Veranschaulichung geben Sie bitte folgendes ein: 


NEW 
i=1:1%=2:?1,1% 
DEFINTi:?i,i% ’Merken Sie was? 


Des Rätsels Lösung ist ganz einfach: DEFINT, DEFREAL und 
DEFSTR veranlassen keinerlei Umwandlung im Rechner, es sind nur die 
Anweisungen an den Interpreter, Variablennamen ohne Anhängsel als 
Variable des angegebenen Typs zu betrachten. Es ist gute Praxis, diese 
Definitionen an den Anfang des Programms zu stellen und einen bestimm- 
ten Buchstabenbereich, z.B. I-N (wie in Fortran) grundsätzlich als Integer 
zu deklarieren. 
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Auf den gelben Seiten in diesem Buch sehen wir bei den Adressen 
AETB bis AE89 die verschiedenen Basic-Zeiger. Dabei fällt auf, daß für 
Programm-Ende (AE83) und Beginn der Variablentabelle (AE85) eigene 
Zeiger existieren, die zwar denselben Wert anzeigen, aber nicht anzeigen 
müssen. Das dürfte eine Möglichkeit eröffnen, von der Basic-Programmie- 
rer bislang nur träumten: Unterprogramme mit lokalen Variablen, unab- 
hängig vom Hauptprogramm. Wohlgemerkt, das läuft so noch nicht, doch 
kann es bei entsprechender Basic-Erweiterung möglich werden. 

In unserem Musterprogramm beginnt die Variablentabelle der einfa- 
chen Variablen bei 03E9. Sie ist wie folgt aufgebaut: 


0000 NA ME Type «nhalt 


Bei 0000 handelt es sich wohl um eine Trennungsmarkierung für den 
Namen. Der NAME ist in Großbuchstaben dargestellt und hat im letzten 
Buchstaben das Bit 7 gesetzt. Im Gegensatz zum Programmtext gelten für 
«Type: 


01 Integer 
02 String 
04 Real 


«Type + 1 ergibt die Länge des Inhalts, der sich unmittelbar anschließt (es 
sind nicht grundsätzlich 5 Bytes, wie bei anderen Interpretern). Die drei 
Bytes bei Strings bedeuten: 


«Länge» «Adresse» 


Ist die Länge 00, so hat die Adresse keine Bedeutung. Der String PRI 
(Descriptor bei 040C) liegt bei A62F, also ganz oben. Der String LPRI 
(Descriptor bei 0416) liegt direkt unterhalb, bei A5E2. Von dem gesamten 
Stringbereich sind aber noch weitere 146 Bytes belegt. Dassind zweimal 73 
Bytes aus dem Vergleich in Zeile | 10. Man sieht, daß für diesen Vergleich 
zwei Strings angelegt, aber unmittelbar danach wieder freigegeben wer- 
den. 

Auch Funktions-Namen sind in der Variablentabelle eingetragen. Zur 
Unterscheidung ist bei diesen im «Type» das Bit 6 gesetzt. Auf den Funkti- 
ons-Typ folgt die Adresse, wo die Funktion im Programm definiert ist. In 
unserem Beispiel ist dies 03AC. Diese Adresse zeigt auf die ’(', die an den 
Funktionsnamen im Programm anschließt. Zu beachten ist, daß hier eine 
Stringfunktion definiert wurde, was anderswo keineswegs selbstverständ- 
lich ist. 
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Die dimensionierten (oder indizierten) Variablen werden in einer eige- 
nen Tabelle verwaltet. Der Zeiger auf den Anfang der Tabelle steht in 
AES87, in unserem Beispiel ist dies 044B. Namenseintrag und Varia- 
blentype stimmen mit den einfachen Variablen überein. 


00 00 

NAME 

«Type» 

«Länge des Eintrags» 

«Anzahl der Dimensionen» 

«Anzahl Felder n.te Dimension» 
«Anzahl Felder (n-l)te Dimension 
«Anzahl Felder I. Dimension» 
«Inhalt von (0,0) 

«Inhalt von (0,1) ... (n,0) (n,1) (n,2) 


Die Länge des Eintrags errechnet sich Ausdehnung] * Ausdehnung? * 
Ausdehnung.n * Bytes pro Element + 5 (das sind die zwei Bytes vor dem 
Variablennamen, ein Byte für den Variablentyp und die zwei Bytes, in 
denen die Länge des Eintrags steht). Tatsächlich ist noch die Länge des 
Variablennamens zu addieren, will man den durch die Variable benötigten 
Speicherplatz errechnen. 


Fließkomma-Operationen 

werden hauptsächlich in einem ganz bestimmten Speicherbereich, 
nämlich dem Fließkomma-Akkumulator (FAC) ausgeführt. Fließkomma- 
zahlen werden in einem besonderen Format in fünf aufeinanderfolgenden 
Bytes abgespeichert. Da der FAC aber auch für Integer-Zahlen oder String- 
Zeiger verwendet wird, ist dem FAC ein Byte vorangestellt, das den augen- 
blicklich im FAC enthaltenen Variablen-Typ kennzeichnet. Diese Spei- 
cherstelle ist als VARTYPE bezeichnet. Die möglichen Werte für VAR- 
TYPE sind: 02 für Integer, 03 für String, 05 für Real (Fließkomma). Dieser 
Schlüssel gibt gleichzeitig auch die Anzahl der für eine Operation benötig- 
ten Bytes an. Nachstehendes Schema soll dies verdeutlichen. 
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Real Integer String 


FAC +4: Sign, Exponent 
FAC +3: 
FAC+2: 


AddressH 


FAC+I; AddressL 
FAC: Mantissa, LSB Length 
VARTYPE: 


Das Betriebssystem verwendet an anderer Stelle weitere Fließkomma-Ak- 
kumulatoren FACl, FAC2, FAC3 als Zwischenspeicher bei arithmeti- 
schen Routinen. 

Die arithmetischen Routinen des Systems sind über eine Sprungliste im 
Bereich BD3D bis BDCA anzusprechen. Für Integer- und Real-Berechnun- 
gen stehen jeweils eigene Routinen zur Verfügung. Die Parameter werden 
in Registern übergeben, bei Real-Berechnungen sind die Register Zeiger 
auf die Rechen- oder Ergebnis-Variablen, bei den Integer-Routinen wer- 
den die Werte in den Registern direkt übergeben. 


Beispiel für den Aufruf einer Real-Berechnung: 


varl: equ 8000 ‚any 5 locations above 4000 
var?: equ 8005 ‚any 5 locations above 4000 
mult: equ BD61 ‚Aufruf über Sprungliste 

Id hl,var| ‚pointer to the contents 

ld de,var? ‚pointer to the contents 

call mult 


‚(varl) contains the product 


Beispiel für eine Integer-Berechnung: 


calcmin: ld hi,(secu) ;hole Sekundenwert 
Id de,3C ‚= 60. 
call BDB8 ‚integer division hl = hl/de 
ld (minu),hl ;speichere Ergebnis 
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cpc5 


Hinweis zur Tastatur 

Wenn Sie das laute Klappern der Leertaste stört, umwickeln Sie den 
darunterliegenden Drahtbügel mit ein bis zwei Lagen Isolierband, das hilft. 
(Leider muß man den Rechner dazu zerlegen.) 


Hinweis zum Cassettenrecorder 

Es sind bis jetzt keinerlei Lesefehler aufgetreten, obwohl alles mit der 
Schreibgeschwindigkeit 2 aufgenommen wurde. Es empfiehlt sich, darauf 
zu achten, nach dem Einlesen oder Abspeichern die Stopptaste zu drücken, 
um Verformungen der Andruckwalze zu verhindern. 


Hinweis zum Basic-Handbuch 
Es exisitiert eine Basic-Funktion, die nicht im Handbuch beschrieben 
ist. Vielleicht wurde sie einfach vergessen. Sie lautet: 


0) «variablenname» 


FUNKTION: Gibt die Speicheradresse zurück, an der sich der 
Tabelleneintrag von «variablenname;» befindet. 

Beispiel: 

i=0 ‚Variable muß verwendet worden sein 

PRINT Wi ;Adresse des Tabelleneintrags 


Bei indizierten Variablen erhält man die Adresse des angegebenen Ele- 
ments, bei String-Variablen die Adresse des String-Descriptors, nicht des 
Strings. Der Descriptor besteht aus drei Bytes: String-Länge und String- 
Adresse. Durch Auswertung der String-Adresse kann auch auf den String- 
Inhalt zugegriffen werden. Doch Vorsicht: Nach einem Garbage-Collect 
muß die aktuelle Adresse neu ermittelt werden. 


Unbekannte Funktion? 
Es existiert eine Basic-Funktion, von der ich weder weiß, wie man sie 
richtig aufruft, noch wozu sie eigentlich dient (F8EA): 


DEC$(«num expr),string expr)) 


Leider kam ich bei meinen Experimenten nicht über ’Syntax error’ 
hinaus, obwohl laut Listing auch ’'Improper argument’ vorgesehen ist. 
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Funktion des Disassemblers 

Zum besseren Verständnis des nun folgenden Listings ist es von Vor- 
teil, etwas über die Funktionsweise des zur Erstellung des Listings verwen- 
deten Disassemblers zu wissen. Dieser verwendet im wesentlichen zwei 
Eingangsdateien. Zum ersten einmal die Daten über den ROM- oder RAM- 
Inhalt des CPC464, zum zweiten eine Kommandodatei, die dem Disassem- 
bler sagt, wie er die Speicherinhalte des CPC464 zu interpretieren hat, an 
welcher Stelle welche Überschriften oder Kommentare einzufügen sind, 
wo eine neue Seite zu beginnen ist, welcher Untertitel auf der Seite auszu- 
drucken ist und hatürlich auch, welche von vier verschiedenen Tabellen 
zur Interpretation von Byte-Werten heranzuziehen ist. Aufdiese Komman- 
dodatei wird sowohl sequentiell aufsteigend entsprechend der gerade bear- 
beiteten Adresse alsauch wahlfrei beieinem Verweis aufeine Unterroutine 
oder Speicherstelle irgendwo im CPC-Programm zugegriffen. Auf Grund 
dieser Arbeitsweise werden sofort die Vorteile als auch mögliche Nachteile 
des Verfahrens deutlich. Vorweg die Nachteile: Wurde z.B. wegen 
menschlichen Versagens die an einer bestimmten Stelle eigentlich zu ver- 
wendende Tabelle nicht richtig angegeben, so erscheint natürlich auch im 
Listing ein falscher Kommentar. Dem findigen Leser wird es aber sicher 
nicht schwerfallen, anhand der im Anhang aufgeführten Tabelle die für 
dieses Byte zutreffende Interpretation zu finden. In dieser kann man auch 
gleich feststellen, wodurch sich die einzelnen Tabellen voneinander unter- 
scheiden. 

Dasgleiche trifft natürlich auch für die Kolumnentitel zu; solange kein 
neuer angegeben wurde, gilt immer noch der alte. Am gemeinsten sind 
jedoch die Einzelkommentare: Hat man sich da vertan, erscheint er entwe- 
der überhaupt nicht (weil keine Adresse paßt) oder an einer Stelle, an der er 
nichts verloren hat. 

Doch nun zu den Vorteilen: Der gravierendste Vorteil wird an einem 
Beispiel deutlich: Wurde eine Speicherstelle oder ein Unterprogramm ein- 
mal miteinem Namen versehen, so wird überall dort, wo der Disassembler 
auf diese Speicherstelle zugreift oder das Unterprogramm aufruft, automa- 
tisch dieser Name in der Kommentarzeile eingefügt. Es verstehtsich eigent- 
lich von selbst, daß diese Kommentare nicht einen Assembler-Befehl kom- 
mentieren, sondern das, was dieser Befehl bewirkt. Der Kommentar ergibt 
nur zusammen mit dem Assembler-Befehl seinen Sinn. Das magbei ’CALL 
name’ noch einfach sein, doch dürfen bei ’Id hl,name’ und Id hl,(name)’ 
keine Zweifel entstehen. 
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Unterhalb der Bezeichnung einer Routine oder Speicherstelle sind je- 
weils die Referenzadressen angegeben. Man kann gleich erkennen, in wel- 
cher Form auf die Adresse zugegriffen wird: Steht hinter der Adresse ein '!”, 
handelt es sich um einen CALL. Bei 1670, handelt es sich um einen lesen- 
den Zugriff und bei 178 A« um einen schreibenden. Steht hinter der Adresse 
ein ':' wird diese als Datum verwendet. Es hängt dann von der jeweiligen 
Routine ab, ob geschrieben, gelesen oder gesprungen wird. Stehtein Hoch- 
komma’ hinter der Adresse, handelt es sich um einen relativen Sprung 
(meist aus unmittelbarer Nähe). Um den Programmtext aber nicht unnötig 
zu zerreißen, wurden die meisten relativen Sprünge wieder aus dem Listing 
entfernt, nachdem die Zusammenhänge klar waren. Schließlich gibt es 
noch Adressen 'ohne was’, hier handelt es sich um Sprünge (jp jp,m usw. 
oder rst). 

Alle Zahlenangaben sind hexadezimal, Dezimalwerte haben einen De- 
zimalpunkt. 

Die am Ende von Programmabschnitten enthaltenen BytesC7 C7C7... 
sind nicht verwendete ROM-Bereiche, ihr Inhalt ist ohne Bedeutung. 

Jetzt muß ich noch aufein besonderes Thema kommen: Die Ausführ- 
lichkeit der Kommentare. Natürlich kann man dort, wo man keine weiß, 
einfach keine hinschreiben. Es bleibt dann dem Leser überlassen, heraus- 
zufinden, ob an dieser Stelle ’alles selbstverständlich’ ist oder ob dem Kom- 
mentator zu diesem Thema (noch) nichts eingefallen ist. Sie dürfen ruhig 
davon ausgehen, daß letzteres der Fall ist. Doch sollte man es auch zugeben 
undsich und anderen die Arbeit leichter machen. Deshalb stehen in diesem 
Listing an noch einigen Stellen immer drei Pünktchen '...', die fügt der 
Disassembler (absichtlich) immer dann ein, wenn er unter dieser Adresse 
nichts findet; will sagen: Hier könnte man noch etwas hinschreiben. 


Doch nun stürzen Sie sich ins Listing. Fangen Sie am besten mit einem 
einfachen Thema, wie z.B. die Druckerausgabe an, damit Sie sich an die 
Syntax und den Stil gewöhnen. Es wird Ihnen später sicher gelingen, sich 
auch in komplexere Zusammenhänge einzuarbeiten. Ein umfangreicher 
Index und die Adress-Paginierung helfen Ihnen, die gewünschten Stellen 
schnell aufzufinden. 
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rst 0, SYSTEM RESET 


@ COOF 

01 89 7F ld bc,7F89 Video Gate Array 

ED 49 out (c),c select lower ROM 

c3 80 05 jp 0580 boot system 

rst l <addr>, LOW JUMP, bit 1l4=lower, 15=upper ROM disabled 

c3 82 B9 jp B982 addr is in the range 0000 ... 3FFF 
= jp(hl), low ROM or RAM, bit l4=lower, 15=upper ROM disabled 
c3 7C B9 jp B97C addr is in the range 0000 ... 3FFF 
jp (be) 

c5 push bc 

c9 ret 


rst 2, call to a sideways ROM <addr>, bit 14/15 select the ROM 
c3 16 BA jp BAI6 


KL jp(hl) to a sideways ROM 
c3 10 BA  jp BAlO 


jp(de) 

@ 1443! 2CE3! 

D5 push de 
c9 ret 


rst 3, FAR CALL (hl=param), <addr>,<ROM state> 
C3 BF B9__jp BIBF 


jp(hl), FAR CALL, (hl)=addr, <c>=ROM select 
Cc3 Bl B9 jp BIBl 


jp(h1) 
EI jp (hl) 
00 nop 


rst 4, RAM LAM, 1d a,(hl) with ROMs disabled 
C3 CB BA  jp BACB 


KL FAR ICALL, jp(hl=param), <addr><ROM state> 
c3 B9 B9 jp B9B9 


00 00 


rst 5 <addr>, FIRM JUMP, jump to lower ROM 
Cc3 2E BA jp BA2E 


SAVE for CURRENT ROM STATE 


00 

select ROM STATE 

ED 49 out (c),c 

D9 exx 

FB ei 

rst 6, USER RESTART 

@ 004E< 

F3 di 

DI exx 

21 2B 00 ld h1,002B SAVE for CURRENT ROM STATE 
zı ld (hl),c save ROM STATE 
18 08 jr 0040 


huslik, cpc464 inside out KERNEL 


m. rst 7, INTERRUPT ENTRY 


0038 c3 39 B9 jp B939 rst 7, INTERRUPT ENTRY 

— EXTERNAL INTERRUPT 
@ B977! 

003B C9 ret 

003C 00 nop 

003D 00 nop 

003E 00 nop 

003F 00 nop 

0040 CB DI set 2,c 

0042 18 E8 jr 002C select ROM STATE 

— copy 0000..0040 ROM to RAM, restore HI KERNEL JUMPBLOCK 
@ 06371! 

0044 21 40 00 ld h1,0040 high ROM source 

0047 2D dec 1 

0048 7E ld a,(hl) 

0049 77 ld’(hl),a 

004A 20 FB jr nz,0047 next 

004C 3E C7 ld a,C7 =rst 0 

004E 32 30.00 Id (0030),a rst 6, USER RESTART 

0051 21 91 03 ld h1,0391 data for HIGH KERNEL JUMPBLOCK (copied to BA 

0054 11 00 B9 ld de,B900 destination 

0057 O1 E9 O1 ld bc,01E9 number of bytes 

005A ED BO ldir 


- KL CHOKE OFF, reset the kernel 
@ 05E9! BCC8! 


005C F3 di 

005D 3A AB Bl ld a, (BlAB) KL ROM stare to call 

0060 ED 5B A9 Bl 1d de, (B1A9) KL contains c006 = start of ROM 

0064 06 CO ld b,co count 

0066 21 00 Bl ld h1,B100 start of firmware RAM 

0069 36 00 ld (h1),00 set Bl00..BlCO to 0 

006B 23 inc hl 

006C 10 FB djnz 0069 next 

006E 47 ld b,a 

006F OE FF ld c,FF =255. 

0071 A9 xor c 

0072 co ret nz 

0073 4F ld c,a <c>=0 

0074 5F ld e,a <e>=0 

0075 57 ld d,a <d>=0 

0076 C9 ret 

— KL PREPARE TO CALL AN UPPER ROM; <c>=ROM sel, (hl)=entry addr O=default 
@ 0659 

0077 TC ld a,h 

0078 B5 or 1 <hl>=0? 

0079 79 ld a,c ROM select 

007A 20 04 jr nz,0080 there is another entry given 

007C 7D ld a,l 

007D 21 06 CO ld h1,C006 DEFAULT ENTRY TO UPPER ROM 

0080 32 A8 Bl ld (BlA8),a KL ROM select address 

0083 32 AB Bl ld (BlAB),a KL ROM state to call 

0086 22 A9 Bl ld (BlA9),hl KL contains c006 = start of ROM” 

0089 21 FF AB ld h1,ABFF default uprer RAM boundary-1 

008C 11 40 00 ld de,0040 lower RAM boundary 

008F Ol FF BO ld bc,BOFF upper RAM boundary-l 

0092 31 00 CO ld sp,C000 init stack pointer 

0095 DF A9 Bl rst 3,BlA9 KL contains c006 = start of ROM 

0098 C7 rst 0 SYSTEM RESET on return 
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ED 53 89 Bl 
22 87 Bl 

FB 

c9 


di 
ld de, (Bl89) 
ld hl, (B187) 
ei 
ret 


<de,hl> 


di 

xor a 

ld (B18B),a 
ld (B189),de 
ld (B187),hl 
ei 

ret 


KL TIME byte 2,3 
KL TIME byte 0,1 


reset time byte 4 


KL TIME byte 4, (overflows after 116 years) 


KL TIME byte 2,3 
KL TIME byte 0,1 


INTERRUPT SERVICE ROUTINE (every 1/300 second) 


@ B948! 


21 04 Bl 


3A Ol Bl 


ld h1,B187 
inc (hl) 

inc hl 

jr z,00B4 

ld b,F5 

in a,(c) 

rra 

jr nc,00C7 
ld hl, (Bl8C) 
ld a,h 

ora 

call nz,0153 
ld hl, (BI8E) 
ld a,h 

or a 

call nz,0153 


‘call 1F6l 


ld h1,B192 
dec (hl) 
ret nz 

ld (h1),06 
call 1BB7 
ld hl, (B190) 
ld a,h 
ora 

ret z 

ld h1,B104 
set 0,(hl) 
ret 


dec hl 

ld (h1),00 
dec hl 

ld a,(BlOl) 
or a 

jr nz,O0OFE 
ld (Bl00),hl 
ld (Bl02),hl 
ld h1,B104 
set 6, (hl) 
ret 
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KL TIME byte 0,1 

sets z-flag if overflow occurs 
does not affect z-flag 

inc next higher clock byte 
8522 port B 

check for FRAME FLYBACK PULSE 


no FRAME FLYBACK pulse 
KL FRAME FLY LIST pointer 


is there a FRAME FLY ticker? 
kick a ticker 
KL FAST TICKER LIST pointer 


is there a FAST TICKER? 

kick a ticker 

SOUND TICK (every 1/300 second) 
KL SLOW TICKER COUNT 


slow countdown not finished; return 
300/6 = 1/50 second; recharge value 


KM update key state map (every 1/50 second) 


KL pointer to TICK LIST 


nothing on the TICK LIST 
KL INTERRUPT SERVICE CLASS 
mark for a slow ticker 


=0. 

KL INTERRUPT PENDING QUEUE (hibyte) 
there is an event in the chain 

KL INTERRUPT SERVICE QUEUE 


KL INTERRUPT SERVICE CHAIN 
KL INTERRUPT SERVICE CLASS 


KERNEL 


3 OOFD 


ED 5B 02 Bl 1d de, (Bl02) 
22 02 Bl ld (B102),h1l 


perform asyncronous event(s) 


ex de,hl 
ld (hl),e 
inc hl 

ld (h1l),d 
ret 


@ B960! 
ED 73 05 Bl 1d (Bl05),sp 
31 87 Bl 1d sp,Bl87 


E5 
D5 
c5 
21 
CB 
28 
CB 
2A 
7C 
B7 
28 
5E 
23 
56 


0E 


53 


7B 


push hl 
push de 
push bc 
Bl ld h1,B104 
bit 6,(hl) 
jr z,0139 
set 7,(hl) 
Bl ld hl, (B100) 
ld a,h 
or a 
jr z,0132 
ld e,(hl) 
inc hl 
ld d,(hl) 
00 Bl ld (B1l00),de 
inc hl 
02 call 020A 
di 
jr ollD 


Bl ld h1,B104 
bit 0,(hl) 
jr z,0149 
ld (h1),00 
scf 
ex af,af’ 
01 call 0189 
or a 
ex af,af” 
Bl ld h1,B104 
ld a,(hl) 
or a 
jr nz,OllB 
ld (h1),00 
pop bc 
pop de 
pop hl 
05 Bl 1d sp, (Bl05) 
ret 


kick a ticker 
@ 00C4! O00CC! 0161” 


5E ld e,(hl) 
23 inc hl 

7E ld a,(hl) 
23 inc hl 

B7 or a 

CA E2 Ol jp z,OlE2 
57 ld d,a 

D5 push de 
CD E2 Ol call OIE2 
El pop hl 

18 FO jr 0153 

4 KERNEL 


KL INTERRUPT SERVICE CHAIN 
KL INTERRUPT SERVICE CHAIN 


KL save for SP on interrupt service 
private interrupt stack 


KL INTERRUPT SERVICE CLASS 
is it an Express Event? 


no, Normal Event 


mark as EXPRESS Event 
KL INTERRUPT SERVICE QUEUE 


no more 


KL INTERRUPT SERVICE QUEUE 


... 


check for next in line 


KL INTERRUPT SERVICE CLASS 
test for a SLOW TICKER 


no, none present 
=0. 


tick an event (called.after: ex af,af’) 


KL INTERRUPT SERVICE CLASS 


there is another event outstanding 


=0. 


KL save for SP on interrupt service 


KL EVENT, kick an event block (hl) 


KL EVENT, kick an event block (hl) 


next 
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- KL NEW FRAME FLY, (hl)=addr, <b>=class, <de,c>=far addr 


@ ODAC BCD7! 
0163 E5 push hl 
0164 23 inc hl 
0165 23 inc hl 
0166 CD D2 O1 call 01D2 KL INIT EVENT BLOCK (hl)=block, <b>=class, < 
0169 EI pop hl 
._ KL ADD FRAME FLY; (hl)=addr of block 
@ BCDA! 
Ol6A 11 8C Bl ld de,Bl8C KL FRAME FLY LIST pointer 
01l6D C3 73 03 jp 0373 link a block (hl) onto list (de) 


.- KL DEL FRAME FLY, remove a block (hl) from the list 
@ 0D40! 0D52! BCDD! 


0170 11 8C Bl ld de,Bl8C KL FRAME FLY LIST pointer 
0173 c3 82 03 jp 0382 unlink a block (hl) from list (de) 
._ KL NEW FAST TICKER, (hl)=block,<b>=class,<c>=ROM sel, (de)=event routine 
@ BCEO! 
0176 ES push hl 
0177 23 inc hl 
0178 23 inc hl 
0179 cD D2 Ol call 01D2 KL INIT EVENT BLOCK (hl)=block, <b>=class, < 
ol7cC El pop hl 
- KL ADD FAST TICKER, put block (hl) onto list 
@ BCE3! 
017D 11 8E Bl ld de,Bl8E KL FAST TICKER LIST pointer 
0180 cC3 73 03 jp 0373 link a block (hl) onto list (de) 
.- KL DEL FAST TICKER, remove block (hl) from the list 
@ BCE6! 
0183 11 8E Bl ld de,Bl8E KL FAST TICKER LIST pointer 
0186 C3 82 03 jp 0382 unlink a block (hl) from list (de) 
.-- tick an event (called after: ex af,af’) 
@ 013D! 
0189 2A 90 Bl ld hl, (B1l90) KL pointer to TICK LIST 
01l8C 7C ld a,h 
018D B7 or a 
O18E C8 ret z no more in chain 
ol8F 5E ld e,(hl) 
0190 23 inc hl 
0191 56 ld d,(hl) de = tick chain 
0192 23 inc hl 
0193 4E ld c,(hl) 
0194 23 inc hl 
0195 46 ld b,(hl) be = tick count 
0196 78 ld a,b 
0197 Bl or c 
0198 28 16 jr z,01BO count 0, block is dormant 
O19A OB dec bc decrement tick count 
019B 78 ld a,b 
01l9C Bl or c 
019D 20 OE jr nz,OlAD count not yet zero 
O19F D5 push de 
01AO 23 inc hl 
OlAl 23 inc hl 
01A2 ES push hl 
01A3 23 inc hl 
OlA4 CD E2 OL call OIlE2 KL EVENT, kick an event block (hl) 
O01A7 EI pop hl 
01A8 46 ld b, (hl) get recharge count 
O01A9 2B dec hl 
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O1lAA 4E ld c,(nl) 


OlAB 2B dec hl 

OlAc DI pop de 

O1lAD 70 ld (hl),b and store as tick count 

OlAE 2B dec hl 

OlAF 71 ld (hl),c 

OlBO EB ex de,hl 

OlBl 18 D9 jr O18C next on list 

—— KL ADD TICKER, (hl)=tick block, <de>=initial count, <bc>=recharge value 
@ BCE9! 

01B3 E5 push hl (hl)=tick block 

OlB4 23 inc hl 

01B5 23 inc hl 

O1lB6 F3 di 

01B7 73 ld (hl),e <de>=initial count 

OlB8 23 inc hl 

01B9 72 ld (hl),d 

OlBA 23 inc hl 

OlBB 71 ld (hl),c 

OlBC 23 inc hl 

OlBD 70 ld (hl),b <bc>=recharge entry value 

OlBE El pop hl 

OlBF 11 90 Bl ld de,Bl90 KL pointer to TICK LIST 

olc2 cC3 73 03 jp 0373 link a block (hl) onto list (de) 

. KL DEL TICKER, remove block (hl) from tick list 
@ BCEC! 

01c5 11 90 Bl ld de,Bl90 KL pointer to TICK LIST 

0O1lcC8 CD 82 03 call 0382 unlink a block (hl) from list (de) 

OlcB DO ret nc 

OlCC EB ex de,hl 

OlcD 23 inc hl 

OlCE 5E ld e,(hl) 

OLCF 23 inc hl 

01D0 56 ld d,(hl) 

0lDl c9 ret 


--- KL INIT EVENT BLOCK (hl)=block, <b>=class, <c>=ROM sel, (de)=routine 
@ 0166! 0179! 1C79! 1E738! BCEF! 


01lD2 F3 di 

01n3 23 inc hl 

OlD4 23 inc hl 

01D5 36 00 ld (h1),00 

0107 23 inc hl 

01D8 70 ld (h1l),b <b>=event class 
01D9 23 inc hl 

OlDA 73 ld (hl),e <de>=address of routine 
OlDB 23 inc hl 

olpc 72 ld (hl),d 

OlDD 23 inc hl 

OlDE 71 ld (hl),c <c>=ROM selection 
OIDF 23 inc hl 

O1lEO FB ei 

OlElL C9 ret 


----- KL EVENT, kick an event block (hl) 
@ 0158 O15D! OlA4! 1C9B! 1F9C 20A5 2115 BCF2! 


OlE2 23 inc hl 

O1E3 23 inc hl 

OlE4 F3 di 

O1E5S 7E ld a,(hl) 

O1E6 34 inc (hl) 

O1lE7 FA 06 02 jp n,0206 event disarmed, no action 
OlEA B7 or a 
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O1EB 20 13 jr nz,0200 other kicks are outstanding 
OlED 23 inc hl 


OlEE T7E ld a,(hl) 
OlIEF 2B dec hl 
OlFO B7 or a 
OlFlL F2 2F 02 jp p,022F KL link SYNC EVENT block (hl)=<addr>, <a>=cl 
OlF4 08 ex af,af’ 
01lF5 30 12 jr nc,0209 ... 
OlLF7 08 ex af,af’ 
OlF8 87 add a,a 
OLF9 F2 ES 00 jp p,00E8 ... 
OlFC 23 inc hl 
OLFD 23 inc hl 
OlFE 18 23 jr 0223 ... 
0200 08 ex af,af” 
0201 38 01 jr c,0204 do not enable interrupts if carry 
0203 FB ei 
0204 08 ex af,af” 
0205 cC9 ret 
0206 35 dec (hl) 
0207 18 F7 jr 0200 ... 
0209 08 ex af,af” 
@ 012C! 
020A FB ei 
020B 7E ld a,(hl) 
020C B7 ora 
020D F8 ret m 
020E ES push hl 
020F CD Ic 02 call O2IC ... 
0212 EI pop hl 
0213 35 dec (hl) 
0214 C8 ret z 
0215 F2 0E 02 jp p,020E ... 
0218 34 inc (hl) 
0219 c9 ret 
— KL DO SYNC, perform SYNC EVENT block (hl) 
@ BCFE! 
021A 23 inc hl skip over chain and count 
021B 23 inc hl 
@ 020F! 
021c 23 inc hl 
021D 7E ld a,(hl) get event class 
O21E 23 inc hl 
021F IF rra bit 0 set? 
0220 D2 B9 B9 jp nc,B9B9 KL FAR ICALL, jp(hl=param), <addr><ROM state 
@ OLFE’ 
0223 5E ld e,(hl) 
0224 23 inc hl 
0225 56 ld d,(hl) (de)=routine address 
0226 EB ex de,hl 
0227 EI jp (hl) 
— KL SYNC RESET, clear synchronous event queue 
@ BCF5! 
0228 21 00 00 ld h1,0000 
022B 22 94 Bl ld (Bl94),hl KL SYNC EVENT queue+l 
022E CI ret 
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----—- KL link SYNC EVENT block (hl)=<addr>, <a>=class 
@ OlFl 027F 


022F ES push hl 
0230 47 ld b,a 
0231 11 96 Bl ld de,Bl96 KL sync event queue +3 
0234 EB ex de,hl 
0235 2B dec hl 
0236 2B dec hl 
0237 56 ld d,(hl) 
0238 2B dec hl 
0239 S5E ld e,(hl) (de)=sync event queue 
023A 7A ld a,d 
023B B7 or a end of queue? 
023C 28 07 jr z,0245 yes, all done 
023E 13 inc de 
023F 13 inc de 
0240 13 inc de 
0241 1A ld a, (de) priority of new block 
0242 B8 cp b 
0243 30 EF jr nc,0234 found block is of higher, try next 
0245 DI pop de =new block 
0246 1B dec de 
0247 23 inc hl 
0248 T7E ld a,(hl) set chain of old block 
0249 12 ld (de),a and put it in the new block 
024A 1B dec de 
024B 72 ld (hl),d 
024C 2B dec hl 
024D TE ld a,(hl) put new block addr in old chain 
024E 12 ld (de),a 
024F 73 ld (hl),e 
0250 08 ex af,af” 
0251 38 01 jr c,0254 do not enable interrupts if carry 
0253 FB ei 
0254 08 ex af,af” 
0255 cC9 ret 
—— KL NEXT SYNC, =(hl), =<a> prev. prio, =carry 
@ BCFB! 
0256 F3 di 
0257 2A 93 Bl ld h1,(B193) KL SYNC EVENT queue 
025A 7C ld a,h 
025B B7 ora 
025C 28 17 jr z,0275 no SYNC EVENT on the queue 
025E ES push hl 
025F 5E ld e,(hl) 
0260 23 inc hl 
0261 56 ld d,(hl) 
0262 23 inc hl 
0263 23 inc hl 
0264 3A 95 Bl ld a, (B195) KL EVENT CLASS 
0267 BE cp (hl) 
0268 30 OA jr nc,0274 skip 
026A F5 push af 
026B 7E ld a,(hl) 
026C 32 95 Bl ld (B195),a KL EVENT CLASS 
026F ED 53 93 Bl 1d (Bl93),de KL SYNC EVENT queue 
0273 Fl pop af 
0274 EI pop hl 
0275 FB ei 
0276 c9 ret 


0276 8 KERNEL huslik, cpc464 inside out 


----- KL DONE SYNC, (hl)=block, <a>=prev. priority 


@ BDOL! 
0277 32 95 Bl ld (B195),a KL EVENT CLASS 
027A 23 inc hl 
027B 23 inc hl 
027C 35 dec (hl) decrement count 
027D cC8 ret z return if zero 
027E F3 di 
027F F2 2F 02 jp p,022F KL link SYNC EVENT block (hl)=<addr>, <a>=cl 
0282 34 ine (hl) 
0283 FB ei 
0284 CI ret 


- KL DEL SYNC, delete block (hl) from quere 
@ 1C8A! BCF8! 


0285 CD 8E 02 call 028E KL DISARM EVENT block (hl) 
0288 11 93 Bl ld de,B193 KL SYNC EVENT queue 
028B C3 82 03 jp 0382 unlink a block (hl) from list (de) 


—— KL DISARM EVENT block (hl) 
@ 0285! BDOA! 


028E 23 inc hl 
028F 23 inc hl 
0290 36 CO ld (h1),co sets count negative 
0292 2B dec hl 
0293 2B dec hl 
0294 c9 ret 
----- KL EVENT DISABLE 
@ BDO4! 
0295 21 95 Bl ld h1,B195 KL EVENT CLASS 
0298 CB EE set 5,(hl) set the disable bit 
029A C9 ret 
— KL EVENT ENABLE 
@ BDO7! 
029B 21 95 Bl ld h1,B195 KL EVENT CLASS 
029E CB AE res 5,(hl) reset the disable bit 
02A0 C9 ret 


._-- KL LOG EXT, (be)=RSX cmd table, (hl)=4 hyte RAM area 
@ 035Al BCDL! 


02Al ES push hl 

02A2 ED 5B A6 Bl 1d de, (BlA6) KL RSX QUEUE 

02A6 22 A6 Bl ld (BlA6),hl KL RSX QUEUE 

0249 73 ld (hl),e 

02AA 23 inc hl 

02AB 72 ld (hl),d 

02AC 23 inc hl 

02AD 71 ld (hl),c 

O2AE 23 inc hl 

02AF 70 ld (h1l),b 

02B0O EI pop hl 

02Bl C9 ret 

— KL FIND COMMAND (hl) in RSX or back ROM, =<c>ROM sel, =(hl)routine 
@ BCD4! 

02B2 11 96 Bl ld de,Bl96 KL temp store for EXTERNAL COMMAND NAME on s 

02B5 01 10 00 ld bc,0010 count 

02B8 CD A6 BA call BAA6 KL l1dir, ROMs disabled 

02BB EB ex de,hl 

02BC 2B dec hl 

02BD CB FE set 7,(hl) 

02BF 2A A6 Bl ld h1,(BlA6) KL RSX QUEUE 

02C2 7D ld a,l 
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02C3 


02C5 
02C6 
02C7 
02C8 
02C9 
02CA 
02CB 
02CE 
02CF 
02D0 
02D1 
02D2 
02D3 
02D4 
02D5 
02D6 
02D8 
02DA 
02DB 
02DE 
02DF 
O2El 
02E2 
02E5 
02E7 
02E8 
02E9 
O2EB 
O2EC 
O2ED 
O2EF 


02F0 
O2Fl 


02F4 
02F7 
02F8 
02F9 
02FB 
O2FC 
02FD 
O2FF 
0302 
0303 
0304 
0305 
0306 
0307 
0308 


030A 
030D 
030E 
030F 
0311 
0312 
0313 
0314 
0316 
0317 


0317 


18 10 jr 02D5 

E5 push hl 

23 inc hl 

23 inc hl 

4E ld c,(hl) 
23 inc hl 

46 ld b, (hl) 
cD F4 02 call 02F4 
Dl pop de 

D8 ret c 

EB ex de,hl 
7E ld a,(hl) 
23 inc hl 

66 ld h, (hl) 
6F ld 1,a 

B4 or h 

20 ED jr nz,02C5 
0E FF ld c,FF 

0C inc c 

CD 83 BA call BA83 
F5 push af 

E6 03 and 03 

47 ld b,a 

CC F4 02 call z,02F4 
38 09 jr c,02FO 
Fl pop af 

87 add a,a 

30 EF jr nc,02DA 
79 ld a,c 

B7 or a 

28 EB jr z,02DA 
c9 ret 

Fl pop af 


c3 0B 06 jp 0608 


@ 02CB! O2E2! 
21 04 cO ld h1,C004 


78 ld a,b 

B7 ora 

28 04 jr z,0O2FF 
60 ld h,b 

69 14. 1,6 

0E FF ld c,FF 
CD 7E BA call BA7E 
C5 push bc 
5E ld e,(hl) 
23 inc hl 
56 ld d,(h1) 
23 inc hl 

EB ex de,hl 
18 17 jr 0321 
01 96 Bl ld bc,B196 
0A ld a,(bc) 
BE cp (hl) 

20 08 jr nz,0319 
23 inc hl 

03 inc be 

87 add a,a 

30 F7 jr nc,030D 
EB ex de,hl 
18 0C jr 0325 

10 KERNEL 


KL ask CLASS <a> VERSION/MARK <hl> of ROM 


MC START FOREGROUND PROGRAM, (hl)=entry addr 


EXTERNAL COMMAND TABLE 


table empty 


disable upper ROM, disable lower ROM 
KL SELECT an UPPER ROM <c> 


... 


KL temp store for EXTERNAL COMMAND NAME on s 


huslik, cpc464 inside out 


0319 7E ld a,(hl) 


031A 23 inc hl 

031B 37 add a,a 

031C 30 FB jr nc,0319 ... 
031E 13 inc de 

031F 13 inc de 

0320 13 inc de 

0321 7E ld a,(hl) 

0322 B7 or a 

0323 20 E5 jr nz,030A ... 
0325 ci pop be 

0326 C3 8C BA jp BA8C KL restore previous ROM selection, <c>=prev. 


- KL ROM WALK, (de)=low, (hl)=hi avail. memory 
find and initialise BACKGROUND ROMs 


@ BCCB! 
0329 OE 07 ld c,07 count of ROMs 
032B CD 32 03 call 0332 KL INIT BACKground ROM, <c>=ROM sel, <de>=1o 
032E OD dec c 
032F 20 FA jr nz,032B next ROM 
0331 CI ret 


— KL INIT BACKground ROM, <c>=ROM sel, <de>=lomen, <hl>=himem 
@ 032B! BCCE! 


0332 79 ld a,c 

0333 FE 08 cp 08 max i# of BACKGROUND ROMs 

0335 DO ret nc 

0336 CD 7E BA call BA7E KL SELECT an UPPER ROM <c> 

0339 3A 00 CO ld a, (C000) ROM class 

033C E6 03 and 03 

033E 3D dec a 

033F 20 IF jr nz,0360 out of selectable range 

0341 C5 push bc 

0342 CD 06 CO call C006 entry to upper ROM 

0345 D5 push de 

0346 23 inc hl 

0347 EB ex de,hl 

0348 21 AA Bl ld h1,BlAA BlAA=hibyte of ROM (CO), BIlAA=ROM state 
034B ED 4B A8 Bl ld bc, (BlA8) KL ROM select address 

034F 06 00 ld b,00 clear hi part 

0351 09 add hl,bc 

0352 09 add hl,bc <hl>=BlAA+ 2*<c> 

0353 73 ld (hl),e 

0354 23 inc hl 

0355 72 ld (hl),d 

0356 21 FC FF ld hl,FFFC 4 bytes are reserved for LOG EXT 

0359 19 add hl,de 

035A CD Al 02 call 02Al KL LOG EXT, (bc)=RSX cmd table, (hl)=4 byte 
035D 2B dec hl 

035E DI pop de 

035F cı pop bc 

0360. C3 8C BA jp BASC KL restore previous ROM selection, <c>=prev. 


— find entry (de) within chain (hl) 
@ 0371° 0375! 03841 


0363 7E ld a,(hl) low byte from list 

0364 BB cp e compare with block 

0365 23 inc hl 

0366 7E ld a,(hl) get hibyte 

0367 2B dec hl 

0368 20 03 jr nz,036D no match on lobyte, go 

036A BA cp d compare hibyte 

036B 37 sc£ 

036C cC8 ret z if both match, return with carry 
036D B7 or a is the hibyte zero? 
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0580 


c8 
6E 
67 
18 


FO 


ret 


1d 1,(h1l) 


z 


ld h,a 
jr 0363 


yes, end of chain 


no, get new link into (hl) 


find entry (de) within chain (hl) 


link a block (hl) onto list (de) 
@ 0l6D 0180 Olc2 
ex de,hl 


unlink a block (hl) from list (de) 
@ 0173 0186 OICc8! 028B 


63 
06 


di 


03 call 0363 


jr c,0380 
ld (hl),e 
inc hl 


ld (hl),d 
inc de 


xor 


a 


ld (de),a 


ei 
ret 


ex de,hl 


di 


03 call 0363 
jr nc,038F 


ld a, (de) 


1d (hl),a 


inc de 
inc hl 
ld a,(de) 


ld (hl),a 


ei 
ret 


BA C3 68 
BA C3 A6 
3A 95 Bl 


KERNEL 


HIGH KERNEL 


find entry (de) within chain (hl) 


block already in the chain, return 


insert the block address as the last link 


and mark the end of the chain 


by setting the hibyte to zero 


find entry (de) within chain (hl) 


block not on the list, return 
get the link entry 
and store it into the previous block 


JUMPBLOCK 


c3 
3A 
F3 
04 
4F 
06 
B9 
F3 


(copied to 


54 
94 
08 
Bl 
ED 
F3 
F3 
08 


BA 
Bl 
38 
B7 
49 


c3 
B7 
33 
28 
DI 
El 
08 
E5 


72 
c8 
DI 


... BAEB) 


c3 
F3 
37 


TE 
2A 
FB 


BA 
93 
08 
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boot system 
@ 0005 


F3 
ol 
ED 
ol 
ED 
ol 


F2 
18 


initialisation data 50 Hz 


82 
49 


A6 
20 


F7 


F4 


F6 


EF 


05 
BC 


05 


di 

ld bce,F782 
out (c),c 
ld bc,F400 
out (c),c 
ld bc,F600 
out (c),c 
ld bce,EF7F 
out (c),c 
ld b,F5 

in a,(c) 
and 10 

ld h1,05C4 
jr nz,05A3 
ld h1,05D4 
ld bc,BCOF 
out (c),c 
dec hl 

ld a,(hl) 
inc b 

out (c),a 
dec b 

dec c 

jp P,05A6 
jr 05D4 


@ (=05C4-0F) 059B: 
3F 28 2E 8E 26 00 19 1E 00 07 00 00 30 00 CO 00 


initialisation data 60 Hz 


@ (=05D4-OF) 05A0: 
3F 28 2E 8E IF 06 19 1B 00 07 00 00 30 00 CO 00 


continue 
11 5C 06 
21 00 00 


18 


32 


ld de,065C 
ld h1,0000 
jr 060E 


8522 control 

8522 port A 

8522 port C 

printer latch 

8522 port B, ask soldered jumpers 
bit 4 set? 

initialisation data 50 Hz 

if jumper not in 


initialisation data 60 Hz 
CRTC address 


next 
continue 


find brandname and print 


----- MC BOOT PROGRAM, load and run FOREGROUND 
@ BD13! 
31 00 c0 


O5DC 
O5DF 
05EO 
05E3 
05E4 
05E7 
05E9 
O5EC 
O5ED 
O5EE 
O5EF 
05FO 
05F3 
05F6 
05F9 
O5FC 
05FD 
0600 
0601 
0602 
0604 
0605 


E5 


68 


07 


lE 


F8 


00 


1A 
10 
0A 
BA 


07 


ld sp,C000 
push hl 
call 1E68 
di 
ld bc,F8FF 
out (c),c 
call 005C 
pop hl 
push de 
push bc 
push hl 
call lAlE 
call 1088 
call OABIl 
call BASE 
pop hl 
call 0775 
pop bc 
pop de 
jr c,060B 
ex de,hl 
ld c,b 
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init stack pointer 
SOUND RESET 
expansion bus 


reset peripherals 
KL CHOKE OFF, reset the kernel 


KM RESET key manager 

TXT RESET text VDU 

SCR RESET screen pack 

KL current upper ROM enable, <a>=prevoius RO 


= jp(hl) 


MC START FOREGROUND PROGRAM, (hl)=entry addr 


MACHINE PACK 13 0605 


0606 11 ES 06 ld de,06E8 program load failed 
0609 18 03 jr 060E 


-_— MC START FOREGROUND PROGRAM, (hl)=entry addr, <c>=ROM selection 
@ 02Fl 0602” BDI6! 


060B 11 26 07 ld de,0726 = ret 

060E F3 di 

060F ED 56 im 1 

0611 DI exx 

0612 01 00 DF ld bc,DFOO expansion ROM select 

0615 ED 49 out (c),c 

0617 Ol FF F8 ld bce,F8FF expansion bus 

061lA ED 49 out (c),c 

061C 21 00 Bl ld h1,B100 start of firmware RAM 

O61F 11 01 Bl ld de,BlOl 

0622 OL FF 07 ld bc,07FF count 

0625 36 00 ld (h1),00 clear Bl0O-B8FF to 0 

0627 ED BO ldir 

0629 01 89 7F ld bc,7F89 Video gate array 

062C ED 49 out (c),c 

062E DI exx 

062F AF xor a 

0630 08 ex af,af’ 

0631 31 00 c0O ld sp,C000 init stack pointer 

0634 E5 push hl 

0635 C5 push bc 

0636 D5 push de 

0637 CD 44 00 call 0044 copy 0000..0040 ROM to RAM, restore HI KERNE 
063A CD 88 08 call 0888 JUMP RESTORE standard jumpblock 
063D CD EO 19 call 19EO KM INITIALISE key manager 

0640 CD 68 IE call 1E68 SOUND RESET 

0643 CD AO OA call OAAO SCR INITIAJ.ISE screen pack 

0646 CD 78 10 call 1078 TXT INITIALISE text VDU 

0649 CD BO 15 call 15B0 GRA INITIALISE graphics VDU 
064C CD 70 23 call 2370 CAS INITIALISE cassette manager 
064F CD E6 07 call 07E6 MC RESET PRINTER indirection 
0652 FB ei 

0653 EI pop hl 

0654 CD 75 07 call 0775 jp(h1); h1=065C 

0657 cı pop be 

0658 EI pop hl 

0659 C3 77 00 jp 0077 KL PREPARE TO CALL AN UPPER ROM; <c>=ROM sel 


----- find brandname and print 
@ 05D4: = 0654! 


065C CD 12 07 call 0712 find brand name 

065F CD EB 06 call O06EB print message in (HL) 

0662 21 6D 06 ld h1,066D * 64K Microcomputer ... 

0665 CD EB 06 call O6EB print message in (HL) 

0668 21 93 06 ld h1,0693 * (c)1984 Amstrad Consumer .... 

066B 18 7E jr 06EB print message in (HL) 

-._-- * 64K Microcomputer ... 

066D 20 36 34 4B 20 4D 69 63 72 6F 63 6F 6D 70 75 74 * 64K Microcomput 
067D 65 72 20 20 28 76 31 29 OD OA OD OA 00 "er (vl)... 
068A 43 6F 70 79 72 69 67 68 74 ‘Copyright 

----- ° (c)1984 Amstrad Consumer .... 

0693 20 A4 31 39 38 34 20 41 6D 73 74 72 61 64 20 43 * $1984 Amstrad C 
06A3 6F 6E 73 75 6D 65 72 20 45 6C 65 63 74 72 6F 6E “onsumer Electron 
06B3 69 63 73 20 70 6C 63 OD OA 20 20 20 20 20 20 20 "ics plc.» 

06C3 20 20 20 20 61 6E 64 20 4AC 6F 63 6F 6D 6F 74 69 g and Locomoti 
06D3 76 65 20 53 6F 66 74 77 61 72 65 20 AC 74 64 2E "ve Software Ltd. 
06E3 OD OA OD 0A 00 ae 
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----- program load failed 
06E8 21 F4 06 ld h1,06F4 ’kk%k PROGRAM LOAD FAILED *** 


— print message in (HL) 
@ 065F! 0665! 066B’” O06F2” 


06EB 7E ld a,(hl) 
06EC 23 inc hl 
06ED B7 ora 
06EE C8 ret z 
06EF CD 00 14 call 1400 TXT OUTPUT char or ctl code <a> to VDU 
06F2 18 F7 jr 06EB print message in (HL) 
— ’%k%k%k PROGRAM LOAD FAILED *%** 
06F4 2A 2A 2A 20 50 52 4F 47 52 41 4D 20 4C 4F 4l 44 ’k%k%* PROGRAM LOAD 
0704 20 46 41 49 4C 45 44 20 2A 2A 2A OD OA 00 * FAILED *%*%*... 
.— find brand name 

@ 065C! 
0712 06 F5 ld b,F5 8522 port B, ask soldered jumpers 
0714 ED 78 in a,(c) 
0716 2F cpl 
0717 E6 OE and 0E 
0719 OF rrca 
071A 21 27 07 ld h1,0727 “brand names 
071D 3C inc a 
071E 47 ld b,a 
071F T7E ld a, (hl) 
0720 23 inc hl 
0721 B7 or a 
0722 20 FB jr nz,071F next char 
0724 10 F9 djnz O7IF next entry 
0726 C9I ret 
-— "brand names 
0727 41 72 6E 6F 6C 64 00 “Arnold. 
O72E OA 20 41 6D 73 74 72 61 64 00 *. Austrad. 
0738 0A 20 4F 72 69 6F 6E 00 *. Orion. 
0740 OA 20 53 63 68 6E 65 69 64 65 72 00 “. Schneider. 
074C OA 20 41 77 61 00 *. Awa. 
0752 OA 20 53 6F 6C 61 76 6F 78 00 *. Solavox. 
075C 0A 20 53 61 69 73 68 6F 00 *. Saisho. 
0765 OA 20 54 72 69 75 6D 70 68 00 ‘. Triumph. 
076F OA 20 49 73 70 00 ’. Isp« 
Seren = jp(hl) 
0775 EI jp (hl) 


-.n.- MC SET SCREEN MODE <a> 
@ OB2B BDIC! 


0776 FE 03 cp 03 max 2 

0778 DO ret nc wrong argument 

0779 F3 di 

077A DI exx 

077B CB 89 res l,c 

077D CB 8l res 0,c bits O+l of c’ contain screen mode 
O77F Bl or c 

0780 4F ld c,a set new mode 

0781 ED 49 out (c),c b’=7F=Video Gate Array 
0783 FB ei 

0784 DI exx 

0785 c9I ret 
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0785 


MC CLEAR INKS to one colour, 
@ OAA3! 0D58 BD22! 


c5 push bc 

D5 push de 

01 10 7F ld bc, 7F10 
CD AB 07 call 07AB 
DE 00 ld c,00 

CD AB 07 call 07AB 
1B dec de 

20 FA jr nz,0790 
Dl pop de 

cl pop bc 

c9 ret 

MC SET INKS, (de)=ink vector 
@ 0D68! 0D73! BD25! 

C5 push bc 

D5 push de 

01 10 7F ld bc,7F10 
CD AB 07 call 07AB 
0E 00 ld c,00 

CD AB 07 call 07AB 
20 FB jr nz,07A3 
DL pop de 

cl pop bc 

c9 ret 


do the output to 8522 
@ 0788! 0790! 079E! 07A3! 


ED 49 out (c),c 
1A ld a,(de) 
13 inc de 

E6 IF and IF 

F6 40 or 40 

ED 79 out (c),a 
oc inc c 

79 ld a,c 

FE 10 cp 10 

c9 ret 


MC WAIT FLYBACK 
@ 0EO5! OE54! OE8D! BD19! 


F5 push af 

c5 push bc 

06 F5 ld b,F5 

ED 78 in a,(c) 
IF rra 

30 FB jr nc,07BE 
cl pop bc 

Fl pop af 

c9 ret 


(de)=ink vector 


8522 control 
do the output to 8522 


do the output to 8522 


next 


8522 control 
do the output to 8522 


do the output to 8522 
next 


8522 port B 


wait for bit 0 


MC set SCREEN OFFSET, <a>=base, <hl>=offset 


@ OB4D BDIF! 


c5 push bc 

OF rrca 

OF rrca 

E6 30 and 30 

4F ld c,a 

7C ld a,h 

IF rra 

E6 03 and 03 

Bl or c 

01 0C BC ld be,BCOC 
ED 49 out (c),c 
16 MACHINE PACK 


make sure it’s a valid l6k area 


make sure it’s legal 


CRTC address 
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04 inc b 

ED 79 out (c),a 
05 dec b 

0C inc c 

ED 49 out (c),c 
04 inc b 

7C ld a,h 

IF rra 

7D ld a,l 

IF rra 

ED 79 out (c),a 
cl pop bc 

c9 ret 


MC RESET PRINTER indirection 

@ 064F! BD28! 

21 EC 07 ld h1,07EC data for printer jumpblock 

Cc3 8A 0A jp OA8A copy (hl) bytes to address (hl+l),(h1+2) 


data for printer jumpblock 
03 Fl BD C3 F8 07 


MC PRINT CHAR <a> to Centronics port 


@ BD2B! 

c5 push bc 

CD Fl BD call BDFl MC WAIT PRINTER, print char <a> or time out 
cl pop bc 

c9 ret 


MC WAIT PRINTER, print char <a> or time out 


@ BDFI 

01 32 00 ld bc,0032 count for timeout 

CD 1B 08 call 081B MC BUSY PRINTER, if port is busy, =carry 
30 07 jr nc,0807 MC SEND char <a> to PRINTER 

10 F9 djnz O7FB try again 

OD dec c 

20 F6 jr nz,07FB try again 

B7 ora 

c9 ret 


MC SEND char <a> to PRINTER 
@ O7FE’ BD31! 


c5 push bc 

06 EF ld b,EF Centronics latch 

E6 7F and 7F mask out bit 7 

ED 79 out (c),a 

F6 80 or 80 set bit 7 (strobe) 

F3 di 

ED 79 out (c),a send strobe and character 
E6 7F and 7F reset bit 7 (strobe) 

FB ei 

ED 79 out (c),a send character without strobe 
cl pop bc 

37 scf 

c9 ret 


MC BUSY PRINTER, if port is busy, =carry 
@ O7FB! BD2E! 


c5 push bc 

4F ld c,a 

06 F5 ld b,F5 8522 port B 
ED 78 in a,(c) 

17 rla 

17 rla 

79 ld a,c 
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0824 cl pop be 
0825 CI ret 


— MC SOUND REGISTER, send <a>=reg#, <c>=data 
@ 1EDE! 218C! 2217! 221D! 2223! 227C 22A8 232C! 2335 BD34! 
0826 F3 di 


0827 06 FA ld b,F4 8522 port A 
0829 ED 79 out (c),a 
082B 06 F6 ld b,F6 8522 port C 
082D ED 78 in a,(c) 
082F F6 CO or CO set bits 6+7 
0831 ED 79 out (c),a 
0833 E6 3F and 3F preserve lower bits 
0835 ED 79 out (c),a 
0837 06 F4 ld b,F4 8522 port A 
0839 ED 49 out (c),c 
083B 06 F6 ld b,F6 8522 port C 
083D 4F ld c,a 
083E F6 80 or 80 set bit 7 
0840 ED 79 out (c),a 8522 port C 
0842 ED 49 out (c),c 
0844 FB ei 
0845 CI ret 
----- ask keys pressed and set map 

@ 1BBD! 
0846 O1 OE F4 ld bc,F40E 8522 port A 
0849 ED 49 out (c),c 
084B 06 F6 ld b,F6 8522 port C 
084D ED 78 in a,(c) 
084F E6 30 and 30 mask out bits 
0851 4F ld c,a 
0852 F6 CO or CO set bit 6+7 
0854 ED 79 out (c),a 
0856 ED 49 out (c),c 
0858 04 inc b 
0859 3E 92 ld a,92 10010010; set port A to input 
085B ED 79 out (c),a F7, 8522 control 
085D C5 push bc 
085E CB Fl set 6,c 
0860 06 F6 ld b,F6 8522 port 
0862 ED 49 out (c),c 
0864 06 F4 ld b,F4 8522 port A 
0866 ED 78 in a,(c) 
0868 46 ld b,(hl) 
0869 77 ld (hl),a 
086A AO and b 
086B 2F cpl 
086C 12 ld (de),a 
086D 23 inc hl 
086E 13 inc de 
086F OC ine c 
0870 79 ld a,c 
0871 E6 OF and OF mask out 
0873 FE OA cp 0A all keys done? 
0875 20 EI jr nz,0860 next 
0877 ci pop bc 
0878 3E 82 ld a,82 10000010; reset port A to output 
087A ED 79 out (c),a 8522 control 
087C 05 dec b 
087D ED 49 out (c),c 8522 port C 
087F CI ret 


087F 18 MACHINE PACK huslik, cpc464 inside out 


0880 C7 C7C7 C7C7C7C7cC7 


hr JUMP RESTORE standard jumpblock 


@ 063A! BD37! 
0888 11 AC 08. ld de,O8AC data for STANDARD JUMPBLOCK (copied to BBOO 
088B 21 00 BB ld h1,BBOO RAM address 
0882 OL CF BF ld bc,BFCF <b>=count, CF = rst 1 
0891 CD 97 08 call 0897 set up jump block 
0894 O1 EF 30 ld bc,30EF <b>=count, EF = rst 5 


-— set up jump block 
@ 0891! 0849 


0897 71 ld (hl),c 

0898 23 inc hl 

0899 1A ld a,(de) 

089A 77 ld (hl),a 

089B 13 inc de 

089C 23 inc hl 

089D EB ex de,hl 

089E 79 ld a,c 

089F 2F cpl 

08A0 07 rlca 

08Al 07 rlca 

08A2 E6 80 and 80 provide for ROM selection 
08A4 B6 or (hl) 

0845 EB ex de,hl 

0846 77 ld (hl),a 

0847 13 inc de 

0848 23 inc hl 

0849 10 EC djnz 0897 next 
08AB C9 ret 


. data for STANDARD JUMPBLOCK (copied to BBOO ... ) 


08AC EO 19 1E 1A 3C 1A 42 1A 77 lA BD 1A 2E 1B 7B 1A 56 1B 5C 1B 
08C4 5Cc 1\c 52 1D 3E 1D 57 1D 43 1D 5C 1D 48 1D AB IC A6 IC 6D IC 
08DC 82 1C 90 IC 78 10 88 10 51 14 4B 14 00 14 34 13 AB 13 A7 13 
08F4 40 15 5E 11 69 11 74 11 80 11 89 12 9A 12 79 12 81 12 CE 11 
990C A9 12 BD 12 AE 12 C3 12 C9 12 7A 13 87 13 DI 12 FI 12 FD 12 
0924 E8 10 07 11 BO 15 DF 15 F4 15 Fl 15 FC 15 04 16 12 16 34 17 
093C BC 17 C5 17 F6 17 04 18 FD 17 0A 18 13 18 10 18 27 18 24 18 
0954 45 19 AO OA Bl 0A 3C OB 45 OB 50 OB CA OA EC OA F7 OA 57 OB 
096C F9 0B 05 OC 13 OC 2D OC 86 OC AO OC EC OC 14 OD FL OC 19 0D 
0984 B3 OD B7 OD DF OD FA OD 3E OE F3 OE 49 OF 49 OC 6B OC C4 OF 
099C 7F 23 8E 23 4B 2A 4F 2A 51 2A 92 23 FC 23 01 24 35 24 AB 24 
09B4 AB 23 15 24 2E 24 5B 24 EA 24 28 25 3F 28 36 28 51 28 68 1E 
09cC 89 20 4A 20 CB lE E6 1E 38 23 3D 23 49 23 4E 23 5C 00 29 03 
09E4 B2 02 63 Ol 6A Ol 70 O1 76 Ol 7D O1 83 Ol B3 Ol C5 01 D2 O1 
09FC 85 02 56 02 1A 02 77 02 95 02 9B 02 8E 02 99 00 A3 00 DC 05 
0Al4 76 07 C6 07 86 07 99 07 E6 07 F2 07 1B 08 07 08 26 08 88 08 
0A2C 29 2E 55 2E 66 2E 8E 2E Al 2E AC 2E B6 2E 1D 2F 3F 33 37 33 
0A44A 9E 34 78 35 9A 35 F8 35 E8 35 AE 31 A3 31 OA 31 OD 31 14 30 
0A5SC BC 31 B2 31 31 32 41 32 5E 2E 94 2F Al 2F B7 2F E6 2F 08 37 
0A74 28 37 31 37 30 37 39 37 7A 37 81 37 50 37 8C 37 EI 37 D4 37 


--- copy (hl) bytes to address (hl+l),(hl+2) 
@ 07E9 OAB8! 108B! 15E2 L1A30! 


0OA8A 4E ld c,(hl) 

0A8B 06 00 ld b,00 <line end> 
0A8D 23 inc hl 

OA8BE 5E ld e,(hl) 

OA8SF 23 inc hl 

0A90 56 ld d,(hl) 

0A91 23 inc hl 

0A92 ED BO ldir 


huslik, cpc464 inside out MACHINE PACK 


BD 
69 
0C 
68 
2A 
79 
39 
64 
E4 
2F 
9A 
9F 
32 
E2 
0B 
98 
3B 
OF 
0E 
EO 


IC B3 1B 
Ic 71 Ic 
12 56 12 
12 68 12 
13 cB 14 
17 A6 17 
18 36 18 
0B A9 OB 
0C EB 0C 
10 70 23 
24 96 24 
IF 6C 20 
03 Al 02 
01 28 02 
06 BA 07 
2A 18 2E 
33 15 34 
30 90 30 
37 15 37 
37 


19 0492 


c9 ret 


C7 C7 CT C7TCTC7C7C7 C7C7C7 


SCR INITIALISE screen pack 
@ 0643! BBFF! 

1l 4D 10 ld de,104D 

CD 86 07 call 0786 

3E CO ld a,CO0 

32 CB Bl ld (BlCB),a 

CD Bl 0A call OABl 

c3 F2 0A jp OAF2 


SCR RESET screen pack 
@ 05F6! OAAB! BCO2! 

AF xor a 

CD 49 0C call 0C49 
21 BE 0A ld h1,0ABE 
CD 8A 0A call 0A8A 
c3 D2 0C jp OcD2 


ink colours, flash period 1 

MC CLEAR INKS to one colour, (de)=ink vector 
default value for 

SCR base of RAM for screen 

SCR RESET screen pack 

set up pixel bit map for mode 1 


set to write mode 0 (FORCE mode) 

SCR ACCESS, set write mode <a> for graph VDU 
data for SCREEN PACK JUMPBLOCK 

copy (hl) bytes to address (hl+1),(h1l+2) 
reset to default inks and times of flash per 


data for SCREEN PACK JUMPBLOCK 
09 E5 BD C3 82 0C C3 68 0C C3 F7 0A 


SCR SET MODE <a> 


@ BCOE! 

E6 03 and 03 

FE 03 cp 03 

DO ret nc 

F5 push af 

CD 4F OD call OD4F 
Fl pop af 

5F ld e,a 

cD B7 10 call 10B7 
F5 push af 

CD D6 15 call 15D6 
E5 push hl 

7B ld a,e 

CD 11 0B call OBll 
CD EB BD call BDEB 
El pop hl 

CD B6 15 call 15B6 
Fl pop af 


c3 D5 10 jp 1005 


SCR GET MODE <a>, cp Ol 


make sure it’s legal 
max = 2 


set all inks to present flashing period 


initialise all inks for 8 textstreams 


set up current pixel bitmap, mode=<a> 
SCR CLEAR screen to ink 0 


@ 0857! 0865! OBC3! OCC3! OEF3! OF4D! 1621! 174D! 17AD! 1995! BCll! 


3A C8 Bl ld a, (BlC8) 
FE 01 cp Ol 
c9 ret 


SCR screen mode 


set up pixel bit map for mode 1 


@ OAAE 
3E 01 ld a,0l 
CD 11 0B call OBll 


SCR CLEAR screen to ink 0 
@ BC14! BDEB 

CD 4F OD call OD4F 

21 00 00 ld h1,0000 

CD 3C OB call OB3C 

2A CA Bl ld hl, (BICA) 


2E 00 1d 1,00 
54 ld d,h 
1E 01 ld e,0l 
20 SCREEN PACK 


default mode | 
set up current pixel bitmap, mode=<a> 


set all in*s to present flashing period 
SCR SET OFFSET (hl) of screen start 

SCR offset to screen start 

=0. 


=1. 


huslik, cpc464 inside out 


0B64 
0865 


Ol FF 3F ld bce,3FFF count of screen bytes 

75 ld (h1l),1 

ED BO ldir 

c3 3C 0D jp OD3C ... 

set up current pixel bitmap, mode=<a> 

@ OADE! OAFA4! 

21 3A OB ld h1,0B3A mask for four pixels in a byte 
FE Ol cp Ol is it mode 1? 

38 08 jr c,0B20 no it’s 0 

21 36 OB ld h1,0B36 mask for two pixels in a byte 
28 03 jr z,0B20 it’s 1 

21 2E OB ld h1,0B2E mask for one pixel in a byte 
ll CF Bl ld de,BICF SCR currenr pixel bit map 

01 08 00 ld bc,0008 byte count to copy 

ED BO ldir 

32 C8 Bl ld (BlC8),a SCR screen mode 

c3 76 07 jp 0776 MC SET SCREEN MODE <a> 


mask for one pixel in a byte 
80 40 20 10 08 04 02 O1 


mask for two pixels in a byte 
88 44 22 11 


mask for four pixels in a byte 
AA 55 


SCR SET OFFSET (hl) of screen start 
@ OAFD! OE3B BCOS! 


TC ld a,h 

E6 07 and 07 make sure it’s legal 

67 ld h,a 

22 C9 Bl ld (BlC9),hl SCR SCREEN START 

18 05 jr OB4A 

SCR SET BASE of screen RAM <a> 

@ BCO8! 

E6 CO and CO make sure it’s legal 

32 CB Bl ld (BlCB),a SCR base of RAM for screen 

CD 50 OB call 0B50 SCR GET LOFATION of screen =<a>offset, =(hl) 
Cc3 C6 07 jp 07C6 MC set SCREEN OFFSET, <a>=base, <hl>=offset 


SCR GET LOCATION of screen =<a>offset, =(hl)offset 
@ OB4A! BCOB! 
@ OB4A! BCOB! 


2A C9 Bl ld h1,(BlC9) SCR SCREEN START 
3A CB Bl ld a, (BlCB) SCR base of RAM for screen 
c9 ret 


SCR CHAR LIMITS, <b>=columns, <c>=lines 
@ 120C! BC17! 


CD EC 0A call OAEC SCR GET MODE <a>, cp Ol 
01 18 13 ld bc,1318 19 columns, 24 lines 

D8 ret c 

06 27 ld b,27 39 columns 

c8 ret z 

06 4F ld b,4F 79 columns 

c9 ret 


SCR CHAR POSITION conv phys coord to screen pos 

in: <hl>=col/row; out: (hl)=top left addr of char, <b>=width 
@ OBAO! ODE2! OE49! OE85! OE89! OF4A! 1357! BC1A! 

D5 push de 

CD EC 0A call OAEC SCR GET MODE <a>, cp Ol 


huslik, cpc464 inside out SCREEN PACK 21 


0B65 


06 04 ld b,04 

38 05 jr c,0B71 
06 02 ld b,02 

28 01 jr z,0B71 
05 dec b 

C5 push bc 

5C ld e,h 

16 00 ld d,00 

62 ld h,d 

D5 push de 

54 ld d,h 

5D ld e,1 

29 add hl,hl 
29 add hl,hl 
19 add hl,de 
29 add hl,hl 
29 add hl,hl 
29 add hl,hl 
29 add hl,hl 
Dl pop de 

19 add hl,de 
10 Pd djnz OB81 
ED 5B C9 Bl ld de, (BlC9) 
19 add hl,de 
7C ld a,h 

E6 07 and 07 

67 ld h,a 

3A CB Bl ld a, (BlCB) 
84 add a,h 

67 ld h,a 

cı pop be 

Dl pop de 

c9 ret 


@ ODB4! OE44! 0E75! 


7B, ld a,e 
95 sub 1 

3C inc a 

87 add a,a 
87 add a,a 
87 add a,a 
5F ld e,a 

7A ld a,d 

94 sub h 

3C inc a 

57 ld d,a 

CD 64 0B call 0B64 
AF xor a 

82 add a,d 
10 FD djnz OBA4 
57 ld d,a 

c9 ret 


4 pixels per byte 
2 pixels per byte 


l pixel per byte 


<de>=<h>=column 


de=hl=line 


4*]ine+line 


(4*line+line)*16=80line 


+colum * # of pixels = screen address 
add next 
SCR SCREEN START 


make sure it’s legal 


SCR base of RAM for screen 


SCR CHAR POSITION conv phys coord to screen 


add next 


SCR DOT POSITION convert base coordinates to screen position 


in: <de>=x, <hl>=y, out: (hl)=addr, <c>=pixel mask, 


<b>=# of pixels 


@ OFD3! 1038! 17E8! 181A! 1830! 196F! 19B6! BCID! 


D5 push de 

EB ex de,hl 
21 C7 00 ld h1,00C7 
B7 or a 

ED 52 sbc hl,de 
7D ld a,1 

E6 07 and 07 

87 add a,a 

87 add a,a 

22 SCREEN PACK 


... 


mask out 


huslik, cpc464 inside out 


0BB9 E6 F8 


0BD5 CB 3A 
0BD7 CB 1B 


OBDA 38 F9 


OBDD ED 5B C9 Bl 


OBE3 E6 07 


OBE6 3A CB Bl 


OBEE 16 00 


OBFl 21 CF Bl 


add a,a 
ld c,a 
ld a,1 
and F8 
ld 1,a 
ld d,h 
ld e,l 
add hl,hl 
add hl,hl 
add hl,de 
add hl,hl 
pop de 
call OAEC 
ld b,01 
jr c,OBDO 
ld b,03 
jr z,OBDO 
ld b,07 
ld a,b 
and e 
push af 
ld a,b 
rrca 
srl d 
rre 
rrca 
jr c,0BD5 
add hl,de 
ld de, (BLC9) 
add hl,de 
ld a,h 
and 07 
ld h,a 
ld a, (BICB) 
add a,h 
add a,c 
ld h,a 
pop af 
push hl 
ld d,00 
ld e,a 
ld h1,BICF 
add hl,de 
ld c,(hl) 
ex de,hl 
pop hl 
ret 


11111000 


SCR GET MODE <a>, cp Ol 
=. 


=7. 


SCR SCREEN START 


=7. 


SCR base of RAM for screen 


=0. 


SCR current pixel bit map 


.— SCR NEXT BYTE, step screen addr (hl) right one byte 
in: (hl)=old screen addr, out: (hl)=new addr 
@ ODCO! ODEC! OEDB! OEDF! OF78! OFB3! OFFA! 100B! 1365! 197C! BC20! 


inc 1 

ret nz 
inc h 

ld a,h 
and 07 
ret nz 
ld a,h 
sub 08 
ld h,a 
ret 


huslik, cpc464 inside out 


mask out 


=8. 


SCREEN PACK 23 


0C04 


SCR PREV BYTE, step screen addr (hl) left one byte 
in: (hl)=old screen addr, out: (hl)=new addr 


@ BC23! 

7D ld a,1 

2D dec 1 

B7 or a 

co ret nz 

7C ld a,h 

25 dec h 

E6 07 and 07 mask out 
co ret nz 

7C ld a,h 

c6 08 add a,08 =8. 
67 ld h,a 

c9 ret 


SCR NEXT LINE, step screen addr (hl) down one line 
in: (hl)=old screen addr, out: (hl)=new addr 
@ ODD8! ODF3! OE5E! OE63! OF5B! OF93! OFBE! 136E! 1987! BC26! 


7C ld a,h 

c6 08 add a,08 =8. 
67 ld h,a 

E6 38 and 38 

co ret nz 

7C ld a,h 

D6 40 sub 40 =64. 
67 ld h,a 

7D ld a,1 

c6 50 add a,50 =80. 
6F ld 1,a 

DO ret nc 

24 inc h 

7C ld a,h 

E6 07 and 07 mask 
co ret nz 

7C ld a,h 

D6 08 sub 08 =8. 
67 ld h,a 

c9 ret 


SCR PREV LINE, step screen addr (hl) up one line 
in: (hl)=old screen addr, out: (hl)=new addr 
@ 0E90! 0E95! 1044! BC29! 


7C ld a,h 

D6 08 sub 08 =8. 
67 ld h,a 

E6 38 and 38 mask 
FE 38 cp 38 56. 
co ret nz 

7C ld a,h 

c6 40 add a,40 =64. 
67 ld h,a 

7D ld a,1 

D6 50 sub 50 =80. 
6F ld 1,a 

DO ret nc 

7C ld a,h 

23 dec h 

E6 07 and 07 mask 
co ret nz 

7C ld a,h 

Cc6 08 add a,08 =8. 
67 ld h,a 

c9 ret 


24 SCREEN PACK huslik, cpc464 inside 


out 


@ OAB2! BC59! 


0C49 E6 03 and 03 
0C4B 21 6B OC Id h1,0C6B 
OC4E 28 OF jr z,0C5F 
0C50 FE 02 cp 02 

0652 21 72 0C id h1,0C72 
0055 38 08 jr c,0C5F 
0657 21 77 0C Id h1,0C77 
0C5A 28 03 jr z,0C5F 
0C5c 21 7 0C Id h1,0C7D 


SCR PIXELS write, FORCE-mode 0, NEW=INK, 


SCR ACCESS, set write mode <a> for graph VDU 


make sure it’s legal 

SCR PIXELS write, FORCE-mode O0, NEW=INK, 
= OR-mode: 
check write mode 

write mode 3:%O0R-mode, NEW=ink OR old 

set up a jump instruction according to write 
write mode 2: AND-mode, NEW=ink AND old 

set up a jump instruction according to write 
write mode 1: KOR-mode, NEW=ink XOR old 


(hl 
new ink or old ink 


set up a jump instruction according to write mode 


(hl 


SCR WRITE pixel(s) (hl)=addr, <c>=mask, using curr graph write mode 
SCR PIXELS write, FORCE-mode O0, NEW=INK, (hl 


SCR PIXELS write, FORCE-mode 0, NEW=INK, (hl)=scer addr, <b>=ink, <c>=mask 


(hl)=addr, <c>=mask 


<a>=encoded ink 


VC5F 3E C3 ld a,C3 = jp 

0C61 32 CC Bl ld (BICC),a 

0C64 22 CD Bl ld (BICD),hl set jump address 

0067 CI ret 
@ BDE8 

0068 C3 cc Bl jp BICc 
@ OC4B: 13A4 BC5C! 

0C6B 7E ld a,(hl) 

0C6C AB xor b 

OC6D Bl or c 

OC6E A9 xor c 

OC6F AB xor b 

0C70 77 ld (hl),a 

0c71 c9 ret 

m write mode 3:XOR-mode, NEW=inkYOR old 

0672 78 ld a,b 

0073 Al and c 

0C74 AE xor (hl) 

0075 77 ld (hl),a 

0C76 CI ret 

----- write mode 2: AND-mode, NEW=ink AND old 

0077 79 ld a,c 

0078 2F cpl 

0C79 BO or b 

0C7A A6 and (hl) 

0OC7B 77 ld (hl),a 

OC7C c9 ret 

.-- write mode 1: POR-mode, NEW=ink OR old 

OCT 78 ld a,b 

OC7E Al and c 

OC7F B6 or (hl) 

0C80 77 ld (hl),a 

0C8l c9 ret 

— SCR READ a pixel from the screen, 
@ BDE5 

0C82 7E ld a,(hl) 

0083 C3 AC OC jp OCAC BR 

.- SCR INK ENCODE, in: <a>=ink#, out: 
@ 12B6! 17F6! 17FD! BC2C! 

0C86 C5 push bc 

0C87 D5 push de 

0C88 CD C2 0C call 0CC2 ... 

0C8B 5F ld e,a 


huslik, cpc464 inside out 


SCREEN PACK 25 0C8B 


OCE4 


SCR INK DECODE, in: 


08 ld b,08 
CF Bl ld a, (BICF) 
ld c,a 
OB rrc e 
rla 
09 rrec 
02 jr c,0C9B 
‚03 rlc e 
F5 djnz 0C92 
pop de 
pop bc 
ret 


=8. 
SCR current pixel bit map 


<a>=encoded ink; vut: <a>=ink# 


@ 12C0 12C6 1807 180D BC2F! 


SCR current pixel bit map 


SCR GET MODE <a>, cp Ol 


add carry 


mask 


reset to default inks and times of flash period | 


C5 push bc 

47 ld b,a 

3A CF Bl ld a,(BLCF) 
4F ld c,a 

78 ld a,b 

CD AC 0C call OCAC 
cl pop be 

c9 ret 

@ 0C83 OCA7! 

D5 push de 

11 08 00 ld de,0008 
OF rrca 

CB 12 rld 

CB 09 Tre c 

38 02 jr c,0CB9 
CB 1A rrd 

1D dec e 

20 F4 jr nz,OCBO 
7A ld a,d 

cD Cc2 0C call 0CC2 
Dl pop de 

c9 ret 

@ 0C88! OCBD! 

57 ld d,a 

CD EC 0A call OAEC 
7A ld a,d 

DO ret nc 

OF rrca 

OF rrca 

CE 00 adc a,00 
OF rrca 

9F sbc a,a 

E6 06 and 06 

AA xor d 

c9 ret 

@ OABB 

21 4D 10 ld h1,104D 


11 
ol 
ED 
AF 
32 
21 


26 


D9 Bl ld de,B1D9 


22 00 ld bc,0022 
BO ldir 
xor a 


FB Bl ld (BIFB),a 
0A 0A ld h1,0A0A 


SCREEN PACK 


ink colours, flash period 1 
SCR table of colours, flash period 1 
len of block 


set to flashing period 1 


SCR flag which flash period is on (l or 2) 
default flashing periods 10.,10. 


huslik, cpc464 inside out 


SCR SET FLASHING PERIODS <h,1> 


@ BC3E! 
22 D7 Bl ld (BlD7),hl SCR time for flashing period 1 
c9 ret 


SCR GET FLASHING PERIODS <h,1> 


@ BCAL! 
2A D7 Bl ld h1,(B1D7) SCR time for flashing period 1 
c9 ret 


SCR SET colour of INK, <a>=ink#, <b,c>=colours 
@ 14EE BC32! 


E6 OF and OF make sure it’s legal 

3C inc a 

18 01 jr OCF2 

SCR SET BORDER, <b,c>=colours 

@ 14F5 BC38! 

AF xor a 

5F ld e,a 

78 1d a,b 

CD OA 0D call ODOA get colour hardware# in <hl> 
46 ld b,(hl) 

79 ld a,c 

CD OA OD call 0DOA get colour hardware# in <hl> 
4E ld c,(hl) 

7B ld a,e 

CD 2F OD call 0D2F get pointers (hl), (de), to colour <a> 
11 1d (hl),c 

EB ex de,hl 

70 1d (h1),b 

3E FF ld a,FF set 

32 FC Bl Id (BIFC),a SCR flag 

c9 ret 


get colour hardware# in <hl> 
@ OCF4! OCF9! 


E6 IF and IF mask out 

c6 93 add a,93 

6F ld 1,a 

CE 0D adc a,0D <hl>=<a>+0N93 (table of colours) 
95 sub 1 

67 ld h,a 

c9 ret 


SCR GET colour(s) of INK, =<b,c> 


@ BC35! 

E6 OF and OF make sure it’s legal 

3C inc a 

18 01 jr ODIA 

SCR GET colour of BORDER 

@ BC3B! 

AF xor a 

CD 2F OD call OD2F get pointers (hl), (de), to colour <a> 
1A ld a,(de) 

5E ld e,(hl) 

CD 24 OD call 0D24 look up hardware# for colour <a> 
4 ld b,c 

7B ld a,e 


huslik, cpc464 inside out SCREEN PACK 27 


0024 


.---- look up hardware# for colour <a> 


@ ODIF! 
0D24 OE 00 ld c,00 =0. 
0D26 21 93 OD ld h1,0D93 table of colour hardware numbers 
0029 BE cp (hl) 
0D2A C8 ret z 
0D2B 23 inc hl 
0D2C O0C ine c 
0D2D 18 FA jr 0D29 next 


-- get pointers (hl), (de), to colour <a> 
@ OCFE! ODIA! 


0D2F 5F ld e,a 
0D30 16 00 ld d,00 clear hi part 
0D32 21 EA Bl ld h1,BlEA SCR table of colours, flash period 2 
0035 19 add hl,de 
0D36 EB ex de,hl 
0037 21 EF FF ld h1,FFEF = -17. 
0D3A 19 add hl,de 
0D3B C9 ret 
@ OBOE 
0D3C 21 FE Bl ld h1,BlFE SCR FRAME FLY LIST 
OD3F ES push hl 
0D40 CD 70 O1 call 0170 KL DEL FRAME FLY, remove a block (hl) from t 
0D43 CD 6D OD call OD6D change flash period, change colours 
0D46 11 5B OD ld de,OD5B decrement flash timer 
0D49 06 81 ld b,81 =129. 
0OD4B EI pop hl 
ODAC C3 63 01 jp 0163 KL NEW FRAME FLY, (hl)=addr, <b>=class, <de, 
— set all inks to present flashing period 
@ OADO! OAF7! 
OD4F 21 FE Bl ld h1,BIFE SCR FRAME FLY LIST 
0D52 CD 70 01 call 0170 KL DEL FRAME FLY, remove a block (hl) from t 
0055 CD 81 0D call OD81 get colour table (de) of flash period 1 or 2 
0058 C3 86 07 jp 0786 MC CLEAR INKS to one colour, (de)=ink vector 
._— decrement flash timer 
@ 0D46: 
OD5B 21 FD Bl ld h1,BLFD time count for current flash period 
0D5E 35 dec (hl) decrement timer 
OD5F 28 0C jr z,O0D6D change flash period, change colours 
O0D61 2B dec hl 
0D62 T7E ld a,(hl) BLFC 
0D63 B7 or a 
0D64 C8 ret z 
0065 CD 81 0D call OD81 get colour table (de) of flash period 1 or 2 
0D68 CD 99 07 call 0799 MC SET INKS, (de)=ink vector 
0D6B 18 OF jr OD7C 


— change flash period, change colours 
@ 0D43! OD5F’ 


0D6D CD 81 OD call OD81 get colour table (de) of flash period 1 or 2 
0070 32 FD Bl ld (BIFD),a time count for current flash period 

0073 CD 99 07 call 0799 MC SET INKS, (de)=ink vector 

0076 21 FB Bl ld hl,BlFB SCR flag which flash period is on (l or 2) 
0079 T7E ld a,(hl) 

OD7A 2F cpl flip flag 

0OD7B 77 ld (hl),a and store back 

0D7C AF xor a reset 

0OD7D 32 FC Bl ld (BIFC),a SCR flag 

0D80 cC9 ret 


0D80 28 SCREEN PACK huslik, cpc464 inside out 


----- get colour table (de) of flash period 1 or 2; <a>=time setup 
@ 0055! 0D65! OD6D! 


OD81l 11 EA Bl ld de,BlEA SCR table of colours, flash period 2 

0D84 3A FB Bl ld a, (BlFB) SCR flag which flash period is on (l or 2) 
0087 B7 or a 

0D88 3A DB Bl ld a, (B1D8) SCR time for flashing period 2 

0D8B C8 ret z 

0OD8C 11 D9 Bl ld de,BlD9 SCR table of colours, flash period 1 

OD8F 3A D7 Bl ld a,(BlD7) flash period for colour 1 

0092 c9 ret 


— table of colour hardware numbers 

@ 0D26: 
0D93 14 04 15 IC 18 1D OC 05 OD 16 06 17 1E 00 IF OE 
0DA3 07 OF 12 02 13 1A 19 1B OA 03 OB Ol 08 09 10 11 


- SCR FILL BOX, <a>=ink, <hl,de>=corners 
@ 1569! 1580! 159A! BC44! 

0ODB3 4F ld c,a 

ODB4 CD 95 OB call 0B95 ... 


-- SCR FLOOD BOX, <a>=ink, <hl>=left top, <de>=width/height 
@ ODDC’ 0E34 OE70 L17FO! BC47! 


0DB7 ES push hl 

0DB8 7A ld a,d 

0DB9 CD EB OE call OEE8 ... 

0ODBC 30 09 jr nc,0DC7 ... 

ODBE 42 ld b,d 

ODBF 71 ld (hl),c 

0DCO CD F9 OB call OBF9 SCR NEXT BYTE, step screen addr (hl) right o 
0Dpc3 10 FA djnz ODBF next character position 

0DC5 18 10 jr 0DD7 ... 

0DC7 c5 push be 

0DC8 D5 push de 

0DC9 71 ld (hl),c 

ODCA 15 dec d 

ODCB 28 08 jr z,0DD5 ... 

ODCD 4A ld c,d 

ODCE 06 00 ld b,00 hi part =0 

0DDO 54 ld d,h 

0DDI 5D ld e,l 

0pD2 13 inc de 

0DD3 ED BO ldir 

0pDd5 DI pop de 

0DD6 CI pop bc 

0DD7 EI pop hl 

0DD8 CD 13 0C call 0C13 SCR NEXT LINE, step screen addr (hl) down on 
ODDB ID dec e 

ODDC 20 DI jr nz,ODB7 SCR FLOOD BOX, <a>=ink, <hl>=left top, <de>= 
ODDE C9I ret 


. SCR CHAR INVERT, (hl)=char pos, <b,c>=inks 
@ 1272! BC4A! 


ODDF 78 ld a,b 

0ODEO A9 xor c 

ODEL 4F ld c,a 

ODE2 CD 64 OB call 0B64 SCR CHAR POSITION conv phys coord to screen. 
0DE5S .16 08 ld d,08 =8. 

0DE7 ES push hl 

0DEß C5 push bc 

0DE9 TE ld a,(hl) 

ODEA A9 xor c 

ODEB 77 ld (hl),a 

ODEC CD F9 OB call OBF9 SCR NEXT BYTE, step screen addr (hl) right o 
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10 F8 djnz ODE9I next 

cl pop be 

El pop hl 

CD 13 0C call 0C13 SCR NEXT LINE, step screen addr (hl) down on 
15 dec d 

20 EE jr nz,ODE7? next 

c9 ret 


SCR HARDWARE SCROLL, <a>=ink for new line, <b>=0=down, else up 
@ 11C9! BC4D! 


4F ld c,a 

c5 push bc 

11 DO FF ld de,FFDO =-48, 

06 30 ld b,30 =+48. 

CD 24 0E call 0E24 fill new line with ink <a> 

cl pop be 

CD BA 07 call 07BA MC WAIT FLYBACK 

78 ld a,b 

B7 or a 

20 0D jr nz,0El9 down 

ll BO FF ld de,FFBO <e>=-80. 

cD 37 0E call 0E37 inc offset of SCREEN START by <de> 
11 00 00 ld de,0000 

06 20 ld b,20 =32. 

18 0B jr 0E24 fill new line with ink <a> 

down 

11 50 00 ld de,0050 =+80. 

cD 37 OE call 0E37 inc offset of SCREEN START by <de> 
11 BO FF ld de,FFBO =-80. 

06 20 ld b,20 =32. 

fill new line with ink <a> 

@ OEOL! OEL7’ 

2A C9 Bl ld hl, (B1C9) SCR SCREEN START 

19 add hl,de 

7C ld a,h 

E6 07 and 07 make sure it’s legal 

67 ld h,a 

3A CB Bl ld a, (BlCB) SCR base of RAM for screen 

84 add a,h 

67 ld h,a 

50 ld d,b 

lE 08 ld e,08 height 

c3 B7 OD jp 0DB7 SCR FLOOD BOX, <a>=ink, <hl>=left top, <de>= 
inc offset of SCREEN START by <de> 

@ OEOF! OEIC! 

2A C9 Bl ld h1,(BlC9) SCR SCREEN START 

19 add hl,de 

c3 3C OB jp OB3C SCR SET OFFSET (hl) of screen start 
SCR WINDOW SCROLL up or down 

(hl)=left top, (de)=right bottom, <a>=new ink, <b>=0=down, else up 
@ 11C5! BC50! 

F5 push af 

78 ld a,b 

B7 or a 

28 30 jr z,0E73 up 

E5 push hl 

CD 95 OB call 0B95 ... 

E3 “ex (sp),hl 

2C inc 1 

CD 64 OB call 0B64 SCR CHAR POSITION conv phys coord to screen 
4A ld c,d 

30 SCREEN PACK huslik, cpc464 inside out 


0E4D 7B ld a,e 
0OE4E D6 08 sub 08 
0E50 47 ld b,a 
0E5l 28 17 jr z,0E6A 
0E53 DI pop de 
0E54 CD BA 07 call 07BA 
0E57 C5 push bc 
0E58 ES push hl 
0E59 D5 push de 
0E5SA CD A4 OE call OEA4 
0ESD EI pop hl 
0E5E CD 13 0C call 0C13 
0OE61l EB ex de,hl 
0E62 EI pop hl 
0E63 CD 13 0C call 0C13 
0E66 CI pop bc 
0E67 10 EE djnz 0E57 
0E69 D5 push de 

@ OE51’” OE7F’ OEA2” 
0E6A El pop hl 
0E6B 51 1d d,c 
0E6C IE 08 ld e,08 
OE6E Fl pop af 
0OE6F 4F ld c,a 
0E70 C3 B7 OD jp ODB7 
BREER up 
9E73 ES push hl 
0E74 D5 push de 
0E75 CD 95 0B call 0B95 
0E78 4A ld c,d 
0E79 7B ld a,e 
0E7A D6 08 sub 08 
0ETC 47 ld b,a 
0E7D DI pop de 
0ETE E3 ex (sp),hl 
0E7F 28 EI jr z,0E6A 
0E81l C5 push bc 
0E82 6B ld l,e 
0E83 54 ld d,h 
0ES4 IC inc e 
0E85 CD 64 OB call 0864 
0E88 EB ex de,hl 
0E89 CD 64 OB call 0B64 
0ESC CI pop be 
0E8D CD BA 07 call 07BA 
0E90O CD 2D OC call 0C2D 
0E93 ES push hl 
0E94 EB ex de,hl 
0E95 CD 2D 0C call 0C2D 
0E98 ES push hl 
0E99 C5 push bc 
0E9A CD A4 OE call OEA4 
0E9D CI pop be 
0E9E DI pop de 
0E9F EI pop hl 
0EAO 10 EE djnz 0E9O 
0EA2 18 C6 jr 0E6A 

@ OE5SA! OE9YA! 
0EA4 06 00 ld b,00 
0EA6b CD E6 0E call OEE6 
0EAI 38 16 jr e,0EC1 
0OEAB CD E6 OE call OEE6 
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=8. 


MC WAIT FLYBACK 


SCR NEXT LINE, step screen addr (hl) down on 


SCR NEXT LINE, step screen addr (hl) down on 


next 


=8. 


SCR 


SCR CHAR POSITION conv phys coord to 


SCR CHAR POSITION conv phys coord to 


FLOOD BOX, <a>=ink, <hl>=left top, <de>= 


MC WAIT FLYBACK 


SCR 


SCR 


PREV LINE, step screen addr (hl) 


PREV LINE, step screen addr (hl) 


SCREEN PACK 


screen 


screen 


up one 


up one 


31 OEAB 


30 25 jr nc,0ED5 
Cc5 push bc 
AF xor a 

95 sub 1 

4F ld c,a 
ED BO ldir 

cl pop bc 

2F cpl 

3C inc a 

8 add a,c 
4F ld c,a 

7C ld a,h 

D6 08 sub 08 

67 ld h,a 

18 14 jr O0ED5 
CD E6 0E call OEE6 
38 12 jr c,0ED8 
c5 push bc 
AF xor a 

93 sub e 

AF ld c,a 
ED BO ldir 

cl pop bc 

2F cpl 

3C inc a 

8 add a,c 
4F ld c,a 

7A ld a,d 

D6 08 sub 08 

57 ld d,a 

ED BO ldir 

c9 ret 

4 ld b,c 

7E ld a, (hl) 
12 ld (de),a 
CD F9 OB call OBF9 
EB ex de,hl 
CD F9 OB call OBF9 
EB ex de,hl 
10 F4 djnz OED9I 
c9 ret 


@ OEA6! OEAB! OECL! 


79 ld a,c 
EB ex de,hl 
@ ODB9! 

3D dec a 
85 add a,l 
DO ret nc 
7C ld a,h 
E6 07 and 07 
EE 07 xor 07 
co ret nz 
37 scf 

c9 ret 


... 


=8, 


SCR NEXT BYTE, step screen addr (hl) right o 
SCR NEXT BYTE, step screen addr (hl) right o 


=]. 
=7. 


SCR UNPACK, (hl)=matrix address, (de)=destination 


@ 1352! BC53! 
CD EC 0A call OAEC 


06 08 ld b,08 
38 31 jr c,OF2B 
28 06 jr z,0F02 
32 SCREEN PACK 


SCR GET MODE <a>, cp Ol 
byte count 

mode 0 

mode 1 


huslik, cpc464 inside out 


0OEFC 01 08 00 
OEFF ED BO 
0F0l cC9 


OFO8 21 CF Bl 


OFl8 21 CF Bl 


OF32 21 CF Bl 


OF46 10 E3 


1d bc,0008 
ldir 
ret 


ld c,(hl) 
inc hl 
push hl 
push bc 
ld b,04 
ld hl,BICcF 
xor a 
rle c 
jr nc,OFll 
or (hl) 
inc hl 
djnz OFOC 
ld (de),a 
inc de 
ld b,04 
ld hl,BICF 
xor a 
rlce c 
jr nc,OF21 
or (hl) 
inc hl 
djnz OFIC 
ld (de),a 
inc de 
pop bc 
pop hl 
djnz OFO2 
ret 


ld c,(hl) 
inc hl 
push hl 
push bc 
ld b,04 
xor a 
ld hl,BlCF 
rlce c 
jr nc,OF3A 
ld a,(hl) 
inc hl 
rlec 
jr nc,ÖF40 
or (hl) 
ld (de),a 
inc de 
djnz OF31 
pop bc 
pop hl 
djnz OF2B 
ret 


mode 2 


=4. 
SCR current pixel bit map 


„4. 
SCR current pixel bit map 


mode 1 


„ı. 


SCR current pixel bit map 


mode 0 


----- SCR REPACK char matrix, <a>=ink to match, (hl)=char pos, (de)=dest. 
@ 13C8! 13D7! BC56! 


ld c,a 
call 0B64 
call OAEC 
ld b,08 
jr c,0F99 
jr z,OF61 


huslik, cpc464 inside out 


SCR CHAR POSITION conv phys coord to screen 
SCR GET MODE <a>, cp Ol 

=8. 

mode 0 

mode 1 


SCREEN PACK 33 0F54 


7E ld a,(hl) 

A9 xor c 

2F cpl 

12 ld (de),a 

13 inc de 

cD 13 0C call 0C13 

10 F6 djnz OF56 

c9 ret 

mode 1 

E5 push hl 

D5 push de 

E5 push hl 

7E ld a,(hl) 
A9 xor c 

21 CF Bl ld h1,BlCF 
16 04 ld d,04 
F5 push af 
A6 and (hl) 
20 01 jr nz,OF70 
37 scf 

CB 13 rle 

23 inc hl 
Fl pop af 

15 dec d 

20 F4 jr nz,OF6B 
El pop hl 

CD F9 OB call OBF9 
7E ld a,(hl) 
A9 xor c 

21 CF Bl ld h1,BICF 
16 04 ld d,04 

F5 push af 

A6 and (hl) 
20 01 jr nz,0F87 
37 scf 

CB 13 rle 

23 inc hl 

Fl pop af 

15 dec d 

20 F4 jr nz,0F82 
El pop hl 

73 ld (hl),e 
EB ex de,hl 

13 inc de 

El pop hl 

cD 13 0C call 0C13 

10 c9 djnz OF61 

c9 ret 

mode 0 

E5 push hl 

D5 push de 

16 04 ld d,04 

7E ld a,(hl) 
E5 push hl 

A9 xor c 

F5 push af 
21 CF Bl ld h1,BlCF 
A6 and (hl) 
20 01 jr nz,OFAS 
37 scf 

cB 13 rle 

Fl pop af 

23 inc hl 

34 SCREEN PACK 


SCR NEXT LINE, step screen addr (hl) down on 
next 


SCR current pixel bit map 
=4. 


next 


SCR NEXT BYTE, step screen addr (hl) right o 


SCR current pixel bit map 
=4. 


SCR NEXT LINE, step screen addr (hl) down on 
mode 1 


=4. 


SCR current pixel bit map 


... 


huslik, cpc464 inside out 


OFAC A6 and (hl) 


OFAD 20 O1 jr nz,OFBO ... 

OFAF 37 scf 

OFBO CB 13 rle 

OFB2 EI pop hl 

OFB3 CD F9 OB call OBF9 SCR NEXT BYTE, step screen addr (hl) right o 
OFB6 15 dec d 

OFB7 20 E4 jr nz,OF9D ... 

OFBI EL pop hl 

OFBA 73 ld (hl),e 

OFBB EB ex de,hl 

OFBC 13 inc de 

OFBD EI pop hl 

OFBE CD 13 0C call 0C13 SCR NEXT LINE, step screen addr (hl) down on 
OFCl 10 D6 djnz OF99 mode 0 

OFC3 C9I ret 


---- SCR HORIZONTAL line plot, <a>=ink, de=xbase, bc=xend, hl=ybase 
@ 190D! BC5F! 


OFC4 F5 push af 

OFC5 ES push hl 

OFC6 7A ld a,d 

OFC7 2F cpl 

OFC8 67 ld h,a 

OFC9 7B ld a,e 

OFCA 2F cpl 

OFCB 6F ld 1,a 

OFCC 23 inc hl 

OFCD 09 add hl,bc 

OFCE 23 inc hl 

OFCF E3 ex (sp),hl 

OFDO AF xor a 

OFDl 93 sub e 

OFD2 F5 push af 

OFD3 CD A9 OB call OBA9 SCR DOT POSITION convert base coordinates to 
OFD6 ES push hl 

OFD7 78 ld a,b 

OFD8 2F cpl 

OFD9 6F ld 1,a 

OFDA 26 FF ld h,FF =255. 
OFDC 22 07 B2 ld (B207),hl ... 
OFDF EL pop hl 

OFEO Fl pop af 

OFEl AO and b 

OFE2 47 ld b,a 

OFE3 28 45 jr z,102A ... 
OFE5S E3 ex (sp),hl 

OFE6 18 03 jr OFEB ... 
OFES 1A ld a,(de) 

OFE9 Bl or c 

OFEA 4F ld c,a 

OFEB 2B dec hl 

OFEC 7C ld a,h 

OFED B5 or | 

OFEE 28 34 jr z,1024 ... 
OFFO 13 inc de 

OFFL 10 F5 dinz OFE8 ... 
OFF3 EB ex de,hl 

OFF4 EI pop hl 

OFF5S Fl pop af 

OFF6 47 ld b,a 

OFF7_ CD ES BD call BDE8 SCR WRITE pixel(s) (hl)=addr, <c>=mask, usin 
OFFA CD F9 OB call OBF9 SCR NEXT BYTE, step screen addr (hl) right o 
OFFD ES push hl 


huslik, cpc464 inside out SCREEN PACK 35 OFFD 


104C 


28 0E 


2L CF 


20 FB 


c3 E8 


Cc3 E8 


18 CE 


B2 ld hl, (B207) 
add hl,de 
jr nc,1010 
ex de,hl 

pop hl 
ld c,FF 

BD call BDE8 

OB call OBF9 

jr OFFD 


ld a,e 
or a 
jr z,1022 
xor a 
Bl ld hl,BICF 
or (hl) 
inc hl 
dec e 
jr nz,1018 
ld c,a 
pop hl 
BD jp BDE8 


pop hl 
ret 


pop hl 
pop af 
ld b,a 
BD jp BDE8 


pop de 
pop af 

ld b,a 

jr OFFD 


=255. 
SCR WRITE pixel(s) (hl)=addr, <c>=mask, usin 
SCR NEXT BYTE, step screen addr (hl) right o 


... 


SCR current pixel bit map 


SCR WRITE pixel(s) (hl)=addr, <c>=mask, usin 


SCR WRITE pixel(s) (hl)=addr, <c>=mask, usin 


... 


SCR VERTICAL line plot, <a>=ink, de=xbase, bc=yend, hl=ybase 
@ 19321 BC62! 


CD A9 


CD EB 
CD 2D 


20 F5 


push af 
push hl 
ld a,h 
cpl 
ld h,a 
ld a,1 
cepl 
ld 1,a 
inc hl 
add hl,bc 
inc hl 
ex (sp),hl 
OB call OBA9 
pop de 
pop af 
ld b,a 
BD call BDE8 
0C call 0C2D 
dec de 
ld a,d 
or e 
jr nz,1041 
ret 


SCREEN PACK 


SCR DOT POSITION convert base coordinates to 


SCR WRITE pixel(s) (hl)=addr, <c>=mask, usin 
SCR PREV LINE, step screen addr (hl) up one 


next 


huslik, cpc464 inside out 


----- ink colours, flash period 1 
@ 0AAO: OCD2: 
104D 04 04 OA 13 OC OB 14 15 OD 06 lE IF 07 12 19 04 17 


— ink colours, flash period 2 
105E 04 04 OA 13 OC OB 14 15 OD 06 lE IF 07 12 19 0A 07 


106F C7 C7C7C7C7C7C7C7 c7 


— TXT INITIALISE text VDU 


@ 0646! BB4E! 
1078 CD 88 10 call 1088 TXT RESET text VDU 
107B AF xor a 
107C 32 95 B2 ld (B295),a TXT flag for user matrix table 
107F 21 01 00 ld h1,0001 default inks PAPER 00, PEN Ol 
1082 CD 3D 11 call 113D set PAPER/PEN to <hl>, set default window 
1085 C3 A3 10 jp 1043 initialise all windows 
— TXT RESET text VDU 
@ 05F3! 1078! BB5l! 
1088 21 91 10 ld h1,1091 data for VDU jumpblock 
108B CD 8A 0A call OA8A copy (hl) hytes to address (hl+l),(hl+2) 
108E C3 5B 14 jp 145B TXT reset to default control code table 
 — data for VDU jumpblock 
@ 1088: 


1091 OF CD BD C3 63 12 C3 63 12 C3 4A 13 C3 CO 13 C3 0C 14 


-—— initialise all windows 


@ 1085 
1043 3E 08 ld a,08 # of textstreams 
10A5 11 0D B2 1d de,B20D TXT table for text stream parameters (8 time 
10A8 21 85 B2 ld h1,B285 TXT CURSOR column/row 
10AB O1 OF 00 ld bc,000F count 
10AE ED BO ldir 
10B0 3D dec a 
10Bl 20 F5 jr nz,10A8 next stream 
10B3 32 0C B2 ld (B20C),a TXT current text stream selected 
10B6 C9 ret select text stream #0 


-—— initialise all inks for 8 textstreams 


@ OAD5! 
10B7 3A 0C B2 ld a, (B20C) TXT current text stream selected 
10BA 4F ld c,a 
10BB 06 08 ld b,08 count of textstreams 
10BD 78 ld a,b 
10BE 3D dec a 
10BF CD E8 10 call 10E8 TXT STREAM <a> SELECT, <a>=old text stream 
10C2 CD DO BD call BDDO TXT DRAW/UNDRAW CURSOR, if enabled 
10065 cD c3 12 call 12C3 TXT GET PAPER ink =<a> 
10C8 32 90 B2 ld (B290),a TXT PAPER ink 
10CB CD BD 12 call 12BD TXT GET PEN ink, =<a> 
1l0OCE 32 8F B2 ld (B28F),a TXT PEN ink 
10Dl 10 EA djnz 10BD next 
1003 79 ld a,c 
10D4 cC9 ret 
@ OAE9 
1005 4F ld c,a 
10D6 06 08 ld b,08 =8. 
10D8 78 ld a,b 
1009 3D dec a 
10DA CD ES 10 call 10E8 TXT STREAM <a> SELECT, <a>=old text stream 
10DD C5 push bc 
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2A 8F B2 
CD 3D 11 
cl 

10 Fl 

79 


ld hl, (B28F) TXT PEN ink 


call 113D set PAPER/PEN to <hl>, set default window 
pop be 
djnz 10D8 next text stream 
ld a,c 


TXT STREAM <a> SELECT, <a>=old text stream 
@ 10BF! 10DA! 110C! 1120° BBB4! 


E6 07 

21 0C B2 
BE 

c8 

c5 

D5 

4E 

77 

47 

79 

cD 2A 11 
cD 22 11 
78 

CD 2A 11 
EB 

cD 22 11 
79 

Di 

cı 

c9 


TXT SWAP 
@ BBB7I 
3A 0C B2 
F5 

79 

CD ES 10 
78 

32 0C B2 
CD 2A 11 
D5 

79 

CD 2A 11 
El 

cD 22 11 
Fl 

18 C6 


copy 15. 


and 07 make sure it’s legal 
ld h1,B20C TXT current text stream selected 
cp (hl) 
ret z no change, return 
push bc 
push de 
ld c,(hl) 
ld (hl),a 
ld b,a 
ld a,c 
call 112A get start of textstream parameters 
call 1122 copy 15. bytes (hl) to (de) 
ld a,b 
call 112A get start of textstream parameters 
ex de,hl 
call 1122 copy 15. bytes (hl) to (de) 
ld a,c 
pop de 
pop bc 
ret 


STREAMS <b> with <c> 


ld a, (B20C) TXT current text stream selected 
push af 
ld a,c 
call 10E8 TXT STREAM <a> SELECT, <a>=old text stream 
ld a,b 
ld (B20C),a TXT current text stream selected 
call 112A get start of textstream parameters 
push de 
ld a,c 
call 112A get start of textstream parameters 
pop hl 
call 1122 copy 15. bytes (hl) to (de) 
pop af 
jr 10E8 TXT STREAM <a> SELECT, <a>=old text strean 


bytes (hl) to (de) 


@ 10F8I 11001 1l1c! 


c5 

ol OF 00 
ED BO 

cl 

c9 


push bc 
ld bc,000F count = 15. 
ldir 

pop bc 

ret 


get start of textstream parameters 
@ 10F5! 10FC! 1113! 1118! 


E6 07 
5F 
87 
87 
87 
87 
93 
C6 OD 
SF 


and 07 make sure it’s legal 
ld e,a 

add a,a 

add a,a 

add a,a 

add a,a 

sub e 

add a,0D <de>=<a>%*15+B20D 

ld e,a 
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1135 CE B2 adc a,B2 


1137 93 sub e 
1138 57 ld d,a 
1139 21 85 B2 ld h1,B285 TXT CURSOR column/row 
113C c9 ret 
----- set PAPER/PEN to <hl>, set default window 
@ 1082! 10El! 
113D EB ex de,hl 
113E 3E 03 ld a,03 =3, 
1140 32 8D B2 ld (B28D),a TXT cursor enable flag (user) 
1143 7A ld a,d 
1144 CD .AE 12 call 12AE TXT SET PAPER ink <a> 
1147 78 ld a,e 
1148 CD A9 12 call 12A9 TXT SET PEN ink <a> 
1l4B AF xor a off 
llac CD A7 13 call 13A7 TXT SET GRAPHIC char write, <a>=0=0OFF, FF=ON 
ll4F CD 7A 13 call 137A TXT SET BACKground being written <a> 
1152 21 00 00 ld h1,0000 
1155 11 7F 7F ld de,7F7F default window = 127. x 127. 
1158 CD 0C 12 call 120C TXT SET WINDOW <hl>=left top, <de>=right bot 
115B C3 51 14 jp 1451 TXT VDU ENABLE 


—— TXT SET cursor to COLUMN <a> 
@ 2787! BB6F! 


115E 3D dec a 
1l5F 21 89 B2 ld h1,B289 TXT column, window left upper corner 
1162 86 add a,(hl) 
1163 2A 85 B2 ld hl, (B285) TXT CURSOR column/row 
1166 67 ld h,a 
1167 18 OE jr 1177 undraw cursor, if enabled 
----- TXT SET cursor to ROW <a> 
@ BB72! 
1169 3D dec a 
1l6A 21 88 B2 ld h1,B288 TXT row; window left upper corner 
116D 86 add a,(hl) 
L16E 2A 85 B2 ld h1, (B285) TXT CURSOR column/row 
1171 6F ld 1,a 
1172 18 03 jr 1177 undraw cursor, if enabled 


.- TXT SET CURSOR, <hl>=colum/row 
@ 153D 2CEO! 2CE7 2D03! 2DOE! 2D7E! BB75! 
1174 CD 8A 11 call 118A HL = HL + cursor address 


-_--- undraw cursor, if enabled 
@ 1167° 1172° 1241 152D 


1177 CD DO BD call BDDO TXT DRAW/UNDRAW CURSOR, if enabled 
-- draw cursor, if enabled 
@ 1527 
117A 22 85 B2 ld (B285),hl TXT CURSOR column/row 
117D C3 CD BD jp BDCD TXT DRAW/UNDRAW CURSOR, if enabled 


.—- TXT GET CURSOR position (hl), roll count <a> 
@ 271F! 2792! 2B52! 2BF3! 2CBl! 2CDC! 2CEC! 2CFB! 2D56! 2D6A! 2077! 
@ 2D8A! 2DAD! 2DC3! 2DD9! 2DE9! BB78! 


1180 2A 85 B2 ld hl, (B285) TXT CURSOR column/row 
1183 CD 97 11 call 1197 HL = HL - cursor address 
1186 3A 8C B2 ld a, (B28C) TXT roll count 

1189 c9 ret 
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11D9 


HL = HL + cursor address 
@ 1174! 11CE! 


3A 88 B2 ld a, (B288) TXT row; window left upper corner 
3D dec a 

85 add a,l 

6F 1d 1,a 

3A 89 B2 ld a, (B289) TXT colum, window left upper corner 
3D dec a 

84 add a,h 

67 ld h,a 

c9 ret 

HL = HL - cursor address 

@ 1183! 1105! 

3A 88 B2 ld a, (B288) TXT row; window left upper corner 
95 sub 1 

2F cpl 

3C inc a 

3C inc a 

6F ld 1,a 

3A 89 B2 ld a, (B289) TXT column, window left upper corner 
94 sub h 

2F cpl 

3C inc a 

3C inc a 

67 ld h,a 

c9 ret 


remove cursor, validate, scroll up 
@ 133B! 151D! 1530! 154F! 1584! 158E! 


CD DO BD call BDDO TXT DRAW/UNDRAW CURSOR, if enabled 

validate cursor, scroll window up 

@ 126B! 

2A 85 B2 ld h1, (B285) TXT CURSOR column/row 

CD DA 11 call L1DA check whether cursor is within window, force 
22 85 B2 ld (B285),hl TXT CURSOR column/row 

D8 ret c 

E5 push hl 

21 8C B2 ld h1,B28C TXT roll count 

78 ld a,b 

87 add a,a 

3C inc a 

86 add a,(hl) 

77 ld (hl),a 

cD 56 12 call 1256 TXT GET WINDOW size, <hl>=left top, <de>=rig 
3A 90 B2 ld a, (B290) TXT PAPER ink 

F5 push af 

DC 3E OE call c,OE3E SCR WINDOW SCROLL up or down 

Fl pop af 

D4 FA 0D call nc,ODFA SCR HARDWARE SCROLL, <a>=ink for new line, < 
El pop hl 

c9 ret 


TXT VALIDATE cursor position <hl> column/row 
@ 2C8C! 2CBA! 2D15! 2D5C! 2D91! 2D9C! 2DB2! 2DDD! BB87! 


CD 8A 11 call 118A HL = HL + cursor address 

cD DA 11 call 11DA check whether cursor is within window, force 
F5 push af 

cD 97 ıl call 1197 HL = HL - cursor address 

Fl pop af 

c9 ret 
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----- check whether cursor is within window, force it in 


11DA 
11DD 
l1DE 
l1El 
11E4 
11E5 
11E6 
11E9 
11EA 
11EB 
LIEE 
l1Fl 
11F2 
11F3 
11F6 
L1F7 
11F8 
L1FB 
l1FE 
LIFF 
1200 
1201 
1202 
1204 
1205 


1206 
1207 


@ L1AE! 
3A 8B B2 


F2 E6 11 
3A 89 B2 


3A 89 B2 


FA F3 11 
3A 8B B2 


3A 88 B2 


F2 06 12 
3A 8A B2 


06 FF 


06 00 


11D1! 


ld a, (B28B) 
cp h 

jp p,11E6 
ld a, (B289) 
ld h,a 

inc 1 

ld a, (B289) 
dec a 

cp h 

jp m,11F3 
ld a, (B28B) 
ld h,a 

dec 1 

ld a, (B288) 
dec a 

cp 1 

jp p,1206 
ld a, (B28A) 
cp 1 

sc£ 

retp 

ld 1,a 

ld b,FF 

or a 

ret 


inc a 
ld 1,a 
ld b,00 
ora 
ret 


TXT column, window right bottom corner 


... 


TXT column, window left upper corner 


TXT column, window left upper corner 


TXT colum, window right bottom corner 


TXT 


row; window left upper corner 


TXT row, window right bottom corner 


=255. 


TXT SET WINDOW <hl>=left top, <de>=right bottom corner 


@ 1158! 1501 


cD 57 0B 


CD 44 12 


CD 44 12 


30 02 


cD 4D 12 


cD 4D 12 


30 02 


22 88 B2 


8A B2 


A8 
20 02 


BB66! 
call 0B57 
ld a,h 
call 1244 
ld h,a 
ld a,d 
call 1244 
ld d,a 
cp h 
jr nc,121E 
ld d,h 


ld 1,a 
ld a,e 
call 124D 


ld 1,a 

ld (B288),hl 
ld (B28A),de 
ld a,h 

or 1 

jr nz,123E 
ld a,d 

xor b 

jr nz,123E 
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SCR CHAR LIMITS, <b>=columns, <c>=lines 


TXT row; window left upper corner 
TXT row, window right bottom corner 


TEXT VDU 4l 


123A 


7B ld a,e 

A9 xor c 

32 87 B2 ld (B287),a 
c3 77 ı1 jp 1177 


@ 1210! 1215! 


B7 or a 

F2 49 12 jp p,1249 
AF xor a 

B8 cp b 

D8 ret c 

78 ld a,b 

c9 ret 


@ 121F! 1224! 


B7 ora 

F2 52 12 j3p p,1252 
AF xor a 

B9 cp c 

D8 ret c 

79 ld a,c 

c9 ret 


TXT window flag; O=whole screen 
undraw cursor, if enabled 


TXT GET WINDOW size, <hl>=left top, <de>=right bottom corner 


@ 11BE! 278E! 2BEC! BB69! 
2A 88 B2 ld h1,(B288) 
ED 5B 8A B2 1d de, (B28A) 


3A 87 B2 ld a, (B287) 
C6. FF add a,FF 
c9 ret 


TXT row; window left upper corner 

TXT row, window right bottom corner 

TXT window flag; O=whole screen 

set carry 1f window is not the whole screen 


TXT DRAW/UNDRAW CURSOR, if enabled 


@ 1097 BDCD BDDO 

3A 8D B2 ld a, (B28D) 
B7 or a 

co ret nz 


TXT cursor enable flag (user) 


TXT PLACE/REMOVE CURSOR on screen 
@ 2CCD: 2CD2: 2DO6! BB8A! BB8D! 


c5 push bc 

D5 push de 

E5 push hl 

CD AB 11 call 11AB 
ED 4B 8F B2 ld bc, (B28F) 
CD DF OD call ODDF 

El pop hl 

Dl pop de 

cl pop bc 

c9 ret 


TXT CURSOR ON 
@ 276E! 2DE6! BBSL! 


F5 push af 

3E FD ld a,FD 
CD 8B 12 call 128B 
Fl pop af 

c9 ret 


TXT CURSOR OFF 
@ 27741 2DF3 BBB4! 


F5 push af 

3E 02 ld a,02 
cD 9C 12 call 129C 
Fl pop af 

c9 ret 
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validate cursor, scroll window up 
TXT PEN ink 
SCR CHAR INVERT, (hl)=char pos, <b,c>=inks 


11111101 
cursor enable (user) 


00000010 
cursor disable (user) 
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----- TXT CURSOR ENABLE (user) 
@ 1451! BB7B! 


DRAW/UNDRAW CURSOR, if enabled 


cursor enable flag (user) 


1289 3E FE ld a,FE 11111110 
— cursor enable (user) 
@ 127C! 
128B F5 push af 
128C CD DO BD call BDDO TXT 
128F Fl pop af 
1290 ES push hl 
1291 21 8D B2 ld h1,B28D TXT 
1294 A6 and (hl) 
1295 77 ld (hl),a 
1296 EI pop hl 
1297 C3 CD BD jp BDCD TXT 


— TXT CURSOR DISABLE (user) 
@ 144B! BB7E! 


129A 3E Ol ld a,01 =1. 
-— cursor disable (user) 
@ 12841! 
129C F5 push af 
129D CD DO BD call BDDO TXT 
12A0O Fl pop af 
12Al ES push hl 
12A2 21 8D B2 ld h1,B28D TXT 
1245 B6 or (hl) 
12A6 77 ld (hl),a 
12A7 EI pop hl 
1248 c9 ret 


— TXT SET PEN ink <a> 

@ 1148! BB9OL 
12A9 21 8F B2 ld h1,B28F TXT 
12AC 18 03 jr 12Bl 


.—— TXT SET PAPER ink <a> 
@ 1144! BB96! 


12AE 21 90 B2 ld h1,B290 TXT 
12Bl F5 push af 

1282 CD DO BD call BDDO TAT 
12B5 Fl pop af 

12B6 CD 86 0C call 0C86 SCR 
12B9 77 ld (hl),a 

12BA C3 CD BD jp BDCD TAT 


— TXT GET PEN ink, =<a> 
@ 10CB! BB93! 


12BD 3A 8F B2 ld a, (B28F) TXT 
12C0 cC3 AO 0C jp 0CAO SCR 
.-- TXT GET PAPER ink =<a> 
@ BB99! 
12C3 3A 90 B2 ld a,(B290) TXT 
12C6 C3 AO 0C jp O0CAO SCR 
----- TXT INVERSE, swap PEN/PAPER ink 
@ BBIC! 
12C9 2A 8F B2 ld hl, (B28F) TXT 
12CC 7C ld a,h 
12CD 65 ld h,1 
12CE 6F ld 1,a 
l12CF 22 8F B2 ld (B28F),hl TXT 
12D2 c9 ret 
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DRAW/UNDRAW CURSOR, if enabled 


DRAW/UNDRAW CURSOR, if enabled 


cursor enable flag (user) 


PEN ink 


PAPER ink 


DRAW/UNDRAW CURSOR, if enabled 
INK ENCODE, in: <a>=ink#, out: 


DRAW/UNDRAW CURSOR, if enabled 


PEN ink 


<a>=encod 


INK DECODE, in: <a>=encoded ink; out: <a 


PAPER ink 
INK DECODE, 


PEN ink 


PEN ink 


in: 


<a>=encoded ink; out: <a 


TEXT VDU 


43 


12D2 


TXT GET char <a> MATRIX, (hl)=address, carry=user 
@ 12F2! 1309! 134B! 13E6! 1947! BBA5! 


TXT GET user MATRIX TABLE (hl)=addr, <a>=fir 
use standard symbols 


use standard symbols 


SYMBOL images, start of table 


=0. 


TXT SET char MATRIX, <a>=char, (hl)=matrix to set 


TXT GET char <a> MATRIX, (hl)=address, carry 


TXT SET user MATRIX TABLE addr (de), (hl)=new table 


D5 push de 

5F ld e,a 

CD 2A 13 call 132A 
30 09 jr nc,12E3 
57 ld d,a 

7B ld a,e 

92 sub d 

3F ccf 

30 03 jr nc,12E3 
5F ld e,a 

18 03 jr 12E6 
use standard symbols 

21 00 38 ld h1,3800 
F5 push af 

16 00 ld d,00 
EB ex de,hl 
29 add hl,hl 
29 add hl,hl 
29 add hl,hl 
19 add hl,de 
Fl pop af 

Dl pop de 

c9 ret 

@ 1507 BBAB! 

EB ex de,hl 

CD D3 12 call 1203 
DO ret nc 

EB ex de,hl 
copy 8 bytes (hl) to (de) 
@ 1315! 

01 08 00 ld bc,0008 
ED BO lIdir 

c9 ret 

@ BBAB! 

E5 push hl 

7A ld a,d 

B7 ora 

16 00 ld d,00 

20 19 jr nz,131D 
15 dec d 

D5 push de 

4B ld c,e 

EB ex de,hl 
79 ld a,c 

cD D3 12 call 12D3 
7C ld a,h 
AA xor d 

20 04 jr nz,1314 
7D ld a,l 

AB xor e 

28 08 jr z,131c 
c5 push bc 
cD F7 12 call 12F7 
cl pop bc 

oc ine c 

20 EC jr nz,1308 
D1 pop de 

44 TEXT VDU 


-0. 


TXT GET char <a> MATRIX, (hl)=address, carry 


... 


copy 8 bytes (hl) to (de) 


... 
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131D CD 2A 13 


1320 ED 53 94 B2 


call 132A 


1d (B294),de 


pop de 


1325 ED 53 96 B2 ld (B296),de 


ret 


TXT GET user MATRIX TABLE (hl)=addr, <a>=fir 
TXT first char of user matrix table 


TXT start of user matrix table 


-_--- TXT GET user MATRIX TABLE (hl)=addr, <a>=first char in table 


@ 1205! 
132A 2A 94 B2 
132D 7C 
132E OF 
132F 7D 
1330 2A 96 B2 
1333 9 


.—- TXT WRITE char <a> to screen 
26D4! 2DBF! BB5D! 


@ 1424 
1334 47 


131D! BBAE! 


ld h1,(B294) 
ld a,h 

rrca 

ld a,l 

1d h1,(B296) 
ret 


ld b,a 

ld a, (B28E) 

or a 

ret z 

push bc 
call 11A8 
inc h 

ld (B285),hl 
dec h 

pop af 

call BDD3 

jp BOCD 


TXT first char of user matrix table 


TXT start o£f user matrix table 


TXT flag VDU enable 


remove cursor, validate, scroll up 


TXT CURSOR column/row 


TXT WRITE CHAR <a> on screen, <hl>=pos 
TXT DRAW/UNDRAW CURSOR, if enabled 


.—. TXT WRITE CHAR <a> on screen, <hl>=pos 


@ BDD3 
134A ES 
134B CD D3 12 
134E 11 98 B2 
1352 CD F3 0E 


1357 CD 64 OB 
135A OE 08 


1362 CD 76 13 
1365 CD F9 OB 


136B 10 Fl 


136E CD 13 0C 


1373 20 E7 


- write BACKGROUND/FOREGROUND 


@ 1362! 
1376 2A 91 B2 
1379 E9 


push hl 
call 1203 
ld de,B298 
push de 
call OEF3 
pop de 
pop hl 
call 0B64 
1d c,08 
push bc 
push hl 
push bc 
push de 
ex de,hl 
ld c,(hl) 
call 1376 
call OBF9 
pop de 
inc de 
pop bc 
djnz 135E 
pop hl 
call 0C13 
pop be 
dec c 
jr nz,135C 
ret 


ld h1,(B291) 
jp (hl) 
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TXT GET char <a> MATRIX, (hl)=address, carry 
TXT buffer for unpacked char matrix 


SCR UNPACK, (hl)=matrix address, (de)=destin 


SCR CHAR POSITION conv phys coord to screen 


write BACKGROUND/FOREGROUND 
SCR NEXT BYTE, step screen addr (hl) right o 


SCR NEXT LINE, step screen addr (hl) down on 


TXT address of BACK/FOREGROUND routine 
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TXT SET BACKground being written <a> 
@ 114Fl 14E5 BBIF! 


21 91 13 ld h1,1391 FOREGROUND 

B7 ora 

28 03 jr z,1383 skip if zero (=FOREGROUND) 

21 9F 13 ld h1,139F BACKGROUND 

22 91 B2 ld (B291),hl TXT address of BACK/FOREGROUND routine 
c9 ret 


TXT GET if BACKground is being written <a> 


@ BBA2I! 

2A 91 B2 ld h1,(B291) TXT address of BACK/FOREGROUND routine 
11 6F EC ld de,EC6F 

19 add hl,de 

7C ld a,h 

B5 or 1 

c9 ret 

FOREGROUND 

@ 137A: B291: 

2A 8F B2 ld h1,(B28F) TXT PEN ink 
79 ld a,c 

2F cpl 

A4 and h 

47 ld b,a 

79 ld a,c 

A5 and 1 

BO or b 

0E FF 1d c,FF =255, 

18 03 jr 13A2 

BACKGROUND 

@ 1380: 

3A 8F B2 ld a, (B28F) TXT PEN ink 
47 ld b,a 

EB ex de,hl 

Cc3 6B 0C jp 0C6B SCR PIXELS write, FORCE-mode 0, NEW=INK, (hl 


TXT SET GRAPHIC char write, <a>=0=OFF, FF=ON 

@ 114C! BB63! 

32 93 B2 ld (B293),a TXT flag graphic char write 
c9 ret 


TXT READ char from screen <hl>=col/row, =<a>, =carry 
@ 2D09! BB601! 


E5 push hl 

D5 push de 

c5 push bc 

CD DO BD call BDDO TXT DRAW/UNDRAW CURSOR, if enabled 
2A 85 B2 ld h1,(B285) TXT CURSOR column/row 

CD D6 BD call BDD6 TXT UNWRITE CHAR, read screen <hl>=col/row, 
F5 push af 

CD CD BD call BDCD TXT DRAW/UNDRAW CURSOR, if enabled 
Fl pop af 

ci pop bc 

Dl pop de 

El pop hl 

c9 ret 

TXT UNWRITE CHAR, read screen <hl>=col/row, =<a> 

@ BDD6 

3A 8F B2 ld a, (B28F) TXT PEN ink 

ll 98 B2 ld de,B298 TXT buffer for unpacked char matrix 
E5 push hl 

D5 push de 
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—_—— compare screen matrix 


@ 13CB! 


13FC 20 E7 


call OF49 
call 13E3 
pop de 
pop hl 
jr nc,13D3 
ret nz 
ld a,(B290) 
push de 
call OF49 
pop de 
ld b,08 
ld a,(de) 
cpl 
ld (de),a 
inc de 
djnz 13DD 


ld c,00 

ld a,c 
call 12D3 
ld de,B298 
ld b,08 

ld a, (de) 
cp (hl) 

jr nz,13FB 
inc hl 

inc de 
djnz 13EE 
ld a,c 

cp 20 

scf 

ret 


inc c 

jr nz,13E5 
xor a 

ret 


SCR REPACK char matrix, <a>=ink to match, (h 
compare screen matrix with matrix table 


TXT PAPER ink 
SCR REPACK char matrix, <a>=ink to match, (h 


=8. 


next 


with matrix table 


start with matrix of char 0 


TXT GET char <a> MATRIX, (hl)=address, carry 
TXT buffer for unpacked char matrix 
# o£ bytes 


no match 


next byte of matrix 


"SPACE 


try next byte of matrix 


----- TXT OUTPUT char or ctl code <a> to VDU 
@ O6EF! 2780 2B3D! 2859! 2B5E 2D60! BB5A! 


1404 CD D9 BD 


push af 

push bc 
push de 
push hl 


call BDD9I 


pop hl 

pop de 
pop bc 
pop af 
ret 


TXT OUT ACTION, char or ctl code <a> to VDU 


-_- TXT OUT ACTION, char or ctl code <a> to VDU 


@ BDD9I 


140D 3A 93 B2 


1412 cC2 45 19 
1415 21 B8 B2 


141A FE 0A 
l14lc 30 28 


cp 0A 
jr nc,1446 
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TXT flag graphic char write 


GRA WRITE CHAR <a> at current graphic pos 
TXT control code buffer index 


more then 9 parameters? 
yes, that’s wrong, reset index 


TEXT VDU 47 141C 


14CB 


B7 ora 

20 06 jr nz,1427 
79 ld a,c 

FE 20 cp 20 

D2 34 13 jp nc,1334 
proceed with parameters 
04 inc b 

70 ld (hl),b 
58 ld e,b 

16 00 ld d,00 

19 add hl,de 
7ı ld (hl),c 
3A B9 B2 ld a, (B2B9) 
5F ld e,a 

21 C3 B2 ld h1,B2C3 
19 add hl,de 
19 add hl,de 
19 add hl,de 
7E ld a,(hl) 
B8 cp b 

DO ret nc 

23 inc hl 

5E ld e,(hl) 
23 inc hl 

56 ld d,(hl) 
21 B9 B2 ld h1,B2B9 
79 ld a,c 

cD 16 00 call 0016 
AF xor a 

32 B8 B2 ld (B2B8),a 
c9 ret 


TXT VDU DISABLE 


@ BB571 

cD 9A 12 call 129A 
AF xor a 

18 05 jr 1456 


TXT VDU ENABLE 
@ 115B BB54! 


CD 89 12 call 1289 
3E FF ld a,FF 

32 8E B2 ld (B28E),a 
18 EB jr 1446 

TXT reset to default control 
@ 108€ 

AF xor a 

32 B8 B2 ld (B2B8),a 
21 6B 14 ld h1,146B 
11 C3 B2 ld de,B2C3 
01 60 00 ld bc,0060 
ED BO ldir 

c9 ret 


are there control code parameters? 
proceed with parameters 

is it a normal character? 

"SPACE 

TXT WRITE char <a> to screen 


clear hi part 


TXT contro! code buffer for up to 9 paramete 


control code table; <# of parameters>, <rout 


calculate entry to control code table 
get # of parameters 


TXT control code buffer for up to 9 paramete 


jp (de) 
reset 
TXT control code buffer index 


TXT CURSOR DISABLE (user) 


TXT CURSOR ENABLE (user) 
"IGNORE 

TXT flag VDU enable 

reset control code buffer index 


code table 


TXT control code buffer index 

data for control code table (copied to B2C3) 
control code table; <# of parameters>, <rout 
byte count of table (copied to B2C3) 


data for control code table (copied to B2C3) 


@ 145F: 

00 E2 14 01 34 13 00 9A 
00 0A 15 00 OF 15 00 14 
00 4F 15 00 8E 15 00 84 
00 c9 12 09 04 15 04 F8 
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12 00 89 12 O1 CA 0A Ol 
15 00 19 15 00 40 15 00 
15 00 6D 15 00 56 15 00 
14 00 E2 14 03 E8 14 02 


45 19 00 51 14 00 D8 14 
30 15 Ol AE 12 01 A9 12 
4B 14 O1 E3 14 01 49 0C 
Fl 14 00 2A 15 02 38 15 
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TXT GET CONTROL code table addr 


@ BBBl! 
21 C3 B2 ld h1,B2C3 control code table; <# of parameters>, <rout 
c9 ret 


data to ring °BELL 
@ 14DA: 
87 00 00 5A 00 00 OB 14 00 


TXT ring the bell 


DD E5 push ix 

21 CF 14 ld h1,14CF data to ring ’BELL 

cD 9F IF call 1F9F SOUND QUEUE, add a sound, (hl)=sound program 
DD El pop ix 

c9 ret 


TXT set write mode 2, O=off, l=on 


@ B305 

OF rrca 

IF sbc a,a 

c3 7A 13 jp 137A TXT SET BACKground being written <a> 
TXT set ink, <PEN>,<colourl>, [<colour2>] 

@ B317 

23 inc hl 

7E ld a,(hl) 

23 inc hl 

46 ld b,(hl) 

23 inc hl 

4E ld c,(hl) 

c3 EC 0C jp OCEC SCR SET colour of INK, <a>=ink#, <b,c>=colou 
TXT set border <colour>[<colour>] 

@ B31A 

23 inc hl 

46 ld b,(hl) 

23 inc hl 

4E ld c,(hl) 

c3 Fl 0C jp OCFl SCR SET BORDER, <b,c>=colours 

TXT define window, <left>,<right>,<top>,<bottom> 

@ B3ll 

23 inc hl 

56 ld d,(hl) 

23 inc hl 

7E ld a,(hl) 

23 inc hl 

5E ld e,(hl) 

23 inc hl 

6E ld 1,(hl) 

67 ld h,a 

c3 0C 12 jp 120C TXT SET WINDOW <hl>=1left top, <de>=right bot 
TXT set matrix for user <symbol>, 8<byte matrix> 

@30E 

23 inc hl 

7E ld a,(hl) 

23 inc hl 

c3 Fl 12 jp 12Fl TXT SET char MATRIX, <a>=char, (hl)=matrix t 
TXT cursor left one step 

@ B2DB 

11 00 FF ld de,FFOO <d>=-1 cursor horizontal, <e>=0 vertical 
18 0D jr 151C 
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----- TXT cursor right one step 


@ B2DE 
150F 11 00 01 ld de,0100 horizontal +l 
1512 18 08 jr 151c 
—— TXT cursor down one line 
@ B2EL 
1514 11 01 00 ld de,0001 vertical +l 
1517 18 03 jr 151C 
— TXT cursor up one line 
@ B2E4 
1519 11 FF 00 ld de,OOFF vertical -1 
15ilc D5 push de 
151lD CD AB 11 call 11A8 remove cursor, validate, scroll up 
1520 DI pop de 
1521 7D ld a,l 
1522 83 add a,e 
1523 6F ld 1,a 
1524 7C ld a,h 
1525 82 add a,d 
1526 67 ld h,a 
1527 cC3 7A Ill jp 117A draw cursor, if enabled 
-—---- TXT cursor HOME 
@ B31D 
152A 2A 88 B2 ld h1, (B288) TXT row; window left upper corner 
152D C3 77 ıl jp 1177 undraw cursor, if enabled 
 — TXT cursor to start of line 
@ B2ED 
1530 CD AB 11 call 11A8 remove cur=eor, validate, scroll up 
1533 3A 89 B2 ld a, (B289) TXT colum, window left upper corner 
1536 18 EE jr 1526 set colum to start of window 
_- TXT cursor LOCATE <column>(de),<line>(de+l) 
@ B320 
1538 23 inc hl 
1539 56 ld d,(h1l) 
153A 23 inc hl 
153B 5E ld e,(hl) 
153C EB ex de,hl 
153D C3 74 11 jp 1174 TXT SET CURSOR, <hl>=column/row 
— TXT CLEAR current WINDOW 
@ BB6CI! 
1540 CD DO BD call BDDO TXT DRAW/UNDRAW CURSOR, if enabled 
1543 2A 88 B2 ld h1, (B288) TXT row; window left upper corner 
1546 22 85 B2 ld (B285),hl TXT CURSOR column/row 
1549 ED 5B 8A B2 1d de, (B28A) TXT row, window right bottom corner 
154D 18 48 jr 1597 clear this window 
— TXT clear char at cursor position 
@ B2F3 
154F CD A8 11 call 11A8 remove cursor, validate, scroll up 
1552 54 ld d,h 
1553 5D ld e,1 
1554 18 41 jr 1597 clear this window 
— TXT clear window from cursor to end 
@ B2FF 
1556 CD 84 15 call 1584 TXT clear line from cursor to end 
1559 2A 88 B2 ld hl, (B288) TXT row; window left upper corner 
155C ED 5B 8A B2 1d de, (B28A) TXT row, window right bottom corner 
1560 3A 85 B2 ld a, (B285) TXT CURSOR column/row 


1560 50 TEXT VDU huslik, cpc464 inside out 


1563 6F 1d 1,a 


1564 2C inc 1 
1565 BB cp e 
1566 3A 90 B2 ld a, (B290) TXT PAPER ink 
1569 DC B3 OD call c,ODB3 SCR FILL BOX, <a>=ink, <hl,de>=corners 
156C C9 ret 
.-- TXT clear window fron start to cursor 
@ B2F6 
156D CD 8E 15 call 158E TXT clear start of line incl cursor 
1570 2A 88 B2 ld hl, (B288) TXT row; window left upper corner 
1573 3A 8B B2 ld a, (B28B) TXT column, window right bottom corner 
1576 57 ld d,a 
1577 3A 85 B2 ld a, (B285) TXT CURSOR column/row 
157A 3D dec a 
157B 5F ld e,a 
157C BD cp 1 
157D 3A 90 B2 ld a, (B290) TXT PAPER ink 
1580 D4 B3 OD call nc,ODB3 SCR FILL BOX, <a>=ink, <hl,de>=corners 
1583 cC9 ret 


nn TXT clear line from cursor to end 
@ 1556! B2F9 


1584 CD AB 11 call L1A8 remove cursor, validate, scroll up 
1587 5D ld e,l 

1588 3A 8B B2 ld a, (B28B) TXT column, window right bottom corner 
158B 57 ld d,a 

158C 18 09 jr 1597 clear this window 


. TXT clear start of line incl cursor 
@ 156D! B2F6 


158E CD Aß 11 call 11A8 remove cursor, validate, scroll up 
1591 EB ex de,hl 

1592 6B ld 1,e 

1593 3A 89 B2 ld a, (B289) TXT column, window left upper corner 
1596 67 ld h,a 

_— clear this window 

1597 3A 90 B2 ld a, (B290) TXT PAPER ink 

159A CD B3 OD call ODB3 SCR FILL BOX, <a>=ink, <hl,de>=corners 
1590 CD CD BD call BDCD TXT DRAW/UNDRAW CURSOR, if enabled 
15A0 C9 ret 


15Al C7 CT CT CT CTCTCTC7T CTCTCTC7TC7C7C7 


huslik, cpc464 inside out TEXT VDU 5l 15BO 


GRA INITIALISE graphics VDU 


@ 0649! BBBA! 


CD DF 15 call 15DF 
21 01 00 ld h1,0001 
@ OAES! 

7C ld a,h 

CD FD 17 call 17FD 
7D ld a,1 

CD F6 17 call 17F6 
21 00 00 ld h1,0000 
54 ld d,h 

5D ld e,l 

CD 04 16 call 1604 
11 00 80 ld de,8000 
21 FF 7F ld h1,7FFF 
E5 push hl 

D5 push de 
cD 34 17 call 1734 
El pop hl 

DL pop de 

c3 79 17 jp 1779 

@ OAD9! 

CD OA 18 call 180A 
67 ld h,a 

CD 04 18 call 1804 
6F ld 1,a 

c9 ret 

GRA RESET 

@ 15BO! BBBD! 

21 E5 15 ld h1,15E5 
c3 8A 0A jp 0A8A 


data for graphics jumpblock 
18 C3 3C 18 


09 DC BD C3 16 18 C3 2A 


GRA RESET 
PAPER=0, PEN=1 


GRA SET PAPER, <a>=ink 


GRA SET PEN, <a>=ink 


GRA SET ORIGIN, <de>=x, <hl>=y 


GRA set WINDOW width, <de>=xl, <hl>=x2 


GRA set WINDOW height, <de>=yl, <hl>=y2 


GRA GET PAPER, <a>=ink 


GRA GET PEN, <a>=ink 


data for graphics jumpblock 
copy (hl) bytes to address (hl+l),(h1+2) 


GRA MOVE RELATIVE, <de>=xd, <hl>=yd 


cD 57 16 call 1657 


add de/hl to graphic cursor 


GRA MOVE ABSOLUTE, <de>=x, <hl>=y 


@ 161D! BBCO! 

ED 53 2C B3 1d (B32C),de 
22 2E B3 ld (B32E),hl 
c9 ret 


GRA cursor x 
GRA cursor y 


GRA ASK CURSOR, <de>=x, <hl>=y 


@ 161Al BBC6l 

ED 5B 2C B3 1d de, (B32C) 
2A 2E B3 ld hl, (B32E) 
c9 ret 


GRA cursor x 
GRA cursor y 


GRA SET ORIGIN, <de>=x, <hl>=y 


@ BBC9! 
ED 53 28 B3 ld (B328),de 


22 2A B3 ld (B32A),hl 
GRA cursor HOME, x=y=0000 
@ 17F3 

11 00 00 ld de,0000 

62 ld h,d 

6B ld 1,e 

18 E2 jr 15F4 

52 GRAPHICS VDU 


GRA user origin x 
GRA user origin y 


h1=0000 
GRA MOVE ABSOLUTE, <de>=x, <hl>=y 


huslik, cpc464 inside out 


GRA GET ORIGIN <de>=x, <hl>=y of 
@ BBCC! 


ED 5B 28 B3 ld de, (B328) GRA 


user coordinates 


user origin x 


2A 2A B3 ld hl, (B32A) GRA user origin y 
c9 ret 

@ 183E! 1955! 

cD FC 15 call 15FC GRA ASK CURSOR, <de>=x, <hl>=y 
@ 16FC! 184A! 

CD F4 15 call 15F4 GRA MOVE ABSOLUTE, <de>=x, <hl>=y 
E5 push hl 

CD EC 0A call OAEC SCR GET MODE <a>, cp Ol 
2F cpl 

c6 Ol add a,0l =1. 

CE 02 adc a,02 =2. 

26 00 ld h,00 =0. 

6F ld 1,a 

CB 7A bit 7,d 

28 03 jr z,1633 ... 

EB ex de,hl 

19 add hl,de 

EB ex de,hl 

2F cpl 

A3 and e 

5F ld e,a 

7D ld a,l 

2A 28 B3 ld hl, (B328) GRA user origin x 
19 add hl,de 

OF rrca 

DC 74 17 call c,1774 srah; rr 1; ret 
OF rrca 

DC 74 17 call c,1774 srah; rr 1; ret 
Dl pop de 

E5 push hl 

7A ld a,d 

07 rlca 

30 01 jr nc,164A ... 

13 inc de 

7B ld a,e 

E6 FE and FE =254. 

5F ld e,a 

2A 2A B3 ld hl, (B32A) GRA user origin y 
19 add hl,de 

cD 74 17 call 1774 srah; rr 1; ret 
DL pop de 

c9 ret 


add de/hl to graphic cursor 


@ 15Fl! 1810! 1824! 1836! 

ES push hl 

2A 2C B3 ld h1,(B32C) GRA 
19 add hl,de 

Dl pop de 

E5 push hl 

2A 2E B3 ld hl, (B32E) GRA 
19 add hl,de 

DI pop de 

c9 ret 

@ 192C! 

D5 push de 

E5 push hl 

2A 30 B3 ld h1,(B330) GRA 
2B dec hl 
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cursor X 


ceursor y 


WINDOW WIDTH, xleft 


GRAPHICS VDU 53 


1669 


166A B7 or a 


166B ED 52 sbc hl,de 
166D F2 AC 16 jp p,1l6AC ... 
1670 2A 32 B3 ld h1,(B332) GRA WINDOW WIDTH, xright 
1673 B7 ora 
1674 ED 52 sbce hl,de 
1676 FA AC 16 jp m,16AC ... 
1679 DL pop de 
167A 2A 34 B3 ld h1,(B334) GRA WINDOW HEIGHT, ytop 
167D B7 ora 
167E ED 52 sbc hl,de 
1680 FA AD 16 jp m,16AD BR 
1683 2A 36 B3 ld h1, (B336) GRA WINDOW HEIGHT, ybottom 
1686 2B dec hl 
1687 B7 or a 
1688 ED 52 sbc hl,de 
168A FA 91 16 jp m,1691 ... 
168D ED 5B 36 B3 1d de, (B336) GRA WINDOW HEIGHT, ybottom 
1691 2A 36 B3 ld h1,(B336) GRA WINDOW HEIGHT, ybottom 
1694 2B dec hl 
1695 B7 ora 
1696 ED 42 sbc hl,bc 
1698 F2 AD 16 jp p,16AD ... 
169B 2A 34 B3 ld hl, (B334) GRA WINDOW HEIGHT, ytop 
169E B7 or a 
169F ED 42 sbc hl,bc 
16Al F2 AB 16 jp p,16A8 ... 
16A4 ED 4B 34 B3 1d bc, (B334) GRA WINDOW HEIGHT, ytop 
16A8 EB ex de,hl 
1649 DI pop de 
16AA 37 sc£ 
16AB C9 ret 
16AC EI pop hl 
16AD DI pop de 
1l6AE B7 ora 
16AF CI ret 
@ 19071 
16B0 ES push hl 
16Bl D5 push de 
16B2 EB ex de,hl 
16B3 2A 36 B3 ld h1,(B336) GRA WINDOW HEIGHT, ybottom 
16B6 2B dec hl 
16B7 B7 ora 
16B8 ED 52 sbc hl,de 
16BA F2 F8 16 j3p p,16F8 ... 
16BD 2A 34 B5 ld h1,(B334) GRA WINDOW HEIGHT, ytop 
16C0O B7 ora 
16C1l ED 52 sbc hl,de 
16C3 FA F8 16 jp n,16F8 ... 
16C6 DI pop de 
16C7 2A 32 B3 ld h1,(B332) GRA WINDOW WIDTH, xright 
l6CA B7 or a 
16CB ED 52 sbc hl,de 
l16CD FA F9 16 jp m,16F9 ... 
16D0 2A 30 B3 ld h1,(B330) GRA WINDOW WIDTH, xleft 
16D3 2B dec hl 
16D4 B7 or a 
16D5 ED 52 sbc hl,de 
16D7 FA DE 16 jp m,16DE Br 
16DA ED 5B 30 B3 L1d de, (B330) GRA WINDOW WIDTH, xleft 
1l6DE 2A 30 B3 ld hl, (B330) GRA WINDOW WIDTH, xleft 
l6El 2B dec hl 
16E2 B7 or a 


16E2 54 GRAPHICS VDU huslik, cpc464 inside out 


----- check if point is inside GRA 


42 
F9 
32 


42 
F5 
4B 


16 
B3 


16 
32 B3 


sbc hl,bc 
jp p,16F9 

ld hl, (B332) 
ora 

sbc hl,bc 

jp p,16F5 

ld bc, (B332) 
pop hl 

scf 

ret 


pop de 
pop hl 
ora 
ret 


@ 1816! 182A! 


GRA WINDOW WIDTH, xright 


GRA WINDOW WIDTH, xright 


WINDOW 


GRA WINDOW WIDTH, xleft 


GRA WINDOW WIDTH, xright 


GRA WINDOW HEIGHT, ybottom 


GRA WINDOW HEIGHT, ytop 


16FC CD 1D 16 call 161D 

@ 1958! 1968! 19AE! 
l6FF ES push hl 
1700 2A 30 B3 ld h1, (B330) 
1703 2B dec hl 
1704 B7 or a 
1705 ED 52 sbc hl,de 
1707 F2 2D 17 jp p,172D 
170A 2A 32 B3 ld hl, (B332) 
170D B7 or a 
170E ED 52 sbc hl,de 
1710 FA 2D 17 jp n,172D 
1713 El pop hl 
1714 D5 push de 
1715 EB ex de,hl 
1716 2A 36 B3 ld h1, (B336) 
1719 2B dec hl 
171A B7 or a 
171B ED 52 sbc hl,de 
171D F2 30 17 jp p,1730 
1720 2A 34 B3 ld hl, (B334) 
1723 B7 or a 
1724 ED 52 sbc hl,de 
1726 FA 30 17 jp n,1730 
1729 EB ex de,hl 
172A DI pop de 
172B 37 scf 
172C c9 ret 
172D EI pop hl 
172E B7 or a 
172F C9 ret 
1730 EB ex de,hl 
1731 DI pop de 
1732 B7 or a 
1733 C9 ret 
----- GRA set WINDOW width, <de>=xl, <hl>=x2 

@ 15CE! BBCF! 
1734 E5 push hl 
1735 CD 60 17 call 1760 
1738 DI pop de 
1739 85 push hl 
173A CD 60 17 call 1760 
173D DI pop de 
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173D 


1791 


ol 


70 17 
53 30 B3 
32 B3 


ld a,e 

sub 1 

ld a,d 

sbc a,h 

jr c,1745 

ex de,hl 

ld a,e 

and F8 

ld e,a 

ld a,l 

or 07 

ld 1,a 

call OAEC 
dec a 

call m,1770 
dec a 

call m,1770 
ld (B330),de 
ld (B332),hl 
ret 


@ 17351 17341 


7A 


sra d; rr e; srah; rr 1; ret 


00 00 


7F 02 


ld a,d 

or a 

ld h1,0000 
ret m 

ld h1,027F 
ld a,e 

sub 1 

ld a,d 

sbc a,h 
ret nc 

ex de,hl 
ret 


@ 17511 17551 


CB 
CB 


2A 
1B 


sra d 
rre 


sra h; rr 1; ret 
@ 163C! 1640! 1652! 17CC! I7CF! 


CB 
CB 
c9 


2C 
1D 


sra h 
rr 1 
ret 


=7. 

SCR GET MODE <a>, cp Ol 

sra d; rre; srah; rr ]; ret 
sra d; rre; srah; rr 1; ret 


GRA WINDOW WIDTH, xleft 
GRA WINDOW WIDLH, xright 


GRA set WINDOW height, <de>=yl, <hl>=y2 
@ 15D3 BBD2I 


56 


92 17 


92 17 


ol 


53 34 B3 
36 B3 


push hl 

call 1792 
pop de 
push hi 

call 1792 
pop de 

ld a,1 
sub e 

ld a,h 

sbce a,d 

jr c,178A 

ex de,hl 

ld (B334),de 
ld (B336),hl 
ret 


GRAPHICS VDU 


GRA WINDOW HEIGHT, ytop 
GRA WINDOW HEIGHT, ybottom 


huslik, cpc464 inside out 


00 


3A 
1B 
c7 


00 


00 


ld a,d 

or a 

ld h1,0000 
ret m 

srl d 

re 

ld h1,00C7 
ld a,e 

sub 1 

ld a,d 

sbc a,h 
ret nc 

ex de,hl 
ret 


.— GRA get WINDOW width, <de>=xleft, <hl>=xright> 
@ 17C5! BBD5! 

17A6 ED 5B 30 B3 1d de, (B330) 

17AA 2A 32 B3 

17AD CD EC 0A 


17B0 3D 
17Bl FC 
17B4  3D 
17B5 FO 
17B6 29 
17B7 23 
17B8 EB 
1789 29 
17BA EB 
17BB C9 


B6 


17 


ld hl, (B332) 
call OAEC 
dec a 

call m,17B6 
dec a 

ret p 

add hl,hl 
inc hl 

ex de,hl 
add hl,hl 
ex de,hl 
ret 


GRA WINDOW WIDTH, xleft 
GRA WINDOW WIDTH, xright 
SCR GET MODE <a>, cp Ol 


mode was 0 


----- GRA GET WINDOW HEIGHT, <de>=ytop, <hl>=ybottom 

@ BBD8! 
17BC ED 5B 34 B3 1d de, (B334) 
17C0 2A 36 B3 


17C3 18 


Fl 


ld hl, (B336) 
jr 17B6 


en. GRA CLEAR GRAPHIC WINDOW 
@ BBDB! 
17C5 CD A6 17 


17C8 B7 


52 
74 
74 
3D 


5B 


34 


52 


5B 


A9 


17 
17 


36 B3 
B3 


30 B3 


OB 


B3 


OD 
16 


call 17A6 
ora 
sbce hl,de 
inc hl 

call 1774 
call 1774 
srl1 
ld b,1 
ld de, (B336) 
ld h1,(B334) 
push hl 

or a 

sbc hl,de 
inc hl 

1d e,1 

ld de, (B330) 
pop hl 

push bc 
call OBA9 
pop de 

ld a, (B339) 
ld c,a 

call ODB7 

jp 160B 


huslik, cpc464 inside out 


GRA WINDOW HEIGHT, ytop 
GRA WINDOW HEIGHT, ybottom 


GRA get WINDOW width, <de>=xleft, <hl>=xrigh 


srah; rr 1; ret 
sra h; rr 1; ret 


GRA WINDOW HEIGHT, ybottom 
GRA WINDOW HEIGHT, ytop 


GRA WINDOW WIDTH, xleft 


SCR DOT POSITION convert base coordinates to 
GRA PAPER ink 


SCR FLOOD BOX, <a>=ink, <hl>=left top, <de>= 
GRA cursor HOME, x=y=0000 


GRAPHICS VDU 57 17F3 


1839 


GRA SET PEN, <a>=ink 
@ 15BB! BBDE! 


CD 86 0C call 0C86 
32 38 B3 ld (B338),a 
c9 ret 


GRA SET PAPER, <a>=ink 
@ 15B7! BBE4! 


CD 86 0C call 0C86 
32 39 83 ld (B339),a 
c9 ret 


GRA GET PEN, <a>=ink 

@ 15DA! BBEL! 

3A 38 83 ld a, (B338) 
c3 AO 0C jp O0CAO 


GRA GET PAPER, <a>=ink 
@ 1506! 182D BBE7! 


SCR 
GRA 


SCR 
GRA 


GRA 
SCR 


GRA 
SCR 


INK ENCODE, in: 


PEN INK 


INK ENCODE, in: 


PAPER ink 


PEN INK 


INK DECODE, in: 


PAPER ink 


INK DECODE, in: 


<a>=ink#, out: <a>=encod 


<a>=ink#, out: <a>=encod 


<a>=encoded ink; out: <a 


<a>=encoded ink; out: <a 


add de/hl to graphic cursor 


GRA PLOT a POINT, <de>=x, <hl>=y 


check if point is inside GRA WINDOW 


SCR DOT POSITION convert base coordinates to 


GRA 


PEN INK 


SCR WRITE pixel(s) (hl)=addr, <c>=mask, usin 


add de/hl to graphic cursor 


GRA TEST a POINT, <de>=x, <hl>=y 


check if print is inside GRA WINDOW 

GRA GET PAPER, <a>=ink 

SCR DOT POSITION convert base coordinates to 
SCR READ a pixel from the screen, (hl)=addr, 


GRA DRAW LINE RELATIVE, <de>=xd, <hl>=yd 


add de/hl to graphic cursor 


3A 39 B3 ld a, (B339) 

c3 AO 0C jp O0CAO 

GRA PLOT RELATIVE, <de>=xd, <hl>=yd 
@ BBED! 

cD 57 16 call 1657 

GRA PLOT ABSOLUTE, <de>=x, <hl>=y 
@ BBEA! 

Cc3 DC BD jp BDDC 

GRA PLOT a POINT, <de>=x, <hl>=y 
@ BDDC 

CD FC 16 call 16FC 

DO ret nc 

CD A9 OB call 0BA9 

3A 38 B3 ld a, (B338) 

47 ld b,a 

c3 E8 BD _jp BDE8 

GRA TEST RELATIVE, <de>=xd, <hl>=yd 
@ BBF3! 

cD 57 16 call 1657 

GRA TEST ABSOLUTE, <de>=x, <hl>=y 
@ BBFO! 

C3 DF BD _jp BDDF 

GRA TEST a POINT, <de>=x, <hl>=y 
@ BDDF 

cD FC 16 call 16FC 

D2 OA 18 jp nc,180A 

CD A9 OB call OBA9 

c3 ES BD jp BDES 

@ BBF9! 

cD 57 16 call 1657 

GRA DRAW LINE ABSOLUTE, <de>=x, <hl>=y 
@ BBF6! 

Cc3 E2 BD jp BDE2 


58 GRAPHICS VDU 


GRA DRAW LINE ABSOLUTE, <de>=x, <hl>=y 


huslik, cpc464 inside out 


@ BDE2 
183C E5 push hl 
183D D5 push de 
183E CD 1A 16 call 161A ... 
1841 ED 53 42 B3 1d (B342),de GRA temp store x on draw 
1845 22 44 B3 ld (B344),hl GRA temp store y on draw 
1848 DI pop de 
1849 El pop hl 
184A CD 1D 16 call 161D ... 
184D ES push hl 
184E 2A 42 B3 ld hl, (B342) GRA temp store x on draw 
1851 B7 or a 
1852 ED 52 sbc hl,de 
1854 44 ld b,h 
1855 4D ld c,1 
1856 FA 69 18 jp n,1869 ... 
1859 2A 42 B3 ld h1,(B342) GRA temp store x on draw 
185C EB ex de,hl 
185D 22 42 B3 ld (B342),hl GRA temp store x on draw 
1860 2A 44 B3 ld hl, (B344) GRA temp store y on draw 
1863 E3 ex (sp),hl 
1864 22 44 B3 ld (B344),hl GRA temp store y on draw 
1867 18 08 jr 1871 ... 
1869 21 00 00 ld h1,0000 
186C B7 ora 
186D ED 42 sbe hl,bce 
186F 44 ld b,h 
1870 4D ld c,1 
1871 DL pop de 
1872 2A 44 B3 ld h1, (B344) GRA temp store y on draw 
1875 B7 ora 
1876 ED 52 sbc hl,de 
1878 EB ex de,hl 
1879 F2 8E 18 jp p,188E .. 
187C 21 00 00 ld h1,0000 
187F B7 or a 
1880 ED 52 sbc hl,de 
1882 54 ld d,h 
1883 5D ld e,l 
1884 B7 or a 
1885 ED 42 sbc hl,bc 
1887 21 01 00 ld h1,0001 ... 
188A 30 27 jr nc,18B3 ... 
1388C 18 0A jr 1898 se 
188E 62 ld h,d 
188F 6B ld 1,e 
1890 B7 or a 
1891 ED 42 sbc hl,bce 
1893 21 FF FF ld hl,FFFF ... 
1896 30 09 jr nc,18Al ... 
1898 22 3A B3 ld (B33A),hl GRA temp store | 
189B 60 ld h,b 
189C 69 ld 1,c 
189D 3E FF ld a,FF =255. 
189F 18 19 jr 18BA ... 
18Al ES push hl 
18A2 2A 42 B3 ld h1,(B342) GRA temp store x on draw 
1845 09 add hl,bc 
18A6 22 42 B3 ld (B342),hl GRA temp store x on draw 
18A9 2A 44 B3 ld hl, (B344) GRA temp store y on draw 
18AC B7 or a 
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18AC 


18AD ED 52 sbc hl,de 


18AF 22 44 B3 ld (B344),hl GRA temp store y on draw 
18B2 EI pop hl 
18B3 22 3A B3 ld (B33A),hl GRA temp store 1 
@ 17Bl! 17C3” 
18B6 60 ld h,b 
1857 69 ld 1,c 
18B8 EB ex de,hl 
18B9 AF xor a reset 
18BA 32 46 BB 1d (B346),a GRA temp flag 
18Bn 13 inc de 
18BE ED 53 40 B3 1d (B340),de GRA temp store 4 
18C2 23 inc hl 
18C3 CD 8C 37 call 378C INT ARITH, DVDu <hl>=<hl>/<de>; <de>=remaind 
1806 22 3C B3 ld (B33C),hl GRA temp store 2 
18C9 ED 53 3E B3 ld (B33E),de GRA temp store 3 
18CD ED 4B 40 B3 1d bc, (B340) GRA temp store 4 
18D1 50 ld d,b 
18D2 59 ld e,c 
1303 CB 3A srld 
18D5 CB 1B trre 
18D7 C5 push be 
1808 ED 4B 3C B3 L1d bc, (B33C) GRA temp store 2 
18DC 2A 3E B3 ld hl, (B33E) GRA temp store 3 
18DF 19 add hl,de 
18E0 EB ex de,hl 
18El 2A 40 B3 ld h1,(B340) GRA temp store 4 
18E4 B7 ora 
18E5 ED 52 sbc hl,de 
18E7 30 07 jr nc,18F0 ... 
18E9 19 add hl,de 
18EA EB ex de,hl 
13EB B7 or a 
l18EC ED 52 sbc hl,de 
l3EE EB ex de,hl 
l8EF 03 inc be 
18F0 D5 push de 
18Fl 3A 46 B3 ld a, (B346) GRA temp flag 
18F4 B7 or a 
18F5 28 23 jr z,191A ... 
18F7 2A 42 B3 ld h1,(B342) GRA temp store x on draw 
18FA_ 54 ld d,h 
18FB 5D ld e,l 
l8FC 09 add hl,bce 
l8FD 22 42 B3 ld (B342),hl GRA temp store x on draw 
1900 44 ld b,h 
1901 4D ld c,1 
1902 OB dec bc 
1903 2A 44 B3 ld h1,(B344) GRA temp store y on draw 
1906 ES push hl 
1907 CD BO 16 call 16B0O ... 
190A 3A 38 B3 ld a,(B338) GRA PEN INK 
190D DC C4 OF call c,OFC4 SCR HORIZONTAL line plot, <a>=ink, de=xbase, 
1910 DI pop de 
1911 2A 3A B3 ld h1,(B33A) GRA temp store 1 
1914 19 add hl,de 
1915 22 44 B3 ld (B344),h1l GRA temp store y on draw 
1918 18 23 jr 1930 ... 
19lA 2A 44 B3 ld h1,(B344) GRA temp store y on draw 
191D 54 ld d;h 
191E 5D ld e,1 
191IF 09 add hl,bc 
1920 22 44 B3 ld (B344),hl GRA temp store y on draw 
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1923 44 1d b,h 


1924 4D ld c,1 
1925 OB dec bc 
1926 EB ex de,hl 
1927 ED 5B 42 B3 ld de, (B342) GRA temp store x on draw 
192B D5 push de 
192C CD 64 16 call 1664 ... 
192F 3A 38 B3 ld a,(B338) GRA PEN INK 
1932 DC 2F 10 call c,102F SCR VERTICAL line plot, <a>=ink, de=xbase, b 
1935 DI pop de 
1936 2A 3A B3 ld h1,(B33A) GRA temp store | 
1939 19 add hl,de 
193A 22 42 B3 ld (B342),hl GRA temp store x on draw 
193D DI pop de 
193E cl pop be 
193F OB dec bc 
1940 78 ld a,b 
1941 Bl or c 
1942 20 93 jr nz,18D7 ... 
1944 9 ret 
Siss- GRA WRITE CHAR <a> at current graphic pos 
@ 1412 BBFC! 
1945 DD ES push ix 
1947 CD D3 12 call 12D3 TXT GET char <a> MATRIX, (hl)=address, carry 
194A 11 3A B3 ld de,B33A GRA temp store 1 
194D D5 push de 
194E DD EL pop ix 
1950 01 08 00 ld bc,0008 
1953 ED BO ldir 
1955 cD 1A 16 call 161A ... 
1958 CD FF 16 call 16FF ... 
195B 30 4C jr nc,19A9 ... 
195D ES push hl 
195E D5 push de 
195F 01 07 00 1d bc,0007 ... 
1962 EB ex de,hl 
1963 09 add hl,bc 
1964 EB ex de,hl 
1965 B7 ora 
1966 ED 42 sbc hl,be 
1968 CD FF 16 call 16FF ... 
196B DI pop de 
196C EI pop hl 
196D 30 3A jr nc,19A9 ... 
196F CD AI OB call OBA9 SCR DOT POSITION convert base coordinates to 
1972 16 08 ld d,08 =8. 
1974 E5 push hl 
1975 1E 08 ld e,08 =8. 
1977 cD CF 19 call 19CF ... 
197A CB 09 rre c 
197C DC F9 OB call c,OBF9 SCR NEXT BYTE, step screen addr (hl) right o 
197F DD CB 00 06 rlc (ix+00) 
1983 1D dec e 
1984 20 Fl jr nz,1977 ... 
1986 EI pop hl 
1987 CD 13 0C call 0C13 SCR NEXT LINE, step screen addr (hl) down on 
198A DD 23 inc ix 
198C 15 dec d 
198D 20 E5 jr nz,1974 ... 
198F DD EI pop ix 
1991 CD FC 15 call 15FC GRA ASK CURSOR, <de>=x, <hl>=y 
1994 EB ex de,hl 
1995 CD EC 0A call OAEC SCR GET MODE <a>, cp Ol 


1998 01 08 00 ld bc,0008 
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199B 
199D 
199F 
19Al 
19A2 
19A3 
19A4 
19A5 
19A6 


1949 
19AB 
19AC 
19AE 
19Bl 
19B3 
19B4 
19B5 
19B6 
1989 
19BC 
19BD 
19BE 
19BF 
19C3 
19C4 
19C6 
19C7 
19C8 
19CA 
19CB 
19CD 


19CF 
19D3 
19D6 
19D8 
19DB 
19DC 


19DF 


19E0 


FE 01 cp Ol 

28 04 jr z,19A3 

30 03 jr nc,19A4 
09 add hl,bc 

09 add hl,bc 

09 add hl,bc 

09 add hl,bce 

EB ex de,hl 

c3 F4 15 jp 15F4 

0E 08 ld c,08 

D5 push de 

06 08 ld b,08 

CD FF 16 call 16FF 
30 0C jr nc,19BF 
E5 push hl 

D5 push de 
c5 push bc 
CD A9 OB call 0BA9 
CD CF 19 call 19CF 
cl pop bc 
DL pop de 

El pop hl 

DD CB 00 06 rlc (ix+00) 
13 inc de 

10 E8 djnz 19AE 
DL pop de 

2B dec hl 

DD 23 inc ix 

0D dec c 

20 DE jr nz,19AB 
18 co jr 198F 


@ 19771 1989! 
DD CB 00 7E bit 7,(ix+00) 
3A 38 B3 ld a, (3338) 


20 03 jr nz,19DB 
3A 39 B3 ld a, (8339) 
47 ld b,a 


c3 ES BD jp BDE8 


c7 
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=1. 


... 


GRA MOVE ABSOLUTE, <de>=x, <hl>=y 
=8. 
=8, 


SCR DOT POSITION convert base coordinates to 


... 


GRA PEN INK 


GRA PAPER ink 


SCR WRITE pixel(s) (hl)=addr, <c>=mask, usin 
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—— KM INITIALISE key manager 


@ 063D! BBOO! 
19E0O 21 02 1E ld h1,1E02 default value for DELAY KEY 
19E3 CD 6D IC call 1C6D KM SET DELAY key, <h>=start, <l>=rep. speed 
19E6 AF xor a 
19E7 32 OB B5 ld (B50B),a ... 
19EA 67 ld h,a HL=0000 
19EB 6F ld 1,a 
19EC 22 E7 B4 ld (B4E7),hl KM caps lock state 
19EF 21 3C B4 ld h1,B43C KM KEY REPEAT MAP 
19F2 11 BO FF ld de,FFBO =80., =# of keys 
19F5 22 47 B5 ld (B547),hl KM repeat key, pointer to table 
19F8 19 add hl,de 
19F9 22 45 B5 ld (B545),hl KM translare control entry, pointer 
19FC 19 add hl,de 
19FD 22 43 B5 ld (B543),hl KM translate shift entry, pointer 
1400 19 add hl,de 
1A0Ol 22 41 B5 ld (B541),hl KM translate normal entry, pointer 
1A0O4 EB ex de,hl 
1A05 21 69 1D ld h1,1D69 default KEY normal/shift/control/repeat entr 
1A08 Ol FA 00 ld bc,O0FA # of bytes to copy 
l1AOB ED BO ldir 
1AOD 06 0A ld b,0A # of bytes to clear 
lAOF 21 EB B4 ld h1,B4EB KM key state map (marks pressed keys by sett 
lAl2 36 00 ld (h1),00 clear key state map to zero 
1Al4 23 inc hl 
1Al5 10 FB djnz 1Al2 next 
1Al7 06 0A ld b,0A count 
1A1l9 36 FF ld (hl),FF clear rest to FF (no key) 
1AlB 23 inc hl 
lAlc 10 FB djnz 1A1l9 next 


— KM RESET key manager 
@ O05FO! BBO3! 


lAlE CD ED IC call ICED performs reset KM, part | 

1A2l CD 75 1A call 1A75 set KEYBOARD put back” to be empty 

1A24 11 46 B4 ld de,B446 KM function KEY expansion buffer 

1A27 21 98 00 ld h1,0098 =152. = len of buffer 

lA2A CD 81 1A call 1A81 per£forms ALLOCATE EXPANSION BUFFER 

1A2D 21 36 1A ld h1,1A36 data for KM test BREAK or RESET 

1A30 CD 8A 0A call 0A8A copy (hl) "ytes to address (hl+l),(h1l+2) 
1A33 C3 82 IC jp 1c82 KM DISARM BREAK 


— data for KM test BREAK or RESET 
@ 1A2D: 
1A36 03 EE BD C3 2F IC 


— KM WAIT CHAR from keyboard =<a> 
@ 1A3F” 2DE3 2DFO! BBO6! 


lA3C CD 42 1A call 1A42 KM READ CHAR from keyboard =<a> 
lA3F 30 FB jr nc,1A3C KM WAIT CHAR from keyboard =<a> 
1A41 C9 ret 


.— KM READ CHAR from keyboard =<a> 
@ 1A3C! 2769! BBO9! 


1A42 E5 push hl 

1A43 21 EO B4 ld h1,B4EO KM KEYBOARD ”put back’ character 
1A46 TE 1d a,(hl) 

1A47 36 FF ld (hl),FF mark empty 

1A49 BE cp (hl) was it empty before? 

lA4A 38 27 jr c,1A73 return with key in <a> 

lA4C 2A DE B4 ld hl, (B4DE) KM expansion string flag and count 
l1A4F  7C ld a,h 

1A50 B7 or a 

1451 20 11 jr nz,1A64 get char from expansion string 
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CD 5C 1B call 1B5C KM READ a KEY 

30 1B jr nc,1A73 no key available 

FE 80 cp 80 is it an expansion token? 
38 17 jr c,1A73 return with key in <a> 
FE AO cp AO =160. 

3F ccf 

38 12 jr c,1A73 return with key in <a> 
67 ld h,a 

2E 00 ld 1,00 <hl> builds the index 
D5 push de 

CD 2E 1B call 1B2E 

38 02 jr c,lA6C char found 

26 00 ld h,00 =0. 

2C inc 1 

22 DE B4 ld (B4DE),h1l KM expansion string flag and count 
DL pop de 

30 EO jr nc,1A53 check keyboard again 
El pop hl 

c9 ret 

set KEYBOARD "put back’ to be empty 

@ 1A21! 

3E FF ld a,FF "IGNORE 

KM RETURN CHAR <a> to ’put back” location 

@ BBOCI! 

32 EO B4 ld (B4EO),a KM KEYBOARD *’put back” character 
c9 ret 

KM allocate EXP BUFFER (de), <hl>=len 

@ BB151 

CD 81 1A call 1lA8dl performs ALLOCATE EXPANSION BUFFER 
3F ecf 

FB ei 

c9 ret 

performs ALLOCATE EXPANSION BUFFER 

@ 1A2A! 1A7B! 

F3 di 

7D ld a,l 

D6 31 sub 31 =49, 

7C ld a,h 

DE 00 sbc a,00 =0. 

D8 ret c no room 

19 add hl,de 

22 E3 B4 ld (B4E3),hl 

EB ex de,hl 

22 El B4 ld (B4El),hl 

01 30 0A ld bc,0A30 b= count 10., c= ’0 

36 01 ld (h1),01 len of expension string 
23 inc hl 

nı ld (hl),c ="0.71- 22 73000 

23 inc hl 

0Cc inc c 

10 F8 djnz 1A94 next entry 

EB ex de,hl 

21 B3 1A ld h1,1AB3 data for °.’” and ’ENTER 
0E 0A ld c,0A count = 10. 

BO ldir 

EB ex de,hl 

06 13 ld b,13 count = 19. 

AF xor a 

77 ld (hl),a clear rest of buffer 
23 inc hl 

10 FC djnz 1AA8 next 

64 KEY MANAGER 


KM GET EXPANSION string, <a>=exp. token, <l> 


KM pointer to end of expansion buffer +l 


KM pointer to FUNCTION KEY EXPANSION BUFFER 
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lAAC 22 ES B4 ld (B4E5),hl KM expansion buffer pointer 


lAAF 32 DF B4 ld (B4DF),a KM expansion buffer flag 
1AB2 cC9 ret 
- data for °.’” and ’ENTER 
1AB3 O1 2E Ol OD 05 52 55 4E 22 OD "ser .RUN". 
— KM SET EXPANSION string 
@ BBOF! 
1ABD F3 di 
1ABE 78 ld a,b b = expansion token 
lABF CD 3E 1B call 1B3E get len and addr of expansion string 
lAc2 30 IF jr nc,1AE3 string too long 
lAC4 cC5 push be 
1AC5 D5 push de 
1lACc6 ES push hl 
1AC7 CD ES 1A call 1AE5 shift rest of buffer up/down matching new le 
lACA 3F ck 
lACB EL pop hl 
lAcc DL pop de 
lAcD cl pop be 
lACE 30 13 jr nc,1lAE3 invalid token 
1ADO 1B dec de 
1ADl 79 ld a,c length of string 
1AD2 O0C ine c 
1AD3 12 ld (de),a insert byte 
1AD4 13 inc de 
1AD5 E7 rst 4 ld a,(hl), ROMs disabled 
1AD6 23 inc hl 
1AD7 OD dec c 
1AD8 20 F9 jr nz,1AD3 next byte 
1ADA 21 DF B4 ld h1,B4DF KM expansinn buffer flag 
lADD 78 ld a,b 
1ADE AE xor (hl) 
lADF 20 01 jr nz,1lAE2 = jump to function key routine 
lAEl 77 ld (hl),a 
lAE2 37 scf 
1AE3 FB ei 
lAE4 CI ret 
-- shift rest of buffer up/down matching new len 
lAE5 06 00 ld b,00 =0 
1AE7 60 ld h,b =0 
1AE8 6F ld 1,a = len of old entry 
lAE9 79 ld a,c = len of new entry 
l1AEA 95 sub 1 
lAEB C8 ret z same length, do nothing 
lAEC 30 OF jr nc,1lAFD new len is longer 
lAEE 7D ld a,l 
lAEF 69 ld 1,c 
1AFO 4F ld c,a 
lAFl 19 add hl,de 
lAF2 EB ex de,hl 
lArF3 09 add hl,bc 
lAF4 CD 22 1B call 1B22 <be>=<expans buff ptr>-<hl> 
l1AF7_ 28 23 jr z,1Blc ... 
1AF9 ED BO ldir 
lAFB 18 IF jr 1BIlcC ... 
1AFD 4F ld c,a 
lAFE 19 add hl,de 
lAFF E5 push hl 
1B00 2A E5 B4 ld h1,(B4E5) KM expansion buffer pointer 
1803 09 add hl,bc 
1B04 EB ex de,hl 
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<be>=<expans buff ptr>-<hl> 


22 1B 
E5 B4 
06 


B8 


53 E5 B4 


ld hl, (B4E3) 
ld a,1 
sub e 
ld a,h 
sbce a,d 
pop hl 
ret c 
call 1B22 
ld hl, (B4E5) 
jr z,1Blc 
push de 
dec de 
dec hi 
lddr 
pop Je 
ld (B4E5),de 
ora 
ret 


@ lAF4! 1BOE! 


3A 
95 
4F 
3A 
Ele 
47 
Bl 
c9 


E5 B4 


E6 B4 


ld a,(B4E5) 
sub 1 

ld c,a 

ld a, (B4E6) 
sbc a,h 

ld b,a 

or c 

ret 


KM pointer to end of expansion buffer +1 


<be>=<expans buff ptr>-<hl> 
KM expansion buffer pointer 


KM expansion buffer pointer 


KM expansion buffer pointer 


expansion buffer pointer hi byte 


KM GET EXPANSION string, <a>=exp. token, <l>=charf#, =<a>char, =carry 
@ 1A651 BBl2! 


CD 
DO 
BD 
c8 
3F 
DO 
E5 
26 
19 
7E 
El 
37 
c9 


3E 1B 


00 


call 1B3E 

ret nc 

cp 1 

ret z 

ccf 

ret nc 
push hl 
ld h,00 
add hl,de 
ld a,(hl) 
pop hl 

scf 

ret 


get len and addr of expansion string 


char# (0...n) 
last char 


=0. 


get len and addr of expansion string 
@ lABF! 1B2E! 


E6 
FE 
DO 
E5 
2A 
1l 
3C 
19 
5E 


7F 
20 


El B4 
00 00 


FA 


and 7F 
cp 20 
ret nc 
push hl 
ld hl, (B4El) 
ld de,0000 
inc a 
add hl,de 
ld e,(hl) 
inc hl 
dec a 
jr nz,1B4B 
ld a,e 
ex de,hl 
pop hl 
scf 
ret 


KEY MANAGER 


mask out bit 7 
max len of entry = 32. 
illegal len 


KM pointer to FUNCTION KEY EXPANSION BUFFER 


get len of this entry 
count 


skip entry by adding its len 
len of expansion token to be replaced 
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—— KM WAIT for KEY 
@ 1859” 2771! BBl8! 


1B56 CD 
1859 30 
1B5B CI 


5C 1B 
FB 


call 1B5C 
jr nc,1B56 
ret 


-- KM READ a KEY 
@ 1453! 


1B5C ES 


15 1D 
3A 


EF 


34 
OF 


AO 1B 
E8 B4 


c2 


1856! BBlB! 


push hl 

push bc 
call 1D15 
jr nc,1B9D 
ld a,c 
cp EF 
jr z,1B9C 
and OF 
add a,a 
add a,a 
add a,a 
dec a 
inc a 
rrc b 
jr nc,1B6E 
call 1BAO 
ld h1,B4E8 
bit 7,(hl) 
jr z,1B87 
cp 6l 
jr c,1B87 
cp 7B 
jr nc,1B87 
add a,EO 


jr nz,1B9C 
ld a,(hl) 

cpl 

ld (hl),a 

jr 1B5E 


scf 
pop bc 
pop hl 
ret 


KM READ a KEY 
KM WAIT for KEY 


"BREAK mark 
yes, return 
mask out 


*8 


bit not ser 
get control, shift or translate entry 
KM shift lock state 


caps not locked 

‘a 

X 

change to upper case 
“IGNORE 

ok, get next key matrix 
“SHIFT LOCK 

KM caps lock state 

yes, flip caps lock state flag 
"CAPS LOCK 

shift lock state 

no, not shift lock 


look for another key 


.— get control, shift or translate entry 
@ 1873! 


eiic 

jp c,1D48 
ld b,a 

ld a,(B4E7) 
or c 

and 40 

ld a,b 

jp nz,1D43 
jp 1D3E 
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KM GET CONTROL entry, in: <a>=keyf#, out: <a> 
KM caps lock state 
test bit 6, shift key 


KM GET SHIFT entry, in: <a>=keyf, out: <a>=t 
KM GET TRANSLATE, in: <a>=keyf#, out: <a>=tra 
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KM GET STATE <h>=caps, <l>=shift lock 
@ BB21! 


2A E7 
c9 


B4 


ld h1,(B4E7) 
ret 


KM caps lock state 


KM update key state map (every 1/50 second) 
@ 0009! 


C4 48 


21 09 


2A 0A 


16 00 
21 EB 


2A 47 


21 09 


3A E9 


B4 


B4 
B4 


Ic 


BD 


B5 


B4 


B5 


B5 


B5 


B4 


ld de,B4FF 
ld h1,B4F5 
call 0846 
ld a,(B501) 
and AO 

ld c,a 

ld h1,B4ED 
or (hl) 

ld (hl),a 
ld h1,B4FF 
ld de,B4EB 
ld b,00 

ld a,(de) 
xor (hl) 
and (hl) 
call nz,1C48 
ld a,(hl) 
ld (de),a 
inc hl 

inc de 

inc c 

ld a,c 

and OF 

cp 0A 

jr nz,1BD3 
ld a,c 

and AO 

bit 6,c 

ld c,a 
call nz,BDEE 
ld a,b 

or a 

tet nz 

ld h1,B509 
dec (hl) 
ret nz 

ld hl, (B50A) 
ex de,hl 

ld b,d 

ld d,00 

ld h1,B4EB 
add hl,de 
ld a,(hl) 
ld h1,(B547) 
add hl,de 
and (hl) 
and b 

ret z 

ld h1,B509 
inc (hl) 

ld a, (B540) 
or a 

ret nz 

ld a,c 

or e 

ld c,a 

ld a, (B4E9) 
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KM KEY last cycle state map 

KM KEY change state map 

ask keys pressed and set map 

= shift and caps bits of last scann 

mask 10100000 

this byte contains the ’CTL and °’SHFT bits 
KM KEY last cycle state map 


KM key state map (marks pressed keys by sett 
=0. 


=15. 
=10. 


=160. 


KM TEST BREAK or reset; in: interrupts disab 


KM time count for repeat speed 


=0. 
KM key state map (marks pressed keys by sett 


KM repeat key, pointer to table 


this key may not repeat 
KM time count for repeat speed 


KM KEY repeat speed 
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ld (B509),a 


call ICFE 
ld a,c 
and OF 
ld 1,a 
ld h,b 


ld (B50A),hl 


cp 08 
ret nz 
bit 4,b 
ret nz 
set 6d,c 
ret 


KM time count for repeat speed 


=15. 


... 


=8. 


— KM TEST BREAK or reset; in: interrupts disabled, <c>=shft/ctl key states 


@ 1A39 BDEE 
21 F3 B4 
1C32 CB 56 

1034 C8 

1035 79 

1C36 EE AO 

1C38 20 56 


1C3C 06 0A 


1C40 10 FC 


IC4F 3A EA B4 
1C52 cp 18 Ic 


1C57 20 Fl 


sans KM GET JOYSTICKs 1=<h>, 2=<1> 


@ BB24! 
Ic5c 3A Fl B4 
Ic5F E6 7F 


1C62 3A F4 B4 
1065 E6 7F 


huslik, cpc464 ins 


ld h1,B4F3 

bit 2,(hl) 
ret z 

ld a,c 

xor AO 

jr nz,1C90 
push bc 
inc hl 
ld b,0A 
adc a,(hl) 
dec hl 
djnz 1C3E 

pop bc 

cp A4 

jr nz,1C90 
rst O 


push hl 

push de 
ld e,a 
cpl 
inc a 
and e 
ld b,a 


ld a, (B4EA) 


call 1C18 
ld a,b 
xor e 


jr nz,1C4A 


pop de 
pop hl 
ret 


ld a, (B4Fl) 
and 7F 

ld 1,a 

ld a, (B4F4) 
and 7F 

ld h,a 

ret 


ide out 


bit 2 = break key 


test for °SHIFT and ’CTL keys 
KM BREAK EVENT 


=10. 


=164. 
KM BREAK EVENT 


KM KEY startup delay 


... 


joystick 2 
mask out bit 7 


joystick 1 
mask out bit 7 
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1C68 


— KM GET DELAY key, <h>=start, <l>=rep. speed 


@ BB42! 
1069 2A EI B4 ld h1,(B4E9) KM KEY repeat speed 
lc6C CI ret 


— KM SET DELAY key, <h>=start, <l>=rep. speed 
@ 19E3! BB3F! 


lc6D 22 EI B4 ld (B4E9),hl KM KEY repeat speed 
1C70 c9 ret 
-_-- KM ARM BREAK, (de)=routine, <c>=ROM select 

@ BB45! 
1C71l CD 82 Ic call 1C82 KM DISARM BREAK 
1C74 21 OD B5 ld h1,B50D KM event block BREAK 
1C77 06 40 ld b,40 event class 
1C79 cD D2 Ol call O1D2 KL INIT EVENT BLOCK (hl)=block, <b>=class, < 
1C7C 3E FF ld a,FF set 
IC7E 32 0C B5 ld (B50C),a KM BREAK ENABLE FLAG 
1c81l c9 ret 


----- KM DISARM BREAK 
@ 1A33 1C71! BB48! 


1C82 C5 push bc 

1C83 D5 push de 

1C84 21 0C B5 ld h1,B50C KM BREAK ENABLE FLAG 

1087 36 00 ld (h1),00 reset BREAK flag 

1C89 23 inc hl 

lC8A CD 85 02 call 0285 KL DEL SYNC, delete block (hl) from queue 
lceDp DI pop de 

IC8E CI pop bc 

Ic8F CI ret 


.—n KM BREAK EVENT 
@ 1C38° 1045’ BB4B! 


1C90 21 0C B5 ld h1,B50C KM BREAK ENABLE FLAG 
1093 7E ld a,(hl) 
1094 36 00 ld (h1),00 reset BREAK ENABLE FLAG 
1C96 BE cp (hl) was it set before? 
1C97 cC8 ret z no, it was reset; return 
1C98 C5 push bc 
1C99 D5 push de 
1C9A 23 inc hl 
1C9B CD E2 Ol call OlE2 KL EVENT, kick an event block (hl) 
1C9E OE EF ld c,EF "BREAK mark 
1CAO CD FE IC call ICFE ... 
1cA3 DI pop de 
IcCA4 Ci pop bc 
1CA5 C9 ret 
.— KM GET REPEAT key# <a>, nz if repeat 
@ BB3C! 
ICA6 2A 47 B5 ld h1, (B547) KM repeat key, pointer to table 
1CA9 18 1D jr 10C8 
----- KM SET REPEAT keyf# <a>, <b>=0 = not 
@ BB391! 
lCAB FE 50 cp 50 max key number = 80. 
lcAD nO ret nc 
ICAE 2A 47 B5 ld h1, (B547) KM repeat key, pointer to table 
ICcBl CD CD IC call ICCD set bit in <a> to mask or compare 
1lCB4 4F ld c,a 
IcB5 2F cpl 
lcB6 A6 and (hl) 
1cB7 77 ld (hl),a 
lCcB8 79 ld a,c 
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and b 

or (hl) 
ld (hl),a 
ret 


_- KM TEST if KEY #<a> is pressed 
@ 2A79! BBIE! 


lCBD F5 push af 
lCBE 3A ED B4 ld a,(B4ED) this byte contains the ’CTL and °’SHFT bits 
lIccl E6 AO and AO 10100000 mask ’CTL (1B7) and °SHFT (1B5) 
lccC3 4F ld c,a 
lcc4 Fl pop af 
Icc5 21 EB B4 ld h1,B4EB KM key state map (marks pressed keys by sett 
1cc8 CD CD IC call ICCD set bit in <a> to mask or compare 
lCCB A6 and (hl) 
lccc CI ret 
— set bit in <a> to mask or compare 
@ ICBL! Icc8! 
IccD D5 push de 
ICCE F5 push af 
ICCF E6 F8 and F8 preserve upper bits to calc addr 
IcDl OF rrca 
lcD2 OF rrca 
1cD3 OF rrca 
ICD4 5F ld e,a 
1cD5 16 00 ld d,00 
1cD7 19 add hl,de 
1cD8 Fl pop af 
1CD9 ES push hl 
IcDA 21 E5 IC ld hl,1CE5 bit map masks 
IcDD E6 07 and 07 preserve lnwer bits 
ICDF 5F ld e,a 
1CEO 19 add hl,de 
ICEl T7E ld a,(hl) 
ICE2 EI pop hl 
ICE3 DL pop de 
lCE4_ CI ret 


— bit map masks 


@ 1CDA: 


ICE5 01 02 04 08 10 20 40 80 


.— performs reset KM, part | 


@ lAlE! 


ICEE 21 3C B5 
ICFl_ 36 15 


ICF7_ 36 Ol 


@ 1c1B! 
ICFE 21 3C B5 
1DOl B7 
1D02 35 
1D03 28 OE 
1D05 CD 2C ID 


di 

ld h1,B53C ... 
ld (h1),15 
inc hl 

xor a 

ld (hl),a 
inc hl 

ld (h1),01 
inc hl 

ld (hl),a 
inc hl 

ld (hl),a 
ret 


1cA0! 


ld h1,B53C ... 
ora 

dec (hl) 

jr z,1D13 ... 
call 1D2C ... 


huslik, cpc464 inside out KEY MANAGER 71 1005 


1D51 


71 ld (hl),c 

23 inc hl 

70 ld (h1),b 

21 40 B5 ld h1,B540 ... 
34 inc (hl) 

21 3E B5 ld h1,B53E ... 
37 scf 

34 inc (hl) 

c9 ret 

@ 1B5E! 

21 3E B5 ld h1,B53E .. 
B7 or a 

35 dec (hl) 

28 0E jr z,1D2A restore 
cD 2C 1D call 1D2C ... 
4E ld c,(hl) 

23 inc hl 

46 ld b,(h1l) 

21 40 B5 ld h1,B540 ... 
35 dec (hl) 

21 3C B5 1d h1,B53C ie 
37 scf 

34 inc (hl) 

c9 ret 


@ 1D05! 1DIc! 


23 inc hl 

34 inc (hl) 

TE ld a,(hl) 

FE 14 cp 14 =20. 
20 02 jr nz,1D35 ... 
AF xor a 

77 ld (hl),a 

87 add a,a 

CE 14 adc a,l4 

6F ld 1,a 

CE B5 adc a,B5 <hl>=<a>#2+B514 
95 sub 1 

67 ld h,a 

c9 ret 


KM GET TRANSLATE, in: <a>=keyf, out: <a>=translation 

@ 1BBO BB2A! 

2A 41 B5 ld h1,(8B541) KM translate normal entry, pointer 
18 08 jr 1048 


KM GET SHIFT entry, in: <a>=keyf#, out: <a>=translation 

@ 1BAD BB30! 

2A 43 B5 ld h1,(B543) KM translate shift entry, pointer 
18 03 jr 1D48B 


KM GET CONTROL entry, in: <a>=keyf#, out: <a>=translation 
@ 1BA2 BB36! 


2A 45 B5 ld hl, (B545) KM translate control entry, pointer 

85 add a,l add key# to start of table 

6F ld 1,a 

8C adc a,h 

95 sub 1 

67 ld h,a 

7E ld a,(hl) get translation 

c9 ret 

72 KEY MANAGER huslik, cpc464 inside 


out 


.- KM SET TRANSLATE entry, <a>=keyf#, <b>=new translation 


set entry to <b> 


KM translate shift entry, pointer 


add key# to start of table 


@ BB27! 

1D52 2A 41 B5 ld h1,(B541) 

1D55 18 08 jr 1D5F 

.--- KM SET SHIFT entry, <a>=key#, <b>=new translation 
@ BB2D! 

1D57 2A 43 B5 ld h1,(B543) 

1D5A 18 03 jr 1D5F 

_- KM SET CONTROL entry, <a>=key#, <b>=new translation 
@ BB33! 

1D5C 2A 45 B5 ld h1,(B545) 

1D5F FE 50 cp 50 

1D61 DO ret nc 

1D62 85 add a,l 

1D63 6F ld 1,a 

1D64 8C adc a,h 

1065 95 sub 1 

1D66 67 ld h,a 

1D67 70 ld (hl),b 

1D68 c9 ret 


KM translate normal entry, pointer 


KM translate control entry, pointer 
max key# =79. 


-. default KEY normal/shift/control/repeat entries (copied to B34C ... 


1D69 FO F3 Fl 89 86 83 8B 8A F2 EO 87 
1D81l 5E 2D 40 70 3B 3A 2F 2E 30 39 6F 
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8l 
6B 
64 


10 5B OD 5D 
38 37 75 79 
31 32 FC 71 


KEY MANAGER 


73 


B445) 


5C 
6E 


FF 
20 
7A 
80 
3C 
58 
8A 
FF 
16 
7F 


1E68 


lECA 


SOUND RESET 


@ 05E0! 0640! 287A! BCAT! 


flush sound 
@ 1FA9I 

E5 

1D B5 

3F 00 

38 

F8& 

El 


7F 22 


lc 04 


74 


xor a 


(B552),a 
(B551l),a 
h1,B555 
de,1F03 
b,8l 
call 01D2 
ld a,3F 

ld (B619),a 
ld h1,B55C 
1d bc,003 
ld de,0108 
xor a 

ld (hl),a 
inc hl 

ld (hl),d 
inc hl 

ld (hl),e 
add hl,bc 
inc a 

ex de,hl 
add hl,hl 
ex de,hl 

cp 03 

jr nz,1E8A 
ld c,07 


queues of channel(s) 


push ix 
push hl 
ld h1,B51D 
ld b,c 
ld de,003F 
add hl,de 
srl b 
jr nc,lEAl 
push bc 
push hl 
pop ix 
ex de,hl 
call 227F 
inc de 
inc de 
inc de 
ld 1,e 
ld h,d 
inc de 
ld bc,003B 
ld (h1),00 
ldir 
ld (ix+1C),04 
pop bc 
ex de,hl 
inc b 
djnz 1EA5 
pop hl 
pop ix 
ret 


SOUND MANAGER 


SOUND channel bits of active sounds 

SOUND save for active sounds 

SOUND event block 

event routine SOUND 

=129. 

KL INIT EVENT BLOCK (hl)=block, <b>=class, < 
=63, 


SOUND QUEUE, channel A, 


(first entry), chann 


=3. 


=]. 


<c> 


(+3F=B55C)=start of sound queue chan A 


len of one channel block 


next channel 


hl=de 


next entry in queue 


huslik, cpc464 inside out 


----- SOUND HOLD, stop all sounds 
@ BCB6! 


lECB 
lECE 
lECF 
lEDO 
lED2 
1ED3 
1ED4 
1ED5 
1ED6 
1ED7 
1ED9 
lEDB 
lEDD 
lEDE 
LEEL 
lEE2 


21 52 


36 00 


SOUND CONTINUE stopped sounds 


B5 


1d h1,B552 


ld a,(hl) 
ld (h1),00 


dec hl 

ld (hl),a 
ld 1,03 
ld c,00 
ld a,07 
add a,l 
call 0826 
dec 1 

jr nz,1EDB 
scf 

ret 


@ 1F9F! 204B! BCBI! 


3A 51 


DD 21 
11 3F 
DD 19 
CB 3F 


DD 7E 
DC 76 


20 F2 
c3 1E 


B5 


1D B5 
00 


OF 
22 


20 


ld a,(B551) 
or a 

ret z 

ld ix,B51D 
ld de,003F 
add ix,de 
srl a 
push af 

ld a, (ix+OF) 
call c,2276 
pop af 
jr nz,lEF2 
jp 201E 


event routine SOUND 
@ 1E73: B559: 


DD E5 
21 50 


20 E2 


B5 


1D B5 


push ix 
ld h1,B550 
push hl 
xor a 
ld (hl),a 
inc hl 
ld b,(h1l) 
push bc 
inc hl 
or (hl) 
jr z,1F34 
ld ix,B51D 
ld bc,003F 
add ix,bc 
srl a 
jr nc,1F19 
push af 
ld a, (ix+04) 
rra 
call c,22C2 
ld a,(ix+07) 
rra 
call c,21B6 
call c,20A8 
pop af 
jr nz,1F16 


huslik, cpc464 inside out 


SOUND channel bits of active sounds 
mark sounds not active 

not active before, return 

save previously active sound bits 


max # of active sounds 


<a>= A, 9, 8 


MC SOUND REGISTER, send <a>=reg#, <c>=data 


next 


SOUND save for active sounds 
nothing to restore 


(+3F=B55C)=start of sound queue chan A 
len of one channel block 


get sound for this channel 


... 


restore next channel 


SOUND flag ?? 


save for active sounds 


channel bits of active sounds 


(+3F=B55C)=start of sound queue chan A 
len of one channel block 


another channel 


SOUND MANAGER 75 


1F32 


20 


12 
21 
3F 
19 
3F 


7F 
F5 


54 
El 


pop bc 
pop hl 
ld a,(hl) 
or a 
jr z,1F5A 
ld c,a 
inc hl 
ld a,(hl) 
ld (hl),b 
xor b 
ld b,a 
inc hl 
or (hl) 
ld (hl),a 
ld a,b 
cpl 
and c 
jr z,1F5A 
iD B5 1d ix,B51lD 
00 ld de,003F 
add ix,de 
srl a 
push af 
22 call c,227F 
pop af 
jr nz,1F4F 
xor a 
B5 ld (B554),a 
pop ix 
ret 


(+3F=B55C)=start »f sound queue chan A 
len of one channel block 


SOUND rendenzvous byte ?? 


SOUND TICK (every 1/300 second) 
@ O0CF! 
21 52 B5 ld h1,B552 


03 


22 
3F 


ld a,(hl) 

ora 

ret z 

inc hl 

dec (hl) 

ret nz 

inc (hl) 

inc hl 

ld a,(hl) 

or a 

ret nz 

dec hl 

ld (h1),03 

dec hl 

ld b,(hl) 
B5 ld h1,B522 
00 ld de,003F 

xor a 

add hl,de 

srl b 

jr nc,1F7B 

dec (hl) 

jr nz,1F88 

dec hl 

rlc (hl) 

adc a,d 

inc hl 

inc hl 

dec (hl) 

jr nz,1F91 

inc hl 


SOUND MANAGER 


SOUND channel bits of active sounds 


any sounds active? 
no, return 


decrement SOUND TIMER count 
countdown not finished; return 
set SOUND TIMER to one 


recharge value for SOUND TIMER 


get bits of active sounds 
(+3F=B56l)=noise period chan A 
len of one channel block 


=) 


find an active sound channel 


decrement sound timer again 
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1F8D CB 
1F8F 8A 
1F90 2B 
1F9l 2B 
1F92 04 
1F93 10 
1F95 B7 
1F96 C8 
1F97 21 
1IF9A 77 
1F9B 23 
1F9C C3 


E6 


54 


E2 


B5 


01 


rlc (hl) 
adc a,d 
dec hl 
dec hl 
inc b 
djnz 1F7B 
or a 

ret z 

ld h1,B554 
ld (hl),a 
inc hl 

jp O1E2 


index up to next sound block 


SOUND rendenzvous byte ?? 


KL EVENT, kick an event block (hl) 


----- SOUND QUEUE, add a sound, (hl)=sound program 
@ 14DD! BCAA! 
1F9F CD E6 1E 


lFA2 TE 
1FA3 E6 
1FA5 37 
1FA6 C8 
1FA7 4F 
1lFA8 B6 
1FA9 FC 
1FAC Al 
1FAD DD 
IFBl 11 
lFB4 AF 
1FB5 DD 
1FB7 CB 
1FB9 30 
1FBB DD 
IFBE DD 
IFCl 3F 


07 


IFC2 9F. 


IFC3 04 
IFC4 10 
1IFC6 B7 
IFC7 co 
IFC8 41 
1FC9 TE 
IFCA IF 
IFCB IF 
IFCC IF 
lIFCD BO 
lIFCE E6 
1FDO 4F 
IFDl 23 
1FD2 DD 
1IFD6 11 
IFD9 DD 
1FDB CB 
1IFDD 30 
lIFDF E5 
1FEO C5 
lFEl DD 
lFE4 DD 
lFE7 DD 
lFEA EB 
lIFEB CD 
lFEE ES 
lFEF EB 
IFFO DD 
IFF3 2F 
IFF4 Al 
IFF5 12 


EF 


lE 
Ic 


1D 
00 


ol 


B5 


B5 


call 1lEE6 
ld a,(hl) 
and 07 
sc£ 
ret z 
ld c,a 
or (hl) 
call m,1E9A 
ld b,c 
ld ix,B51D 
ld de,003F 
xor a 
add ix,de 
srl b 
jr nc,1FB5 
ld (ix+lE),d 
cp (ix+lC) 
ecf 
sbce a,a 
inc b 
djnz 1FB5 
or a 
ret nz 
ld b,c 
ld a,(hl) 
rra 
rra 
rra 
or b 
and OF 
ld c,a 
inc hl 
ld ix,B51D 
ld de,003F 
add ix,de 
srl b 
jr nc,1FD9 
push hl 
push bc 
ld a,(ix+lB) 
inc (ix+lB) 
dec (ix+lC) 
ex de,hl 
call 203A 
push hl 
ex de,hl 
ld a, (ix+01) 
cpl 
and c 
ld (de),a 


huslik, cpc464 inside out 


SOUND CONTINUE stopped sounds 
mask out all but channels 


no channels specified 
flush sound queues of channel(s) <c> 


(+3F=B55C)=start of sound queue chan A 
len of one channel block 


next channel 
=0 


... 


mask out 


(+3F=B55C)=start of sound queue chan A 
len of one channel block 


... 


SOUND MANAGER 77 


LFF5 


1FF6 
IFF7 
1FF& 
IFF9 
1FFA 
LFFB 
IFFC 
LFFD 
IFFE 
IFFF 
2000 
2002 
2003 
2004 
2005 
2008 
200A 
200B 
200C 
200F 
2012 
2015 
2016 
2019 
201A 
201B 
201C 


201E 
201F 
2022 
2023 
2024 
2026 
2028 
2029 
202A 
202B 
202C 
202D 
202E 
202F 
2031 
2032 
2034 
2035 
2036 
2037 
2038 
2039 


203A 
203C 
203D 
203E 
203F 
2041 
2043 
2044 
2045 
2046 
2047 
2048 


2048 


13 inc de 

7E ld a,(hl) 
23 inc hl 

87 add a,a 
87 add a,a 
87 add a,a 
87 add a,a 
47 ld b,a 

TE ld a,(hl) 
23 inc hl 

E6 OF and OF 

BO or b 

12 ld (de),a 
13 inc de 

01 06 00 ld bc,0006 
ED BO ldir 

El pop hi 

F3 di 

DD 7E 1A ld a,(ix+lA) 
DD 34 1A inc (ix+lA) 
DD B6 03 or (ix+03) 
FB ei 

CC BD 20 call z,20BD 
cl pop bc 

El pop hl 

04 inc b 

10 B8 djnz 1FD6 

@ 1F00 2064” 

E5 push hl 

21 51 B5 ld h1,B551 
TE ld a, (hl) 
B7 or a 

28 11 jr z,2037 
36 00 ld (h1),00 
F3 di 

23 inc hl 

46 ld b,(h1l) 
BO or b 

77 ld (hl),a 
78 ld a,b 

B7 ora 

20 05 jr nz,2036 
23 inc hl 

36 03 ld (h1),03 
23 inc hl 

77 ld (hl),a 
FB ei 

El pop hl 

37 sc£ 

c9 ret 

@ 1FEB! 20BAl 

E6 03 and 03 

87 add a,a 

87 add a,a 

87 add a,a 

c6 IF add a,IF 

DD ES push ix 

El pop hl 

85 add a,l 

6F ld 1,a 

8C adc a,h 

95 sub 1 

67 ld h,a 

78 SOUND MANAGER 


mask out 


byte count 


inc for following decrement 
add this sound to another queue? 


SOUND save for active sounds 


... 


=3. 


=3. 


=31. 
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2049 C9 ret 


----- SOUND RELEASE, <a>=channel(s) 


@ BCB3! 
204A 6F ld 1,a 
204B CD E6 1E call lEE6 
204E 7D ld a,1l 
204F E6 07 and 07 
2051 C8 ret z 


2052 DD 21 1D B5 1d ix,B51D 
2056 11 3F 00 1d de,003F 


SOUND CONTINUE stopped sounds 
=1. 


(+3F=B55C)=start of sound queue chan A 
len of one channel block 


mask out 


2059 DD 19 add ix,de 

205B CB 3F srl a 

205D 30 FA jr nc,2059 

205F F5 push af 

2060 DD CB 03 5E bit 3, (ix+03) 

2064 C4 B7 20 call nz,20B7 

2067 Fl pop af 

2068 20 EC jr nz,2056 

206A 18 B2 jr 201E 

--- SOUND CHECK for space in <a>, <a>=status 
@ BCAD! 

206C E6 07 and 07 

206E C8 ret z 


206F 21 20 B5 ld h1,B520 
2072 11 3F 00 1d de,003F 


no channels specified 
(+3F=B55F)=tone env to use chan A 
len of one channel block 


=0. 


.--- SOUND ARM EVENT, <a>=channels, (hl)=event block 


2075 19 add hl,de 
2076 IF rra 
2077 30 FC jr nc,2075 
2079 F3 di 
207A TE ld a,(hl) 
207B 87 add a,a 
207C 87 add a,a 
207D 87 add a,a 
207E 11 19 00 ld de,0019 
2081 19 add hl,de 
2082 B6 or (hl) 
2083 23 inc hl 
2084 23 inc hl 
2085 36 00 ld (h1),00 
2087 FB ei 
2088 cC9 ret 

@ BCBO! 
2089 E6 07 and 07 
208B C8 ret z 
208C EB ex de,hl 


208D 21 39 B5 ld h1,B539 
2090 01 3F 00 ld bc,003F 


2093 09 add hl,bc 
2094 IF rra 

2095 30 FC jr nc,2093 
2097 AF xor a 

2098 F3 di 

2099 BE cp (hl) 
209A 23 inc hl 
209B 73 ld (hl),e 
209C 23 inc hl 
209D 20 03 jr nz,20A2 
209F 72 ld (hl),d 
20AO FB ei 

20Al CI ret 


huslik, cpc464 inside out 


mask out 
no channel 


+3F=B578 


len of one channel block 


next channel 
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20Al 


20A2 
20A3 
20A4 
20A5 


20A8 
20AB 
20AC 
20AF 
2082 
20B5 
20B6 


20B7 
20BA 


20BD 
20BE 
20BF 
20C1 
20C3 
20C5 
20C6 
20C8 
20CB 
20CC 
20CD 
20D1 
20D2 
20D3 
20D5 
20D6 
20D7 
20D8 
20D9 
20DA 
20DB 
20DC 
20DD 
20DE 
20DF 
20E1 
20E2 
20E5 
20E8 
20E9 
20EA 
20EB 
20EC 
20ED 
20EE 
20EF 
20F0 
20Fl 
20F2 
20F5 
20F8 
20FB 
20FC 
20FD 
2100 
2103 


2103 


77 ld (hl),a 
FB ei 

EB ex de,hl 

c3 E2 Ol jp O1E2 

@ 1F2E! 

DD 7E 1A ld a, (ix+lA) 
B7 or 


a 
CA IF 22 jp z,227F 
DD 7E Ol Id a,(ix+0l) 
21 50 B5 ld h1,B550 
B6 or (hl) 
77 ld (hl),a 


@ 20641 215B! 2165! 


DD 7E 19 ld a, (ix+19) 
CD 3A 20 call 203A 

@ 2016! 

7E ld a,(hl) 
B7 or a 

28 0C jr z,20CD 
CB 5F bit 3,a 

20 53 jr nz,2118 
E5 push hl 

36 00 ld (h1),00 
cD IF 21 call 2l1F 
El pop hl 

DO ret nc 

DD 36 03 10 1d (ix+03),10 
23 inc hl 

7E ld a,(hl) 
E6 FO and FO 

F5 push af 

AE xor (hl) 
5F ld e,a 

23 inc hl 

4E ld c,(hl) 
23 inc hl 

56 ld d,(hl) 
23 inc hl 

B2 ord 

Bl or c 

28 08 jr z,20E9 
E5 push hl 

CD AB 22 call 22AB 
DD 56 Ol ld d, (ix+#01) 
El pop hl 

4E ld c,(hl) 
23 inc hl 

5E ld e,(hl) 
23 inc hl 

7E ld a,(hl) 
23 inc hl 

66 ld h,(h1l) 
6F ld 1,a 

Fl pop af 

CD 75 21 call 2175 
21 51 B5 ld h1,B551 
DD 7E Ol ld a, (ix+01) 
B6 or (hl) 

77 ld (hl),a 
DD 34 19 inc (ix+19) 
DD 35 1A dec (ix+lA) 
DD 34 IC inc (ix+lC) 
80 SOUND MANAGER 


KL EVENT, kick an event block (hl) 


SOUND flag ?? 


SOUND save for active sounds 


huslik, cpc464 inside 


out 


2106 F3 di 
2107 DD 7E IE ld a,(ix+lE) 


2l0A DD 36 IE 00 1d (ix+lE),00 =0. 
2l0OE FB ei 
2lOF B7 or a 
2110 c8 ret z 
2lll 67 ld h,a 
2ll2 DD 6E 1D ld 1,(ix+1D) 
2115 cC3 E2 Ol jp O1E2 KL EVENT, kick an event block (hl) 
2118 CB 9E res 3,(hl) 
2llA DD 36 03 08 1d (ix+03),08 =8. 
2llE cC9 ret 
@ 20C8! 
2llF DD ES push ix 
212l 47 ld b,a 
2122 DD 4E Ol ld c,(ix+0l) 
2125 DD 21 5C B5 1d ix,B55C SOUND QUEUE, channel A, (first entry), chann 
2129 CB 47 bit 0,a 
212B 20 0C jr nz,2139 ... 
21l2D DD 21 9B B5 1d ix,B59B SOUND QUEUE, channel B 
2131 CB 4F bit 1,a 
2133 20 04 jr nz,2139 ... 
2135 DD 21 DA B5 L1d ix,B5DA SOUND QUEUE, channel C 
2139 F3 di 
213A DD 7E 03 ld a, (ix+03) 
213D Al and c 
213E 28 2D jr z,216D ... 
2140 78 ld a,b 
2l4l DD BE Ol cp (ix+O0l) 
2144 28 1A jr z,2160 ... 
2146 DD ES push ix 
2148 DD 21 DA B5 ld ix,B5DA SOUND QUEUE, channel C 
2lac CB 57 bit 2,a 
2l4E 20 04 jr nz,2154 ... 
2150 DD 21 9B B5 ld ix,B59B SOUND QUEUE, channel B 
2154 DD 7E 03 ld a, (ix+03) 
2157 Al and c 
2158 28 12 jr z,216C ... 
215A FB ei 
215B CD B7 20 call 20B7 ... 
215E DD EI pop ix 
2160 DD 36 03 00 1d (ix+03),00 =0. 
2164 FB ei 
2165 CD B7 20 call 20B7 ... 
2168 DD El pop ix 
2l6A 37 scf 
2l6B C9I ret 
216C EI pop hl 
216D DD El pop ix 
216F DD 70 03 ld (ix+03),b 
2172 FB ei 
2173 B7 or a 
2174 c9 ret 
@ 20F2! 
2175 CB FB set 7,e 
2177 DD 73 OF ld (ix+OF),e 
2l7A 5F ld e,a 
2178 7D ld a,1 
217C B4 or h 
217D 20 O1 jr nz,2180 ... 
217F 2B dec hl 
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2180 DD 75 08 1d (i1x+08),1 
2183 DD 74 09 ld (1x+09),h 


2186 79 ld a,c 

2187 B7 or a 

2188 28 08 jr z,2192 ... 

218A 3E 06 ld a,06 =6. 

218C CD 26 08 call 0826 MC SOUND REGISTER, send <a>=regf#, <c>=data 
2l8F DD 7E 02 ld a, (ix+02) 

2192 B2 or d 

2193 CD 8B 22 call 228B ... 

2196 7B ld a,e 

2197 B7 ora 

2198 28 0A jr z,21A4 ... 

219A 21 0A B6 ld h1,B60A SOUND amplitude envelope 
219D 16 00 ld d,00 =0. 

219F 19 add hl,de 

21AO T7E ld a,(hl) 

2lAl B7 ora 

21A2 20 03 jr nz,21A7 ... 

2lA4 21 B2 21 ld h1,21B2 ... 


21A7 DD 75 0A ld (ix+0A),1 
2lAA DD 74 0B ld (ix+08B),h 


2lAD CD 65 22 call 2265 ... 
21B0O 18 OD jr 21BF ... 
@ 2lA4: 2232: 224F: 
21B2 01 01 00 1d bc,0001 ... 
21B5 C8 ret z 
@ 1F2B! 


21B6 DD 6E OD ld 1,(ix+0D) 
21B9 DD 66 OE ld h, (ix+0E) 
21BC DD 5E 10 ld e,(ix+l0) 


@ 2180’ 2230° 2238” 


2lBF 7B ld a,e 

21C0O FE FF cp FF =255. 

21c2 28 76 jr z,223A ... 

2lc4 87 add a,a 

21c5 7E ld a,(hl) 

21Cc6 23 inc hl 

21C7 38 4A jr c,2213 ... 

21C9 28 0D jr z,21D8 ... 

2icB ID dec e 

2lcC B7 ora 

2lcD 20 06 jr nz,21D5 ... 

2ICF DD B6 OF or (ix+OF) 

21D2 F2 DD 21 j3p p,21DD ... 

21D5 DD 86 OF add a,(ix+OF) 

21D8 E6 OF and OF =15. 

21DA CD 73 22 call 2273 ... 
@ 21D2 

21DD 4E ld c,(hl) 

2lDE DD 7E 09 ld a, (1x+09) 

2lEl 47 ld b,a 

2lE2 87 add a,a 

21E3 38 1B jr c,2200 ... 

21E5 AF xor a 

21E6 91 sub c 

21lE7 DD 86 08 add a, (ix+08) 

2lEA 38 0C jr c,21F8 ... 

2lEC 05 dec b 

2lED F2 F5 21 jp p,21F5 ... 


21FO DD 4E 08 ld c,(ix+08) 


21F0 82 SOUND MANAGER huslik, cpc464 inside out 


2lF3 AF xor a 
2lF4 47 ld b,a 
@ 21ED 


2lF5 DD 70 09 ld (ix+09),b 
21F8 DD 77 08 1d (ix+08),a 


2lFB BO or b 

2lFC 20 02 jr nz,2200 
2lFE IE FF ld e,FF 
2200 7B ld a,e 
2201 B7 or a 


2202 CC 46 22 call z,2246 
2205 DD 73 10 ld (ix+l0),e 
2208 F3 di 

2209 DD 71 06 ld (ix+06),c 
220C DD 36 07 80 1d (ix+07),80 


2210 FB ei 

22ll B7 or a 

2212 c9 ret 

2213. 57 ld d,a 
2214 4B ld c,e 
2215 3E OD ld a,0D 
2217 CD 26 08 call 0826 
22l1A 4A ld c,d 
221B 3E OB ld a,0B 
221D CD 26 08 call 0826 
2220 4E ld c,(hl) 
2221 3E 0C ld a,0C 
2223 CD 26 08 call 0826 
2226 3E 10 ld a,10 
2228 CD 73 22 call 2273 
222B CD 46 22 call 2246 
222E 7B ld a,e 
222F 3C inc a 
2230 20 8D jr nz,21BF 
2232 21 B2 21 ld h1,21B2 
2235 CD 65 22 call 2265 
2238 18 85 jr 21BF 
223A AF xor a 


223B DD 77 03 
223E DD 77 07 
2241 DD 77 04 


ld (1x+03),a 
ld (ix+07),a 
ld (ix+04),a 


2244 37 scf 
2245 C9 ret 

@ 2202! 222B! 
2246 DD 35 0C dec (ix+0C) 
2249 20 I1E jr nz,2269 
224B DD 7E 09 ld a, (ix+09) 
224E 87 add a,a 
224F 21 B2 21 ld h1,21B2 
2252 30 11 jr nc,2265 
2254 DD 34 08 inc (ix+08) 
2257 20 06 jr nz,225F 
2259 DD 34 09 inc (ix+09) 
225C IE FF ld e,FF 
225E C8 ret z 


225F DD 6E 0A 
2262 DD 66 OB 


ld 1,(ix+0A) 
ld h,(ix+OB) 


huslik, cpc464 inside out 


=128. 


=13. 


MC SOUND REGISTER, send <a>=regf#, <c>=data 


=ll. 


MC SOUND REGISTER, send <a>=regf#, <c>=data 


=12. 


MC SOUND REGISTER, send <a>=regf#, <c>=data 


=16. 


SOUND MANAGER 


83 


2265 


2265 
2266 
2269 
226A 
226B 
226C 
226F 
2272 


2273 


2276 
2277 
227A 
227C 


227F 
2282 
2283 
2286 
2287 
2288 
2289 
228A 


228B 
228C 
228F 
2292 
2295 
2296 
2297 
2298 
2299 
229A 
229B 
229D 
229E 
229F 
22A0 
22Al 
22A4 
22A5 
22A6 
22A8 


22AB 
22AE 
22AF 
22B2 
22B3 
22B4 
22B6 
22B7 
22BA 
22BD 
22C0 


22C0 


@ 21AD! 2235! 2252” 


7E ld a,(hl) 

DD 77 0C ld (ix+H0C),a 
23 inc hl 

5E ld e,(hl) 

23 inc hl 

DD 75 OD ld (ix+0D),1 
DD 74 0E ld (ix+0E),h 


c9 ret 


@ 21DA! 2228! 


DD 77 OF ld (ix+OF),a 
@ 1EFA! 22Al! 

4F ld c,a 

DD 7E 00 ld a, (ix+00) 
Cc6 08 add a,08 

c3 26 08 jp 0826 


@ 1EAE! 1F541 20AC 


DD 7E Ol ld a, (ix+0l) 
2F cpl 

21 52 B5 ld h1,B552 
F3 di 

A6 and (hl) 

77 ld (hl),a 
FB ei 

AF xor a 

@ 2193} 

47 ld b,a 


DD 7E Ol ld a,(ix+0l) 
DD B6 02 or (ix+02) 
21 19 B6 ld h1,B619 


F3 di 

B6 or (hl) 

A8 xor b 

BE cp (hl) 

77 ld (hl),a 
FB ei 

20 03 jr nz,22A0 
78 ld a,b 

B7 ora 

co ret nz 

AF xor a 

CD 76 22 call 2276 
F3 di 

4E ld c,(hl) 
3E 07 ld a,07 

Cc3 26 08 jp 0826 

@ 20E2! 

CD 24 23 call 2324 
7B ld a,e 

CD 4E 23 call 234E 
DO ret nc 

7E ld a,(hl) 
E6 7F and 7F 

c8 ret z 

DD 75 11 ld (ix+11),1 
DD 74 12 ld (ix+l2),h 
CD 13 23 call 2313 
18 09 jr 22CB 
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=8. 
MC SOUND REGISTER, send <a>=regf#, <c>=data 


SOUND channel bits of active sounds 


... 


7. 
MC SOUND REGISTER, send <a>=regf, <c>=data 


SOUND get TONE ENV ADDR, <a>=env#, (hl)=addr 


=127. 


... 


huslik, cpc464 inside out 


@ 1F24! 
22C2 DD 6E 14 
22C5 DD 66 15 
22C8 DD 5E 18 


ld 1,(ix+14) 
ld h, (ix+15) 
ld e,(ix+18) 


22CB 4E ld c,(hl) 
22CC 23 inc hl 
22CD 7B ld a,e 
22CE D6 FO sub FO 
22D0 38 04 jr c,22D6 
22D2 IE 00 ld e,00 
22D4 18 0E jr 22E4 
22D6 ID dec e 

22D7 79 ld a,c 
22D8 87 add a,a 
22D9 9F sbc a,a 
22DA 57 ld d,a 
22DB DD 7E 16 ld a,(ix+16) 
22DE 81 add a,c 
22DF 4F ld c,a 
22E0 DD 7E 17 ld a, (ix+17) 
22E3 8A adc a,d 
22E4 57 ld d,a 
22E5 CD 24 23 call 2324 
22E8 4E ld c,(hl) 
22E9 7B ld a,e 
22EA B7 or a 

22EB 20 19 jr nz,2306 


22ED DD 7E 13 ld a, (ix+13) 
22F0 3D dec a 

22Fl 20 10 jr nz,2303 
22F3 DD 6E 11 ld 1,(ix+l1l) 
22F6 DD 66 12 ld h, (ix+12) 


22F9 7E ld a,(hl) 
22FA C6 80 add a,80 

22FC 38 05 jr e,2303 
22FE DD 36 04 00 1d (ix+04),00 
2302 C9 ret 

2303 CD 13 23 call 2313 


2306 DD 73 18 ld (ix+18),e 

2309 F3 di 

230A DD 71 05 ld (ix+05),c 

230D DD 36 04 80 1d (ix+04),80 


2311 FB ei 
2312 c9 ret 

@ 22BD! 2303! 
2313 DD 77 13 ld (ix+13),a 
2316 23 inc hl 
2317 5E ld e,(hl) 
2318 23 inc hl 


2319 DD 75 14 
23lC DD 74 15 


1d (ix+14),1 
ld (ix+15),h 


231lF 7B ld a,e 
2320 B7 or a 
2321 co ret nz 
2322 IC inc e 
2323 C9 ret 
@ 22AB! 22E5! 
2324 DD 7E 00 ld a, (ix+400) 
2327 87 add a,a 
2328 F5 push af 


2329 DD 71 16 ld (ix+16),c 


huslik, cpc464 inside out 


=128. 
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85 2329 


2370 


CD 26 08 call 0826 
Fl pop af 
3C inc a 


4A ld c,d 


’ 
DD 7117 ld (ix+17),c 


c3 26 08 jp 0826 


MC SOUND REGISTER, send <a>=regf, <c>=data 


MC SOUND REGISTER, send <a>=regf#, <c>=data 


SOUND set AMPL ENVELOPE, <a>=env#, (hl)=data 


SOUND amplitude envelope 


SOUND set TONE ENVELOPE, <a>=envf#, (hl)=data 


@ BCBC! 

11 0A B6 ld de,B60A 
18 03 jr 2340 

@ BCBF! 

ll FA B6 ld de,B6FA 
EB ex de,hl 
CD 51 23 call 2351 
EB ex de,hl 
DO ret nc 

ED BO ldir 

c9 ret 


SOUND tone envelope 


get addr (hl) of envelope <a>, in: (hl)=bloc 


SOUND get AMPL ENV ADDR, <a>=env#, (hl)=addr 


@ BCC2! 
21 OA B6 ld h1,B60A 
18 03 jr 2351 


SOUND amplitude envelope 
get addr (hl) of envelope <a>, in: 


SOUND get TONE ENV ADDR, <a>=env#, (hl)=addr 


@ 22AF! BCC5! 
21 FA B6 ld h1,B6FA 


SOUND tone envelope 


get addr (hl) of envelope <a>, in: (hl)=block start 


@ 2341! 2340” 


B7 ora 

c8 ret z 
FE 10 cp 10 
DO ret nc 
01 10 00 ld bc,0010 
87 add a,a 
87 add a,a 
87 add a,a 
87 add a,a 
85 add a,l 
6F ld 1,a 
8C adc a,h 
95 sub 1 
67 ld h,a 
37 sc£ 

c9 ret 


envelope #0 illegal 
> 15.? 

it’s too big 

len of one entry 

*2 


+ start address 


CT CT CTCTCTCTCTCT CTC7C7Cc7 
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(hl)=bloc 


huslik, cpc464 inside out 


CAS INITIALISE cassette manager 
@ 064C! BC65! 


cD O1 24 call 2401 CAS IN ABANDON 

CD 2E 24 call 242E CAS OUT ABANDON 

AF xor a enable 

CD 8E 23 call 238E CAS NOISY, enable or disable prompt messages 
21 4D Ol ld h1,014D len of half a zero bit 

3E 19 ld a,19 precompensation 

CAS SET write SPEED, <hl>=len of half a zero bit, <a>=precompensation 
@ BC68! 

29 add hl,hl 

29 add hl,hl 

29 add hl,hl 

29 add hl,hl 

29 add hl,hl 

29 add hl,hl 

OF rrca 

OF rrca 

E6 3F and 3F mask out bit 6+7 

6F ld 1,a 

22 Dl B8 ld (B8D1),hl CAS write speed 

c9 ret 


CAS NOISY, enable or disable prompt messages <a> 

@ 2377! 2534! BC6B! 

32 00 B8 ld (B800),a CAS IN flag; enable prompt message 
c9 ret 


CAS IN OPEN, (hl)=filename, <b>=len, (de)=2kbuff 


@ BC77! 

DD 21 02 B8 1d ix,B802 CAS IN file type on read 
CD AF 23 call 23AF ... 

DO ret nc 

E5 push hl 

CD 3F 25 call 253F ... 


ED 5B IC B8 1d de,(B3dlC) CAS IN, data location 
ED 4B IF B8 1d bc, (B8LF) CAS IN, user fields 


3A 19 B8 ld a,(B819) CAS IN file type 
El pop hl 
c9 ret 


CAS OUT OPEN, (hl)=filename, <b>=len, (de)=2kbuff 


@ BCEC! 

DD 21 47 B8 1d ix,B847 CAS OUT DIRECT file type on write 
@ 2396! 

DD 7E 00 ld a, (ix+00) file type on write 
B7 or a 

co ret nz 

DD E5 push ix 

E3 ex (sp),hl 

36 01 ld (h1),01 =1. 
23 inc hl 

73 ld (hl),e 

23 inc hl 

72 ld (hl),d 

23 inc hl 

73 ld (hl),e 

23 inc hl 

72 ld (hl),d 

23 inc hl 

EB ex de,hl 

El pop hl 

D5 push de 


huslik, cpc464 inside out CASSETTE MANAGER 87 


23C4 


40 


FB 


B6 27 


36 15 01 
36 17 16 
35 IC 


ld c,40 

ld (de),a 

inc de 

dec c 

jr nz,23C7 
pop de 
push de 

ld a,b 

cp 10 

jr c,23D5 
ld b,10 

inc b 

ld c,b 

jr 23E0 


rst 4 

inc hl 
call 27B6 
ld (de),a 
inc de 
djnz 23D9 
dec c 

jr z,23EE 
dec de 

ld a,(de) 
xor 20 

jr nz,23EE 
ld (de),a 
jr 23E2 


pop hl 

ld (ix+15),01 
ld (ix+17),16 
dec (1x+lC) 
scf 

ret 


CAS IN CLOSE 


@ BC7AI 
3A 02 B8 
B7 

c8 


ld a, (B802) 
ora 
ret z 


CAS IN ABANDON 
@ 2370! 253C BC7D! 


21 02 B8 
3E O1 

36 00 

23 

5E 

23 

56 

21 CC B8 
AE 

37 

co 

77 

IF 

c9 


ld h1,B802 
ld a,0l 

ld (h1),00 
inc hl 

ld e,(hl) 
inc hl 

ld d,(hl) 
ld h1,B8cc 
xor (hl) 
sc£ 

ret nz 

ld (hl),a 
sbc a,a 
ret 


CAS OUT CLOSE 


@ BCBF! 
3A 47 B8 
FE 04 

28 12 


88 


ld a, (B847) 
cp 04 
jr z,242E 


CASSETTE MANAGER 


=64. 


= 1d(h1) RAM 


CAS change <a> to upper case letter 


=22. 


CAS IN file type on read 


CAS IN file type on read 
=1. 
=0. 


CAS OUT DIRECT file type on write 
=4, 
CAS OUT ABANDON 


huslik, cpc464 inside 


out 


241C C6 FF add a,FF =255. 


241E DO ret nc 

241F 21 5D B8 ld h1,B85D CAS OUT DIRECT, last block flag 
2422 36 FF ld (h1l),FF =255. 
2424 23 inc hl 

2425 23 inc hl 

2426 7E ld a,(hl) 

2427 23 inc hl 

2428 B6 or (hl) 

2429 37 scf 

242A CA 14 26 call nz,2614 ... 
242D DO ret nc 


—— CAS OUT ABANDON 
@ 2373! 241A” BC92! 


242E 21 47 B8 ld h1,B847 CAS OUT DIRECT file type on write 
2431 3E 02 ld a,02 =2. 
2433 18 DI jr 2406 ... 


----- CAS IN CHAR from input file 
@ 2496! BC80! 


2435 E5 push hl 
2436 D5 push de 
2437 cC5 push bc 
2438 06 02 ld b,02 file type 
243A CD 8B 24 call 248B ... 
243D 20 1A jr nz,2459 illegal type access 
243F 2A 1A B8 ld h1,(B8lA) CAS IN, data length 
2442 TC ld a,h 
2443 B5 or 1 
2444 37 scf 
2445 CC 3F 25 call z,253F ... 
2448 30 OF jr nc,2459 EOF found, return 
244A 2A 1A B8 ld h1,(B8lA) CAS IN, data length 
244D 2B dec hl 
244E 22 1A B8 ld (B8lA),hl CAS IN, data length 
2451 2A 05 B8 ld h1,(B805) CAS IN buffer pointer (hi) 
2454 E7 rst 4 get the char from buffer 
2455 23 inc hl 
2456 22 05 B8 ld (B805),hl CAS IN buffer pointer (hi) 
2459 18 2C jr 2487 
_— CAS OUT CHAR <a> to output file 
@ BC95! 
245B E5 push hl 
245C D5 push de 
245D C5 push bc 
245E 4F ld c,a 
245F 21 47 B8 ld h1,B847 CAS OUT DIRECT file type on write 
2462 06 02 ld b,02 =2. 
2464 CD 8E 24 call 248E ... 
2467 20 1E jr nz,2487 ... 
2469 2A 5F B8 ld h1,(B85F) CAS 
246C 11 00 08 ld de,0800 ... 
246F ED 52 sbc hl,de 
2471 cC5 push bc 
2472 D4 14 26 call nc,261l4 ... 
2475 cl pop be 
2476 30 OF jr nc,2487 ... 
2478 2A 5F B8 ld h1,(B85F) CAS 
247B 23 inc hl 
247C 22 5F B8 ld (B85F),hl CAS 
247F 2A 4A B8 ld hl1,(B84A) CAS OUT DIRECT, pointer to data (hi) 
2482 71 ld (hl),c 
2483 23 inc hl 


huslik, cpc464 inside out 


OUT, len of data, updated while writing 


OUT, len of data, updated while writing 


OUT, len of data, updated while writing 
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CAS OUT DIRECT, pointer to data (hi) 


CAS IN file type on read 


=1. 


CAS IN CHAR from input file 


CAS IN, data length 


CAS IN, data length 
CAS IN buffer pointer (hi) 


CAS IN buffer pointer (hi) 


CAS IN DIRECT, read input file into store (hl) 


=3, 


IN, data location 


IN, 
IN, 


data location 
data length 


IN, data location 


IN buffer pointer (lo) 
IN, data location 
IN, data length 


KL ldir, ROMs disabled 


22 4A B8 ld (B84A),hl 
cl pop bc 

Dl pop de 

El pop hl 

c9 ret 

@ 243A! 24AEI 

21 02 B8 ld h1,B802 

@ 2464! 24F2! 

7E ld a,(hl) 

B8 cp b 

c8 ret z 

EE Ol xor Ol 

co ret nz 

70 ld (hl),b 

c9 ret 

CAS TEST EOF 

@ BC89! 

cD 35 24 call 2435 

DO ret nc 

CAS RETURN, put last char read back 
@ BC86! 

E5 push hl 

2A 1A B8 ld hl, (B81A) 
23 inc hl 

22 lA B8 ld (B8lA),hl 
2A 05 B8 ld hl, (B805) 
2B dec hl 

22 05 B8 ld (B805),hl 
El pop hl 

c9 ret 

@ BC83! 

EB ex de,hl 

06 03 ld 6,03 

CD 8B 24 call 248B 

co ret nz 

ED 53 1C B8 1d (B8lC),de 
CD CF 24 call 24CF 

2A IC B8 ld hl, (B81C) 
ED 5B 1A B3 1d de, (B81lA) 
19 add hl,de 

22 IC B8 ld (B8lC),hl 
CD 3F 25 call 253F 

38 FO jr c,24B9 

c8 ret z 

2A A6 B8 ld hl, (B8A6) 
37 scf 

c9 ret 

@ 24B61! 

2A 03 B8 ld h1,(B803) 
ED 5B IC B8 1d de,(B8lC) 
ED 4B 1A B8 1d bc, (B81A) 
7B ld a,e 

95 sub 1 

7A ld a,d 

IC sbc a,h 

DA A6 BA  jp c,BAA6 

09 add hl,bc 

2B dec hl 

90 CASSETTE MANAGER 


huslik, cpc464 inside out 


OUT, user fields (entry addr for machine 


24E7 C3 AC BA 


ex de,hl 
add hl,bc 
dec hl 

ex de,hl 
jp BAAC 


KL lddr, ROMs disabled 


- CAS OUT DIRECT, (hl)=data, <de>=1len, <a>=type, (bce)=entry addr header 


@ BC98! 
24EA ES 


24ED 21 47 B8 


24F2 CD 8E 24 


24F9 32 5E B8 
24FC ED 53 64 B8 
2500 ED 43 66 B8 
2504 22 48 B8 
2507 ED 53 5F B8 
250B 21 FF F7 


25ll 21 00 08 
2514 22 5F B8 


251B 2A 48 B8 


2520 CD 14 26 


Pr CAS CATALOG, 
@ BCIB! 
2528 21 02 B8 


252E 36 05 

2530 ED 53 03 B8 
2534 CD 8E 23 
2537 CD 44 25 
253A 38 FB 

253C C3 01 24 


push hl 
push bc 
ld c,a 
ld h1,B847 
ld b,03 
call 248E 
ld a,c 
pop bc 
pop hl 
ret nz 
ld (B85E),a 
ld (B864),de 
ld (B866),bc 
ld (B848),hl 
ld (B85F),de 
ld h1,F7FF 
add hl,de 
ccf 
ret c 
ld h1,0800 
ld (B85F),hl 
ex de,hl 
sbc hl,de 
push hl 
ld hl, (B848) 
add hl,de 
push hl 
call 2614 
pop hl 
pop de 
ret nc 
jr 2504 


(de)= 2k buffer 


ld h1,B802 
ld a,(hl) 

or a 

ret nz 

ld (h1),05 
ld (B803),de 
call 238E 
call 2544 

jr e,2537 

jp 2401 


@ 239B! 2445! 24C4! 


253F 3A 18 B8 
2542 B7 
2543 CO 


@ 2537! 
2544 01 01 83 
2547 CD 73 26 
254A 30 5C 


ld a,(B818) 
or a 
ret nz 


ld bc,8301 
call 2673 
jr nc,25A8 


huslik, cpc464 inside out 


CAS OUT DIRECT 
=3. 


... 


CAS OUT DIRECT, 
CAS OUT DIRECT, 
CAS OUT DIRECT; 
CAS OUT DIRECT, 
CAS OUT, 1en of 
= -2K 


= 2K 
CAS OUT, len of 


CAS OUT DIRECT, 


to use 


CAS IN file typ 


file type on write 


file type 

total len of data 

entry for HEADER 

pointer to data (lo) 

data, updated while writing 


data, updated while writing 


pointer to data (lo) 


e on read 


mark for CAT access 
CAS IN buffer pointer (lo) 


CAS NOISY, enab 


... 


CAS IN ABANDON 


le or disable prompt messages 


CAS IN last block flag 


... 


... 
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254C 
254F 
2552 
2554 
2557 
2559 
255C 
255E 
2560 
2562 
2564 
2567 
256B 
256E 
2571 
2573 
2575 
2578 
2579 
257B 
257D 
2580 
2583 
2585 
2588 
258A 
258n 
258E 
2591 
2592 
2593 
2594 
2597 
259A 
259D 
25A0 
25A2 
25A5 
25A6 


25A8 
25A9 
25AC 
25AE 
25B0 
25B3 


25B5 
25B6 
25B8 
25BB 
25BC 
25BE 
25C0 
2503 


25C5 
2508 
2509 
25CA 
25CD 
25CE 


25CE 


@ 25B3° 25BC’ 2503” 


21 8C B8 ld h1,B88C 
11 40 00 ld de,0040 
3E 2C ld a,2C 

CD 36 28 call 2836 
30 4F jr nc,25A8 
CD C5 25 call 25C5 

20 57 jr nz,25B5 
06 8B ld b,8B 

38 02 jr c,2564 

06 89 ld b,89 

CD 92 26 call 2692 

ED 5B 9F B8 1d de, (B8IF) 
2A IC B8 ld hl, (B381C) 
3A 02 B8 ld a, (B802) 
FE 03 cp 03 

28 0E jr z,2583 

21 FF F7 ld hl,F7FF 
19 add hl,de 

3E 04 ld a,04 

38 2B jr c,25A8 
2A 03 B8 ld hl, (B803) 
22 05 B8 ld (B805),hl 
3E 16 ld a,16 

CD 36 28 call 2836 
30 1E jr nc,25A8 
21 17 B8 ld h1,B817 
34 inc (hl) 

3A 9D B8 ld a, (B89D) 
23 inc hl 

77 ld (hl),a 
AF xor a 

32 lE B8 ld (B8lE),a 
2A 9F B8 ld hl, (B89F) 
22 lA B8 ld (B8lA),hl 
CD BF 27 call 27BF 

3E 8C ld a,8C 

cc 0C 27 call z,270C 
37 scf 

18 65 jr 260D 

@ 254A° 2557’ 257B° 2588” 
B7 or a 

21 02 B8 ld h1,B802 
28 5D jr z,2608B 

06 85 ld b,85 

cD 13 27 call 2713 

18 97 jr 254C 

F5 push af 

06 88 ld b,88 

CD 92 26 call 2692 
Fl pop af 

30 8E jr nc,254C 
06 87 ld b,87 

cD 11 27 call 2711 

18 87 jr 254C 

@ 2559! 

CD BF 27 call 27BF 
37 scf 

c8 ret z 

3A lE B8 ld a, (B8LE) 
B7 ora 

28 1B jr z,25EB 

92 CASSETTE MANAGER 


CAS OUT filename 
44. 

CAS READ a record, (hl)=data, 
=139. 

=137. 

CAS OUT, data length 

CAS IN, data location 

CAS IN file type on read 

=3, 


=4, 

CAS IN buffer pointer (lo) 
CAS IN buffer pointer (hi) 
22. 

CAS READ a record, (hl)=data, 


CAS IN block number 


CAS OUT, file type 


CAS IN, first block flag 
CAS OUT, data length 
CAS IN, data length 


HEADER RECORD up to B8CB 


<de>=len, <a>= 


<de>=len, <a>= 


CAS get file type on read; cp 05 


=140. 


CAS IN file type on read 


=133, 


... 


=136. 
=135. 


CAS get file type on read; cp 


CAS IN, first block flag 


huslik, cpc464 inside 


05 


out 


25D0 
25D3 
25D4 
25D5 
25D6 
25D9 
25DA 
25DD 
25DE 
25El 
25E4 
25E7 
25E9 
25EA 


25EB 
25EE 
25EF 
25F0 
25Fl 
25F2 


25F3 
25F6 
25F9 
25FB 
25FC 
25FF 
2600 
2601 
2604 
2605 
2606 
2607 
2608 
260A 


260B 


260D 
260E 
260F 
2612 
2613 


2614 
2617 
261A 
261C 
261E 
2621 
2624 
2627 
262A 
262C 
262F 
2632 
2635 
2636 
2639 
263C 


3A A3 B8 ld a, (B8A3) 
2F cpl 

B7 or a 

co ret nz 

3A 07 B8 ld a,(B807) 
B7 or a 

C4 F3 25 call nz,25F3 
co ret nz 

21 8C B8 ld h1,B88C 
11 07 B8 ld de,B807 
01 40 00 ld bc,0040 
ED BO ldir 

AF xor a 

c9 ret 

CD F3 25 call 25F3 
co ret nz 

EB ex de,hl 

1A ld a,(de) 
BE cp (hl) 

c9 ret 

@ 25DA! 25EB! 

21 07 B8 ld h1,B807 
11 8C B8 ld de,B88C 
06 10 ld b,10 

1A ld a,(de) 
CD B6 27 call 27B6 
4F ld c,a 

7E ld a,(hl) 
CD B6 27 call 27B6 
A9 xor c 

co ret nz 

23 inc hl 

13 inc de 

10 Fl djnz 25FB 
c9 ret 

@ 25AC’ 2664” 

36 04 ld (h1),04 
@ 25A6° 2664” 

9F sbc a,a 

F5 push af 

CD 4F 2A call 2A4F 
Fl pop af 

c9 ret 

@ 242A! 2472! 2520! 

01 02 84 ld bc,8402 
cD 73 26 call 2673 
30 4A jr nc,2666 
06 8A ld b,8A 

11 4C B8 ld de,B84C 
cD 95 26 call 2695 
21 63 B8 ld h1,B863 
CD 88 26 call 2688 
30 3A jr nc,2666 
2A 48 B8 ld h1,(B848) 
22 4A B8 ld (B84A),hl 
22 61 B8 ld (B861),hl 
E5 push hl 

21 4C B8 ld h1,B84C 
11 40 00 ld de,0040 
3E 2C ld a,2C 


huslik, cpc464 inside out 


CAS OUT, first block flag 


CAS IN filename HEADER RECORD up to B846 


CAS OUT filename 
CAS IN filename 


HEADER RECORD up to B8CB 
HEADER RECORD up to B846 


CAS IN filename 
CAS OUT filename 
=16. 


HEADER RECORD up to B846 
HEADER RECORD up to B8CB 


CAS change <a> to upper case letter 


CAS change <a> to upper case letter 


=4. 


CAS STOP MOTOR 


=138. 
CAS OUT DIRECT filename 


CAS OUT DIRECT, first block flag 


HEADER RECORD up t 


CAS OUT DIRECT, pointer to data (lo) 
CAS OUT DIRECT, pointer to data (hi) 
CAS OUT DIRECT, data location 

CAS OUT DIRECT filename HEADER RECORD up t 


=44. 


CASSETTE MANAGER 93  263C 


263E 
2641 
2642 
2644 
2648 
264A 
264D 
2650 
2653 
2655 
2658 
265B 
265E 
265F 
2660 
2663 
2664 


2666 
2667 
266A 
266C 
266E 
2671 


2673 
2676 
2677 
2678 
267A 
267B 
267C 
267D 
2680 
2681 
2682 
2683 
2684 
2685 


2688 
2689 
268A 
268B 
268C 
268F 


2692 


2695 
2698 
2699 
269A 
269D 
26A0 
26A3 
26A4 
26A5 
26A7 
2649 


26A9 


CD 3F 28 call 283F 
El pop hl 

30 22 jr nc,2666 
ED 5B 5F B8 ld de, (B85F) 
3E 16 ld a,16 

CD 3F 28 call 283F 
21 5D B8 ld h1,B85D 
DC 88 26 call c,2688 
30 11 jr nc,2666 
21 00 00 ld h1,0000 
22 5F B8 ld (B85F),hl 
21 5C B8 ld h1,B85C 
34 inc (hl) 

AF xor a 

32 63 B8 ld (B863),a 
37 sc£ 

18 A7 jr 260D 

@ 2614’ 2624” 2642° 2653” 
B7 or a 

21 47 B8 ld h1,B847 
28 9F jr z,2608 
06 86 ld b,86 

CD 13 27 call 2713 
18 B9 jr 2626 

@ 25471! 26171! 

21 CC B8 ld h1,B8cc 
79 ld a,c 

BE cp (hl) 

36 ON ld (h1),00 
37 sc£ 

E5 push hl 

c5 push be 

C4 60 27 call nz,2760 
cl pop bc 

El pop hl 

9F sbce a,a 

DO ret nc 

ı ld (hl),c 
C3 4B 2A jp 2A4B 

@ 26271 2650! 

7E ld a,(hl) 
B7 ora 

37 sc£ 

c8 tet z 

01 2c 01 ld bce,012C 
c3 72 2A jp 2A72 

@ 2564! 25881! 

11 8C B8 ld de,B88C 
@ 2621! 

3A 00 B8 ld a, (8800) 
B7 or a 

co ret nz 

32 O1 B8 ld (B801),a 
cD 83 27 call 2783 
CD 26 27 call 2726 
1A ld a,(de) 
B7 or a 

20 0A jr nz,26Bl 
3E 8E ld a,8E 

CD 27 27 call 2727 
94 CASSETTE MANAGER 


CAS WRITE a record, (hl)=data, <de>=1len, <a> 


... 


CAS OUT, len of data, updated while writing 
=22. 


CAS WRITE a record, (hl)=data, <de>=1len, <a> 
CAS OUT DIRECT, last block flag 


CAS OUT, len of data, updated while writing 
CAS OUT DIRECT block number 


CAS OUT DIRECT, first block flag 


CAS OUT DIRECT file type on write 


=134, 


... 


CAS START MOTOR 


CAS OUT filename HEADER RECORD up to B8CB 


CAS IN flag; enable prompt message 


CAS IN flag ?? 
set cursor to colum 1 


=142. 


... 


huslik, cpc464 inside out 


26AC 
26AF 


26Bl 
26B4 
26B7 
26B9 
26BA 
26BB 
26BC 
26BD 
26BF 
26C0 
26C1 
26C3 
26C4 
26C5 
26C6 
26C9 
26CA 
26CD 
26CE 
26D0 
26D2 
26D3 
26D4 
26D7 
26D8 
26D9 
26DA 
26DC 
26DF 
26E0 
26E1 
26E2 
26E4 
26E7 
26E9 
26EC 
26ED 
26F0 
26F3 
26F4 
26F7 
26F9 
26FA 
26FB 
26FD 
26FF 
2702 


2704 
2705 
2708 
2709 
270A 


270C 
270F 


01 10 
18 2E 


CD BF 


01 00 
28 0D 


28 04 


10 F8 


CD 8D 
CD B6 
20 02 
3E 20 


cD 34 


10 ED 
cD 5C 


3E 8D 
cD 27 
06 02 
CD 8D 


CD A4 
cD 5C 


CD BF 
20 OB 


E6 OF 
c6 24 
CD 80 
18 58 


21 01 


18 6F 


00 


27 
10 


27 


27 


B8 


@ 2542! 


cD 27 
18 6A 


27 


1d bc,0010 
jr 26DF 


call 27BF 
ld bc,1000 
jr z,26C6 
ld 1,e 


inc hl 
djnz 26BB 
ld a,b 
ld b,c 
ld c,a 
call 278D 
ld a,(de) 
call 27B6 
ora 
jr nz,26D2 
ld a,20 
push bc 
push de 
call 1334 
pop de 
pop bc 
inc de 
djnz 26C9 
call 275C 
ex de,hl 
add hl,bc 
ex de,hl 
ld a,8D 
call 2727 
ld b,02 
call 278D 
ld a, (de) 
call 27A4 
call 275C 
inc de 
call 27BF 
jr nz,2704 
inc de 
ld a, (de) 
and OF 
add a,24 
call 2780 
jr 275C 


ld a,(de) 
ld h1,B801 
or (hl) 
ret z 

jr 277B 


call 2727 
jr 277B 


huslik, cpc464 inside out 


CAS get file type on read; cp 05 


CAS change <a> to upper case letter 


... 


=32. 


TXT WRITE char <a> to screen 


CAS get file type on read; cp 05 


=15. 
=36. 
TXT OUTPUT char or ctl code <a> to VDU 


... 


CAS IN flag ?? 


set cursor to col 1, print linefeed 


set cursor to col 1, print linefeed 
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270F 


2711 


2713 
2714 
2717 
2718 
271A 
271D 


271F 
2722 
2723 


2726 


2727 
2728 
272A 
272B 
272E 
2730 
2731 
2732 
2733 
2735 
2737 
2738 
2739 
273B 
273E 


2740 
2741 
2742 


2743 
2746 
2747 
2749 
274A 
274B 
274C 
274D 
274F 
2752 
2753 
2754 
2755 
2757 
275A 


275C 
275E 


275E 


@ 25C0! 


3E FF ld a,FF 

@ 25B0! 266E! 

F5 push af 

CD IF 27 call 271F 
Fl pop af 

Cc6 60 add a,60 

D4 80 27 call nc,2780 
18 5C jr 277B 


@ 2714! 27661! 

CD 80 11 call 1180 

25 dec h 

C4 7B 27 call nz,277B 


@ 26A0! 

78 ld a,b 

@ 26A9! 26E4! 270C1 2743 
ES push hl 

E6 7F and 7F 

47 ld b,a 

21 c5 27 ld h1,27C5 
28 07 jr z,2737 
7E ld a,(hl) 
23 inc hl 

B7 or a 

20 FB jr nz,2739 
10 F9 djnz 2730 
7E ld a,(hl) 
B7 ora 

28 05 jr z,27409 
CD 43 27 call 2743 
18 F7 jr 2737 

El pop hl 

23 inc hl 

c9 ret 

@ 2738! 

FA 27 27 jp 2,2727 
E5 push hl 

06 00 ld b,00 

04 inc b 

7E ld a,(hl) 
23 inc hl 

07 rlca 

30 FA jr nc,2749 
CD 8D 27 call 278D 
El pop hl 

7E ld a,(hl) 
23 inc hl 

E6 7F and 7F 

CD 80 27 call 2780 
10 F7 djnz 2753 

@ 26DC! 26F0! 2702” 

3E 20 ld a,20 

18 20 jr 2780 

96 CASSETTE MANAGER 


=255. 


=96. 
TXT OUTPUT char or ctl code <a> to VDU 
set cursor to col 1, print linefeed 


TXT GET CURSOR position (hl), roll count 


set cursor to col 1, print linefeed 


=127. 


‘press play then any key 


=0. 


=127. 
TXT OUTPUT char or ctl code <a> to VDU 


"SPACE 
TXT OUTPUT char or ctl code <a> to VDU 


<a> 


huslik, cpc464 inside out 


@ 267D! 


2760 3A 00 B8 ld a, (B800) CAS IN flag; enable prompt message 
2763 B7 or a 

2764 37 scf 

2765 CO ret nz 

2766 CD IF 27 call 271F ... 

2769 CD 42 1A call 1A42 KM READ CHAR from keyboard =<a> 
276C 38 FB jr c,2769 ... 

276E CD 79 12 call 1279 TXT CURSOR ON 

2771 CD 56 1B call 1B56 KM WAIT for KEY 

2774 CD 81 12 call 1281 TXT CURSOR OFF 

2777 FE 1B cp 1B "ESC 

2779 C8 ret z 

277A 37 sc£ 


— set cursor to col 1, print linefeed 

@ 270A’ 270F’ 2710’ 2723! 27A2” 
277B CD 83 27 call 2783 set cursor to colum 1 
277E 3E 0A ld a,0A "LE (I) 


_— TXT OUTPUT char or ctl code <a> to VDU 
@ 26FF! 271A! 2757! 275E° 27B4° 
2780 C3 00 14 jp 1400 TXT OUTPUT char or ctl code <a> to VDU 


— set cursor to colum 1 
@ 269D! 277B! 


2783 F5 push af 
2784 E5 push hl 
2785 3E Ol ld a,0l colum 1 
2787 CD 5E 11 call 115E TXT SET cursor to COLUMN <a> 
278A EI pop hl 
278B Fl pop af 
278C C9 ret 
@ 26C6! 26E9! 274F! 
278D D5 push de 
278E CD 56 12 call 1256 TXT GET WINDOW size, <hl>=left top, <de>=rig 
2791 5C ld e,h 
2792 CD 80 Il call 1180 TXT GET CURSOR position (hl), roll count <a> 
2795 7C ld a,h 
2796 3D dec a 
2797 83 add a,e 
2798 80 add a,b 
2799 3D dec a 
279A BA cp d 
279B DL pop de 
279C D8 ret c 
279D 3E FF ld a,FF set flag 
279F 32 Ol B8 ld (B801),a CAS IN flag ?? 
27A2 18 D7 jr 277B set cursor to col l, print linefeed 
@ 26ED! 27B0O! 
27A4 06 FF ld b,FF "IGNORE 
2746 04 inc b 
27A7 D6 OA sub 0A "LF (7) 
27A9 30 FB jr nc,27A6 ... 
27AB C6 3A add a,3A 2 
27AD F5 push af 
27AE 78 ld a,b 
27AF B7 or a 
27B0O C4 A4 27 call nz,27A4 ... 
27B3 Fl pop af 
27BA 18 CA jr 2780 TXT OUTPUT char or ctl code <a> to VDU 
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2860 


CAS change <a> to upper case letter 
@ 23DB! 25FC! 2601! 26CA! 


FE 61 cp 6l "a 

D8 ret c 

FE 7B cp 7B “Lt 

DO ret nc 

C6 EO add a,EO -20 
c9 ret 


CAS get file type on read; cp 05 
@ 259D! 25C5! 26Bl! 26F4! 


3A 02 B8 ld a, (B802) CAS IN file type on read 
FE 05 cp 05 =5, 
c9 ret 


“press play then any key 


@ 272B: 

50 72 65 73 F3 00 "Press. 

50 4C 41 D9 74 68 65 EE 61 6E F9 6B 65 79 BA 00 “PLAYthenanykey:. 
65 72 72 6F F2 00 ‘error. 

80 81 00 "use 

80 52 45 C3 61 6E E4 81 00 “.RECand.. 
52 65 61 E4 82 00 "Read.. 

57 72 69 74 E5 82 00 "Write.. 

52 65 77 69 6E E4 74 61 70 E5 00 “Rewindtape. 
46 6F 75 6E 64 20 AO 00 “Found . 

4C 6F 61 64 69 6E E7 00 “Loading. 

53 61 76 69 6E E7 00 "Saving. 

00 2 

4F EB 00 "Ok. 

62 6C 6F 63 EB 00 "block. 

55 6E 6E 61 6D 65 E4 66 69 6C 65 20 20 20 AO 00 “Unnamedfile 


CAS READ a record, (hl)=data, <de>=len, <a>=expected sync 
@ 2554! 25851 BCAL! 


cD 73 28 call 2873 ... 
F5 push af 

21 B8 28 ld h1,288B8 ... 
18 19 jr 2858 ... 


CAS WRITE a record, (hl)=data, <de>=1len, <a>=sync char 
@ 263E! 264A! BCIE! 


cD 73 28 call 2873 ... 
F5 push af 

CD 64 29 call 2964 ... 
21 F7 28 ld h1,28F7 ... 
DC 9D 28 call c,289n .. 
DC 79 29 call c,2979 ... 
18 OF jr 2860 ... 


CAS CHECK tape with store, (hl)=data, <de>=len, <a>=sync char 
@ BCA4I 


CD 73 28 call 2873 ... 
F5 push af 

21 C7 28 ld h1,28C7 ... 
@ 283D° 

E5 push hl 

cD 19 29 call 2919 ... 
El pop hl 

DC 9D 28 call c,289D ... 
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out 


2860 
2861 
2862 
2865 
2867 
286A 
286C 
286D 
286E 
2871 
2872 


2873 
2876 
2877 
2878 
2879 
287A 
287D 
287E 
2880 
2883 
2884 
2887 
2889 
288C 
288E 
2890 
2892 
2895 
2897 
289A 
289C 


289D 
289E 
289F 
28Al 
28A2 
28A3 
28A5 
28A8 
28A9 
28AA 
28AB 
28AC 


28AE 
28Bl 
28B5 
28B7 


28B8 
28BB 
28BC 
28BF 
28C1 
2802 
28C3 
28C5 


Dl pop de 

F5 push af 

01 82 F7 ld bc,F782 
ED 49 out (c),c 
01 10 F6 ld bc,F610 
ED 49 out (c),c 
FB ei 

7A ld a,d 

CD 51 2A call 2A5l 
Fl pop af 

c9 ret 

@ 2836! 283F! 2851! 

32 CD B8 ld (B8CD),a 
1B dec de 

Ic inc e 

E5 push hl 

D5 push de 

CD 68 1E call 1E68 
Dl pop de 

DD EI pop ix 

CD 4B 2A call 2A4B 
F3 di 

01 0E F4 ld bc,F40E 
ED 49 out (c),c 
01 DO F6 ld bc,F6DO 
ED 49 out (c),c 
0E 10 ld c,10 

ED 49 out (c),c 
01 92 F7 ld bc,F792 
ED 49 out (c),c 
01 58 F6 ld bc,F658 
ED 49 out (c),c 
c9 ret 

@ 2849! 285D! 

7A ld a,d 

B7 ora 

28 0D jr z,28AE 
E5 push hl 

D5 push de 

lE 00 ld e,00 
CD AE 28 call 28AE 
Dl pop de 

El pop hl 

DO ret nc 

15 dec d 

20 F3 jr nz,28Al 
@ 289F’ 2845! 

Ol FF FF ld bce,FFFF 
ED 43 D3 B8 1d (B8D3),bce 
16 Ol 1d d,0l 

EI jp (hl) 

@ 283A: 2803” 

CD BO 29 call 29B0 
DO ret nc 

DD 77 00 ld (ix+00),a 
DD 23 inc ix 

15 dec d 

1D dec e 

20 F3 jr nz,28B8 
18 12 jr 28D9 


huslik, cpc464 inside out 


CAS RESTORE MOTOR to previous state <a> 


SOUND RESET 


CAS START MOTOR 
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99 28C5 


28C7 
28CA 
28CB 
28CC 
28CF 
28D0 
28D2 
28D3 
28D5 
28D6 
28D7 


28D9 
28DA 
28DC 
28DF 
28E0 


28E2 
28E5 
28E8 
28E9 
28EA 
28EC 
28EF 
28F0 
28Fl 
28F2 


28F3 
28F5 
28F6 


28F7 
28FA 
28FD 
28FE 
2900 
2901 
2902 


2904 
2905 
2907 
2908 
290B 
290C 


290E 
2911 
2914 
2915 
2916 


2916 


@ 2855: 2807 
CD BO 29 call 29B0 


DO ret nc 

47 ld b,a 

CD DC BA call BADC 
A8 xor b 

3E 03 ld 2,03 
co ret nz 

DD 23 inc ix 

15 dec d 

1D dec e 

20 EE jr nz,28C7 
@ 28C5° 28E0° 

15 dec d 

28 06 jr z,28E2 
CD BO 29 call 29B0 
DO ret nc 

18 F7 jı 2309 

@ 28DA’ 


CD A6 29 call 29A6 
CD BO 29 call 29BO0 


DO ret nc 
AA xor d 

20 07 jr nz,28F3 
CD BO 29 call 29B0 
DO ret nc 

AB xor e 

37 sc£ 

c8 ret z 

@ 28EA” 

3E 02 ld a,02 
B7 ora 

c9 ret 


@ 2846: 2902” 
CD DC BA call BADC 
CD F8 29 call 29F8 


DO ret nc 

DD 23 inc ix 

15 dec d 

1D dec e 

20 F3 jr nz,28F7 
@ 290C” 

15 dec d 

28 07 jr z,290€E 
AF xor a 

CD F8 29 call 29F8 
DO ret nc 

18 F6 jr 2904 

@ 2905” 


CD A6 29 call 29A6 
CD F8 29 call 29F8 
DO ret nc 

7B ld a,e 

c3 F8 29 jp 29F8 
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=2. 


huslik, cpc464 inside out 


2919 
291A 
291D 
291E 
291F 
2920 
2921 


2923 
2925 
2928 
2929 
292C 


292D 
2930 
2931 
2932 
2934 
2935 
2936 
2937 


2939 
293A 
293B 
293C 
293D 
293E 
293F 
2940 
2941 
2942 
2945 
2946 
2947 
2949 
294B 
294C 
294D 
294F 
2950 
2952 
2953 
2954 
2955 
2956 
2959 
295C 
295D 
2960 
2961 
2962 
2963 


2964 
2967 
296A 
296D 
296E 


@ 2859! 2921 


D5 push de 
cD 23 29 call 2923 
Dl pop de 

D8 ret c 

B7 ora 

c8 ret z 

18 F6 jr 2919 

@ 291A! 

2E 55 ld 1,55 
CD CD 29 call 29CD 
DO ret nc 

11 00 00 ld de,0000 
62 ld h,d 

@ 2937” 

CD CD 29 call 29CD 
DO ret nc 

EB ex de,hl 
06 00 ld b,00 

09 add hl,bc 
EB ex de,hl 
25 dec h 

20 F4 jr nz,292D 
@ 294D° 2950” 

61 ld h,c 

79 ld a,c 

92 sub d 

4F ld c,a 

9F sbc a,a 

47 ld b,a 

EB, ex de,hl 
09 add hl,be 
EB ex de,hl 
CD CD 29 call 29CD 
DO ret nc 

7A ld a,d 

CB 3F srl a 

CB 3F srla 

8A adc a,d 

94 sub h 

38 EA jr c,2939 
91 sub c 

38 E7 jr c,2939 
7A ld a,d 

IF rra 

8A adc a,d 

67 ld h,a 

22 CE B8 ld (B8SCE),hl 
CD BO 29 call 29B0 
DO ret nc 

21 CD B8 ld h1,B8CD 
AE xor (hl) 
co ret nz 

37 scf 

c9 ret 

@ 2843! 

CD 89 2A call 2A89 
21 01 08 ld h1,0801 
cD 7C 29 call 297C 
DO ret nc 

B7 or a 


huslik, cpc464 inside out 
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101 


296E 


296F CD 08 2A call 2A08 ... 


2972 DO ret nc 
2973 3A CD B8 ld a, (B8CD) ars 
2976 C3 F8 29 jp 29F8 es 
@ 284C1 
2979 21 21 00 ld h1,0021 es 
@ 296A! 298C” 
297C 06 F4 ld b,F4 =244. 
297E ED 78 in a,(c) 
2980 E6 04 and 04 =4. 
2982 CB ret z 
2983 E5 push hl 
2984 37 scf 
2985 CD 08 2A call 2A08 ... 
2988 EI pop hl 
2989 2B dec hl 
298A 7C ld a,h 
2988 B5 or 1 
298C 20 EE jr nz,297C ET: 
298E 37 sc£ 
298F CI ret 
@ 2903! 2A2C! 
2990 2A D3 B8 ld hl, (B8D3) ... 
2993 AC xor h 
2994 F2 AO 29 jp p,29A0 ... 
2997 TC ld a,h 
2998 EE 08 xor 08 =8, 
299A 67 ld h,a 
299B 7D ld a,l 
299C EE 10 xor 10 =16. 
299E 6F ld 1,a 
299F 37 sc£ 
@ 2994 
29A0O ED 6A adc hl,hl 
29A2 22 D3 B8 ld (B8D3),hl ... 
29A5 C9 ret 
@ 28E2! 290E! 
29A6 2A D3 B8 ld hl, (B8D3) ... 
2949 7D ld a,l 
29AA 2F cpl 
29AB 5F ld e,a 
29AC 7C ld a,h 
29AD 2F cpl 
29AE 57 ld d,a 
29AF CI ret 
@ 2888! 28071 28DC! 28E5! 28EC! 2959| 
29B0 D5 push de 
29Bl LIE 08 ld e,08 =8, 
29B3 2A CE B8 ld hl, (B8CE) .. 
29B6 CD D4 29 call 29D4 ... 
2989 DC DD 29 call c,29DD ;.s 
29BC 30 OD jr nc,29CB ... 
29BE 7C ld a,h 
29BF 91 sub c 
29Cc0 9F sbc a,a 
29C1 CB 12 rld 
29C3 CD 90 29 call 2990 ... 
29C6 1D dec e 
29C7 20 EA jr nz,29B3 ... 


29C7 102 CASSETTE MANAGER huslik, cpc464 inside out 


29C9 
29CA 
29CB 
29CC 


29CD 
29CF 
29D1 
29D3 


29D4 
29D6 
29D8 
29D9 
29DA 
29DC 


29DD 
29DF 
29EO 
29E2 
29E3 
29E5 
29E7 
29E8 
29EA 
29EC 
29ED 
29EF 
29Fl 
29F2 


29F3 
29F4 
29F6 
29F7 


29F8 
29F9 
29FB 
29FC 
29FE 
2A01 
2A03 
2A04 
2A06 
2A07 


2A08 
2A0C 
2AOF 
2AlO 
2All 
2A13 
2Al4 
2A15 
2Al6 
2Al7 
2A18 


ld a,d 
scf 
pop de 
ret 


@ 2925! 292D! 2942! 


06 
ED 
E6 
c8 


F4 
78 
04 


@ 2989! 


06 
79 
c6 


F5 


02 


ld b,F4 
in a,(c) 
and 04 
ret z 


ld a,r 
add a,03 
rrca 
rrca 

and IF 
ld c,a 


ld b,F5 
ld a,c 
add a,02 
ld c,a 

jr c,29F3 
in a,(c) 
xor 1 

and 80 

jr nz,29DF 
xor a 

ld r,a 
rrc 1 

scf 

ret 


xor a 
ld r,a 
inc a 
ret 


@ 28FA! 2908! 2911! 2916 


08 
02 
08 2A 
03 


F6 


push de 
ld e,08 
ld d,a 
rlc d 
call 2A08 
jr nc,2A06 
dec e 
jr nz,29FC 
pop de 
ret 


@ 296F! 2985! 29FE! 
ED 4B DO B8 1d bc, (B8DO) 


2A 


D2 B8 


07 


ld hl, (B8D2) 
sbc a,a 

ld h,a 

jr z,2AlA 
ld a,1 

add a,a 

add a,b 

ld 1,a 

ld a,c 

sub b 
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=244. 


=31. 


2976 
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2Al8 


4F ld c,a 

7D ld a,l 

32 DO B8 ld (B8DO),a 
2E 0A ld 1,0A 

cD 37 2A call 2A37 
38 06 jr c,2A2B 
91 sub c 

30 0C jr nc,2A34 
2F cpl 

3C inc a 

4F ld c,a 

7C ld a,h 

CD 90 29 call 2990 
2E OB ld 1,0B 

CD 37 2A call 2A37 
3E 01 ld a,0l 

c9 ret 


@ 2A20! 2A31! 


ED 5F ld a,r 

CB 3F srla 

91 sub c 

30 03 jr nc,2A4l 
3C inc a 

20 FD jr nz,2A3R 
06 F7 ld b,F7 

ED 69 out (c),1 
F5 push af 

AF xor a 

ED 4F ld r,a 

Fl pop af 

c9 ret 

CAS START MOTOR 

@ 2685 2880! BC6E! 

3E 10 ld a,10 

18 02 jr 2451 


CAS STOP MOTOR 
@ 260F! BC71! 
3E EF ld a,EF 


=11. 


=1. 


set bit 4 
CAS RESTORE MTOR to previous state <a> 


mask out bit 4 


CAS RESTORE MITOR to previous state <a> 


@ 286E! 2A4D” BC74! 


c5 push bc 

06 F6 ld b,F6 

ED 48 in c,(c) 
04 inc b 

E6 10 and 10 

3E 08 ld a,08 

28 01 jr z,2A5E 
3C inc a 

ED 79 out (c),a 
37 sc£ 

28 0C jr z,2A6F 
79 ld a,c 

E6 10 and 10 

c5 push bc 

01 c8 00 ld bc,00C8 
37 sc£ 

cc 72 2A call z,2A72 
cl pop bc 

79 ld a,c 

cl pop bc 

c9 ret 
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=246. 


=16. 
=8. 
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out 


@ 268F 2A6B! 2483” 


2A72 C5 push bc 
2A73 E5 push hl 
2A74 CD 89 2A call 2A89 ... 
2A77 3E 42 ld a,42 =66. 
2A79 CD BD IC call ICBD KM TEST if KEY #<a> is pressed 
2A7C EI pop hl 
2A7D CI pop bc 
2ATE 20 07 jr nz,2A87 ... 
2A80 OB dec bc 
2A8l 78 ld a,b 
2A82 Bl orc 
2A83 20 ED jr nz,2A72 ... 
2A85 37 scf 
2A86 CI ret 
2A87 AF xor a 
2A88 C9 ret 

@ 2964! 2A74! 
2A89 01 82 06 ld bc,0682 ... 
2A8C OB dec bc 
2A8D 78 ld a,b 
2A8E Bl or c 
2A8F 20 FB jr nz,2A8C ... 
2A91l CI ret 


2492 C7C7C7C7C7C7 
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----- EDI LINE EDITOR (hl) 


@ BD3A! 
2A98 C5 push bc 
2A99 D5 push de 
2A9A ES push hl 
2A9B ES push hl 
2A9C Ol FF 00 ld bc,OOFF 
2A9F O0C ine c 
2AAO TE ld a,(hl) 
2AAl 23 inc hl 
2AA2 B7 or a 
2AA3 20 FA jr nz,2A9F 
2AA5 32 DD B83 1d (B8DN),a 
2AA8 CD 6F 2C call 2C6F 
2AAB El pop hl 
2AAC CD 67 2D call 2D67 
2AAF C5 push be 
2ABO ES push hl 
2ABl CD D9 2D call 2nD9 
2AB4 EI pop hl 
2AB5S Cl pop bc 
2AB6 CD C6 2A call 2AC6 
2AB9 30 F4 jr nce,2AAF 
2ABB F5 push af 
2ABC CD D2 2C call 2CD2 
2ABF Fl pop af 
2ACO EI pop hl 
2ACl DL pop de 
2AC2 Cl pop be 
2AC3 FE FC cp FC 
2AC5 C9I ret 
— EDI handle function key <a> 
@ 2AB6! 
2AC6 E5 push hl 
2AC7 21 EO 2A ld h1,2AEO 
2ACA 5F ld e,a 
2ACB 78 ld a,b 
2ACC Bl or c 
2ACD 7B ld a,e 
2ACE 20 OB jr nz,2ADB 
2ADO FE FO cp FO 
2AD2 38 07 jr c,2ADB 
2AD4 FE F4 cp FA 
2AD6 30 03 jr nc,2ADB 
2AD8 21 IC 2B ld h1,2BlC 
2ADB CD F6 2D call 2DF6 
2ADE E3 ex (sp),hl 
2ADF C9I ret 
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initial count 
<c> counts len of string parameter 
get char from textstring 


not ended yet, take next 
EDI INSERT/OVERWRITE flag 
EDI reset COPYCURSOR to zero 


EDI write string at cursor pos; update curso 


<bc>=1len of string 


EDI key-input a char At cursor pos 


EDI handle function key <a> 
not a lega! function key, go back! 


remove old cursor, place at new location 


"BREAK KEY 


table of function key routines 
save char 


test len not zero 

restore char 

len not zero 

’CURSOR up 

but stay within your window 
’COPYCU up 

same thing 

table of cursor functions and ’BEL 
EDI find key token, address = (hl) 


return to routine found 


huslik, cpc464 inside out 


table of function key routines 

13 01 2C 2C0l ”DC3 (”S) EDI function key ’DC3 (”S) 

FC 42 2B 2B42 °BREAK KEY EDI output °*BREAK*’ 

EF 40 2B 2B40 °BREAK mark EDI ESC key pressed (first time) 

0D 69 2B 2B69 °CR (M) EDI function key ‘Enter 

FO B3 2B 2BB3 ’CURSOR up EDI function key ’CURSOR UP 

Fl 7E 2B 2B7E ’CURSOR downEDI function key ’CURSOR DOWN 

F2 AA 2B 2BAA ”CURSOR leftEDI function key ’CURSOR LEFT 

F3 75 2B 2B75 °’CURSOR righEDI function key ’CURSOR RIGHT 

F8 C7 2B 2BC7 ’CURSOR SOTXEDI function key ’CURSOR start of text 
F9 92 2B 2892 ’CURSOR EoTXEDI function key ’CURSOR end of text 
FA BD 2B 2BBD ’CURSOR SoLNEDI function key ’CURSOR start of line 
FB 89 2B 2B89 °CURSOR EoLNEDI function key ’CURSOR end of line 
F4 A2 2C 2CA2 ’COPYCU up EDI function key ’COPYCURSOR UP 

F5 A7 2C 2CA7 ’COPYCU downEDI function key ”COPYCURSOR DOWN 

F6 9D 2C 2C9D ’COPYCU leftEDI function key ’COPYCURSOR LEFT 

F7 98 2C 2C98 ’COPYCU righEDI function key ”COPYCURSOR RIGHT 
EO EA 2C 2CEA °’COPY KEY EDI function key ’COPY 

7F 3D 2C 2C3D °’DEL EDI function key °DEL 

10 4A 2C 2C4A ’DLE (”P) EDI function key °DLE (CLR) 

El F9 2B 2BF9 ’INS (TAB) EDI function key ”INSERT (”TAB) 


table of cursor functions and ’BEL 


04 2B 2B 2B2B ’EOT (”D) EDI output ’BEL 

FO 2F 2B 2B2F “CURSOR up EDI perform CURSOR UP 

Fl 33 2B 2833 “CURSOR downEDI perform CURSOR DOWN 
F2 3B 2B 2B3B ’CURSOR leftEDI perform CURSOR RIGHT 
F3 37 2B 2B37 ’CURSOR righEDI perform CURSOR LEFT 


EDI output BEL 
@ 2B7A 2B84 2BAF 2BB8 2ClA 2C3F 27045 2C4C 2D26 


3E 07 ld a,07 "BEL (°G) 
18 0E jr 2B3D 

EDI perform CURSOR UP 

@ 2BIF! 

3E OB ld a,0B "VT (%X) 
18 0A jr 2B3D 

EDI perform CURSOR DOWN 

@ 2B22! 

3E 0A ld a,0A ’"LF (°J) 
18 06 jr 2B3D 

EDI perform CURSOR LEFT 

@ 2B28! 

3E 09 ld a,09 HT (I) 
18 02 jr 2B3D 

EDI perform CURSOR RIGHT 

@ 2B25! 

3E 08 ld a,08 "BS (#) 
cD 00 14 call 1400 TXT OUTPUT char or ctl code <a> to VDU 


EDI ESC key pressed (first time) 


@ 2AE6! 
B7 or a 
c9 ret 


EDI output °#*BREAK*” 


@ 2AE3! 

F5 push af 

CD 49 2B call 2B49 do it here 
Fl pop af 
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2B46 


37 sc£ 

c9 ret 

do it here 

@ 28431 

CD 69 2B call 2B69 EDI function key ‘Enter 

21 61 2B ld h1,2B61 "*Break* 

CD 69 2B call 2B69 EDI function key Enter 

CD 80 11 call 1180 TXT GET CURSOR position (hl), roll count <a> 
25 dec h 

c8 ret z if already in column 1 

3E On ld a,0D "CR (M) 

cD 00 14 call 1400 TXT OUTPUT char or ctl code <a> to VWDU 
3E 0A ld a,0A ’LF (79) 

c3 00 14 jp 1400 TXT OUTPUT char or ctl code <a> to VDU 
'*Break* 

2A 42 72 65 61 6B 2A 00 *Break*. 


EDI function key ’Enter 
@ 2AE9! 2B49! 2BAF! 


F5 
7E 
23 
B7 
c4 
20 
Fl 
37 
c9 


A8 2D 
F8 


push af 
ld a,(hl) 
inc hl 
or a 
call nz,2DA8 EDI write char <a>, handle both cursors 
jr nz,2B6A ... 
pop af 
sc£ 
ret 


EDI function key ’CURSOR RIGHT 
@ 2AF5! 


16 
cD 
CA 
c9 


ol 
93 2R 
2B 2B 


1d d,01 + 

call 2893 EDI move cursor <d> steps right 
Jp z,2B2B EDI output ’BEL 

ret 


EDI function key ’CURSOR DOWN 
@ 2AEFI 


cD 
79 
90 
BA 
DA 
18 


EB 2B 


2B 2B 
0A 


call 2BEB EDI get window width <d>; current column <e> 
ld a,c 

sub b 

cp d 

jp c,2B2B EDI output BEL 

jr 2893 EDI move cursor <d> steps right 


EDI function key ’CURSOR end of line 
@ 2BOL! 


cD 
7A 
93 
c8 
57 
18 


EB 2B 


ol 


call 2BEB EDI get window width <d>; current column <e> 
ld a,d window width 

sub e is cursor at the end already? 

ret z yes, return 

ld d,a 

jr 2B93 EDI move cursor <d> steps right 


EDI function key ’CURSOR end of text 
@ 2AFBI 


sl 


ld d,c 


EDI move cursor <d> steps right 
@ 2877! 2B87° 2B90° 2BA5” 


108 


ld a,b 
cp c 
ret z 
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50 2D 


A8 2D 


67 2D 


EC 
FF 


push de 
call 2D50 
ld a,(hl) 
call nc,2DA8 
inc b 
inc hl 
call nc,2D67 
pop de 
dec d 
jr nz,2B93 
or FF 
ret 


EDI move COPYCURSOR right 


EDI write char <a>, handle both cursors 


EDI write string at cursor pos; update curso 


EDI move cursor <d> steps right 
clear carry 


— EDI function key ’CURSOR LEFT 
@ 2AF2! 


2BAA 16 
2BAC CD 
2BAF CA 
2BB2 C9 


.-- EDI function key ’CURSOR UP 


ol 
c8 2B 
2B 2B 


@ 2AEC! 


ld d,01 
call 2BC8 
j3p z,2B2B 
ret 


call 2BEB 
ld a,b 

cp d 

jp c,2B2B 
jr 2BC8 


+ 
EDI move cursor <d> steps left 
EDI output ’BEL 


EDI get window width <d>; current column <e> 


EDI output ’BEL 
EDI move cursor <d> steps left 


.- EDI function key ’CURSOR start of line 
@ 2AFE! 


call 2BEB 
ld a,e 
sub Ol 
ret z 

ld d,a 

jr 2BC8 


EDI get window width <d>; current column <e> 


column -1 
was already column one, return 


EDI move cursor <d> steps left 


-- EDI function key ’CURSOR start of text 
@ 2AFB! 


2BC7 51 


1d d,c 


—- EDI move cursor <d> steps left 
@ 2BAC! 2BBB’ 2BC5” 2BD3” 


2BC8 78 


4A 2D 
07 


F3 
11 


0A 


29 2D 


F2 
67 


ld a,b 
ora 

ret z 

call 2D4A 
jr nc,2BD7 
dec b 

dec hl 

dec d 

jr nz,2BC8 
jr 2BE8 


ld a,b 

or a 

jr z,2BE5 

dec b 

dec hl 

push de 
call 2D29 
pop de 

dec d 

jr nz,2BD7 
call 2D67 
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EDI move COPYCURSOR left 


EDI move cursor <d> steps left 


EDI move COPYCURSOR up 
EDI write string at cursor pos; update curso 


LINE EDITOR 109 2BES 


F6 FF or FF clear carry 
c9 ret 


EDI get window width <d>; current column <e> 
@ 2B7E! 2B89! 2BB3! 2BBD! 


E5 push hl 

cD 56 12 call 1256 TXT GET WINDOW size, <hl>=1left top, <de>=erig 
7A ld a,d 

94 sub h <d>=<d>-<h>; <e>=cursor column 

3C inc a 

57 ld d,a 

CD 80 11 call 1180 TXT GET CURSOR position (hl), roll count <a> 
5C ld e,h 

El pop hl 

c9 ret 


EDI function key ’INSERT (”TAB) 


@ 2B19! 

3A DD B8 ld a, (B8DD) EDL INSERT/OVERWRITE flag 
2F cpl 

32 DD B8 ld (B8DD),a EDI INSERT/OVERWRITE flag 
c9 ret 


EDI function key ’DC3 (”S) 


@ 2AEO| 2D23 

B7 or a 

c8 ret z 

5F ld e,a 

3A DD B8 ld a, (B8DD) EDI INSERT/OVERWRITE flag 
B7 or a 

28 OD jt 2,2617 ... 

78 ld a,b 

B9 cp c 

28 09 jr z,2C17 ... 

73 ld (hl),e 

7B ld a,e 

CD A8 2D call 2DA8 EDI write char <a>, handle hoth cursors 
23 inc hl 

04 inc b 

B7 or a 

c9 ret 

79 ld a,c 

FE FF cp FF "IGNORE 

CA 2B 2B jp z,2B2B EDI output ’BEL 

AF xor a 

32 DC B8 ld (B8DC),a EDI cursor on flag 

7B ld a,e 

CD A8 2D call 2DA8 EDI write char <a>, handle both cursors 
0C inc c 

E5 push hl 

7E ld a,(hl) 

73 ld (hl),e 

5F ld e,a 

23 inc hl 

B7 ora 

20 F9 jr nz,2C27 ... 

77 ld (hl),a 

El pop hl 

04 inc b 

23 inc hl 

CD 67 2D call 2D67 EDI write string at cursor pos; update curso 
3A DC B8 ld a, (B8DC) EDI cursor on flag 

B7 or a 

C4 29 2D call nz,2D29 EDI move COPYCURSOR up 
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2C3C CI ret 


-- EDI function key °’DEL 


@ 2B13! 
2C3D 78 ld a,b <b>=cursor pos within string (0 ...n) 
2C3E B7 or a already on first position? 
2C3F CA 2B 2B jp z,2B2B EDI output °’BEL 
2C42 CD 4A 2D call 2D4A EDI move COPYCURSOR left 
2C45 D2 2B 2B jp nc,2B2B EDI output ’BEL 
2C48 05 dec b 
2049 2B dec hl 
—- EDI function key °DLE (CLR) 
@ 2B16 
2C4A 78 ld a,b 
2C4B B9I cp c <c>=1len of string 
2C4C CA 2B 2B jp z,2B2B EDI output BEL 
2C4F ES push hl 
2050 23 inc hl 
2C5l 7E ld a,(hl) 
2C52 2B dec hl 
20C53 77 ld (hl),a 
2054 23 inc hl 
2055 B7 or a 
2056 20 F8 jr nz,2C50 shift rest of string towards the cursor 
2058 2B dec hl delete last char on the screen with a 
2059 36 20 ld (h1),20 "SPACE 
2C5B 32 DC B8 ld (B8DC),a EDI cursor on flag 
2C5E E3 ex (sp),hl 
2C5F CD 67 2D call 2D67 EDI write string at cursor pos; update curso 
2C62 E3 ex (sp),hl 
2C63 36 00 ld (h1),00 mark end of string 
2C65 EI pop hl 
2C66 OD dec c 
2C67 3A DC B8 ld a, (B8DC) EDI cursor on flag 
2C6A B7 or a 
2C6B C4 2D 2D call nz,2D2D EDI move COPYCURSOR down 
2C6E C9I ret 
nn EDI reset COPYCURSOR to zero 
@ 2AABI 
2C6F 21 00 00 ld h1,0000 
2C72 22 DE B8 ld (B8DE),hl EDI COPYCURSOR position column/row 
2075 cC9 ret 


— compare COPYCURSOR with CURSOR; =carry 
@ 2DB6! 2DEO! 


2C76 ED 5B DE B8 1d de,(B8DE) EDI COPYCURSOR position column/row 
2C7A 7C ld a,h 
2C7B AA xor d 
2C7C co ret nz 
2C7D 7D ld a,1 
2C7E AB xor e 
2C7F CO ret nz 
2C80 37 sc£f 
2C81 C9 ret 
—_— add roll count to COPYCURSOR, validate, reset if illegal 
@ 2DC7! 2DED! 
2082 4F ld c,a roll count 
2C83 2A DE B8 ld hl, (B8DE) EDI COPYCURSOR position column/row 
2C86 7C ld a,h 
2C87 B5 or 1 
2C88 C8 ret z if not present 
2C89 7D ld a,1 


huslik, cpc464 inside out LINE EDITOR 111 2C89 


8 add a,c 
6F ld 1,a 


validate COPYCURSOR, reset i 
@ 2D40! 

CD CE 11 call lICE 

38 03 jr c,2C94 

21 00 00 ld h1,0000 

22 DE B8 ld (B8DE),hl 

c9 ret 


EDI function key ’COPYCURSOR 
@2B0D! 

11 00 01 ld de,01l00 

18 0D jr 2CAA 


EDI function key ’COPYCURSOR 
@2BOA! 

11 00 FF ld de,FFOO 

18 08 jr 2CAA 


EDI function key ’COPYCURSOR 
@ 2B04! 

ll FF 00 ld de,OOFF 

18 03 jr 2CAA 


EDI function key ’COPYCURSOR 
@ 2B07! 
11 01 00 ld de,0001 


Cc5 push bc 

E5 push hl 

2A DE B8 ld hl, (B8DE) 
7C ld a,h 

B5 or | 

cc 80 11 call z,1180 
7C ld a,h 

82 add a,d 

67 ld h,a 

7D ld a,l 

83 add a,e 

6F ld 1,a 

CD CE 11 call lICE 
30 OB jr nc,2CCA 
E5 push hl 

cD D2 2C call 2CD2 
El pop hl 

22 DE B8 ld (B8DE),hl 
cD CD 2C call 2CCD 
El pop hl 

cl pop bc 

c9 ret 


add roll count to vertical position 


£ illegal 
TXT VALIDATE cursor position <hl> column/row 
window would not roll 


mark COPYCURSOR not present 
EDI COPYCURSOR position column/row 


RIGHT 


<d>=+l horizontal move; <e> unchanged 


LEFT 


<d>=-] horizontal move 


UP 


<d> unchanged, <e>=-] vertical move 


DOWN 


vertical move down 


EDI COPYCURSOR position column/row 


TXT GET CURSOR position (hl), roll count <a> 


TXT VALIDATE cursor position <hl> column/row 
if printing would roll the window 


remove old cursor, place at new location 


EDI COPYCURSOR position column/row 
remove old cursor, place at new location 


remove old cursor, place at new location 


@ 2CC7! 2DID! 2D431 2DDL! 
11 68 12 ld de,1268 
18 03 jr 2CD5 


remove old cursor, place at 
@ 2ABC! 2CCO! 2032! 2DBA! 
11 68 12 ld de,1268 

2A DE B8 ld hl, (B8DE) 


7C ld a,h 
B5 or 1 
c8 ret z 
E5 push hl 
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TXT PLACE/REMOVE CURSOR on screen 
new location 

TXT PLACE/REMOVE CURSOR on screen 
EDI COPYCURSOR position column/row 


it’s not there 
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CD 80 11 call 1180 

E3 ex (sp),hl 
cD 74 ıl call 1174 

cD 16 00 call 0016 

El pop hl 

c3 74 11  jp 1174 

EDI function key ’COPY 

@ 2B10! 

c5 push bc 

E5 push hl 

CD 80 11 call 1180 

EB ex de,hl 

2A DE B8 ld hl, (B8DE) 
7C ld a,h 

B5 orl 

20 0C jr nz,2D03 
78 ld a,b 

Bl orc 

20 26 jr nz,2D21 
cD 80 11 call 1180 
22 DE B8 ld (B8DE),hl 
18 06 jr 2D09 

cD 74 11 call 1174 

cD 68 12 call 1268 

CD AB 13 call 13AB 

F5 push af 

EB ex de,hl 

cD 74 11 call 1174 
2A DE B8 ld hl, (B8DE) 
24 inc h 

CD CE 11 call LICE 
30 03, jr nc,2D1D 
22 DE B8 ld (B8DE),hl 
CD CD 2C call 2CCD 
Fl pop af 

El pop hl 

cl pop bc 

DA 01 2C jp e,2c0ol 

C3 2B 2B jp 2B2B 


EDI move COPYCURSOR up 
@ 2BDE! 2C39! 

16 01 ld d,0l 

18 02 jr 2D2F 


EDI move COPYCURSOR down 


16 FF ld d,FF 

c5 push bc 

E5 push hl 

D5 push de 

cD D2 2C call 2CD2 
Dl pop de 

2A DE B8 ld h1,(B8DE) 
7C ld a,h 

B5 or 1 

28 09 jr z,2D46 
7C ld a,h 

82 add a,d 

67 ld h,a 

cD 8C 2C call 2C8C 
CD CD 2C call 2CCD 
El pop hl 
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TXT GET CURSOR position (hl), roll count <a> 


TXT SET CURSOR, <hl>=column/row 
jp(de); always remove old, place new cursor 


TXT SET CURSOR, <hl>=colum/row 


TXT GET CURSOR position (hl), roll count <a> 


EDI COPYCURSOR position column/row 


there is a COPYCURSOR 


GET CURSOR position 
COPYCURSOR position 


(hl), roll count <a> 
column/row 


SET CURSOR, <hl>=column/row 
PLACE/REMOVE CURSOR on screen 
READ char from screen <hl>=col/row, =<a> 


TXT 
EDI 


SET CURSOR, <hl>=column/row 
COPYCURSOR position column/row 


TXT VALIDATE cursor position <hl> column/row 
if printing would roll the window 

EDI COPYCURSOR position column/row 

remove old cursor, place at new location 


EDI function key °DC3 (”S) 
EDI output ’BEL 


+ 


-1 


remove old cursor, place at new location 


EDI COPYCURSOR position column/row 


COPYCURSOR not set 


validate COPYCURSOR, reset if illegal 
remove old cursor, place at new location 
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cl pop bc 
B7 ora 
c9 ret 


EDI move COPYCURSOR left 
@ 2BCB! 20421 


D5 push de 

11 08 FF ld de,FFO8 <d>=-]; <e>="BS 

18 04 jr 2D54 

EDI move COPYCURSOR right 

@ 2B97! 

D5 push de 

11 09 01 ld de,0109 <d>=+l; <e>="HT 

C5 push bc 

E5 push hl 

cD 80 Il call 1180 TXT GET CURSOR position (hl), roll count <a> 
7A ld a,d = +1/-1 

84 add a,h add to column 

67 ld h,a 

CD CE 11 call lICE TXT VALIDATE cursor position <hl> column/row 
7B ld a,e = ’HT/’BS 

DC 00 14 call c,1400 TXT OUTPUT char or ctl code <a> to WU 

El pop hl 

cl pop bc 

DL pop de 

c9 ret 


EDI write string at cursor pos; update cursor 
@ 2AAC! 2BAO| 2BE5! 20321 2C5F! 


c5 push bc 

E5 push hl 

EB ex de,hl move string address to <de> 

CD 80 11 call 1180 TXT GET CURSOR position (hl), roll count <a> 
4F ld c,a roll count 

EB ex de,hl (de)=cursor pos now 

7E ld a,(hl) get a char from textstring 

23 inc hl prepare for next 

B7 ora test this char 

C4 85 2 call nz,2D85 ... 

20 F8 jr nz,2D6F string not terminated, get next char 

CD 80 11 call 1180 TXT GET CURSOR position (hl), roll count <a> 
91 sub c roll count - old roll count 

EB ex de,hi 

85 add a,l 

6F ld 1,a 

cD 74 11 call 1174 TXT SET CURSOR, <hl>=colum/row 

El pop hl 

cl pop bc 

B7 ora 

c9 ret 

@ 2D72! 

F5 push af 

C5 push bc 

D5 push de 

E5 push hl 

47 ld b,a save char in <b> 

CD 80 11 call 1180 TXT GET CURSOR position (hl), roll count <a> 
91 sub c 

83 add a,e 

5F ld e,a <e>=<e>+<roll count>-<old roll count> 

48 ld c,b this is the char 

CD CE 11 call lICE TXT VALIDATE cursor position <hl> column/row 
38 05 jr c,2D9B the window would not roll 
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2D9C CD CE 


2DAO DC A8 


11 


2D 


ld a,b 
add a,a 
inc a 
add a,e 
ld e,a 
ex de,hl 
call lICE 
ld a,c 
call c,2DA8 
pop hl 
pop de 
pop bc 
pop af 
ret 


<hl> is cursor pos now 

TXT VALIDATE cursor position <hl> column/row 
=char; then if window would not roll: 

EDI write char <a>, handle both cursors 


-_-- EDI write char <a>, handle both cursors 
@ 2B6D! 2B9B! 2C10! 2C22! 2DAO! 


2DAD CD 80 


2DB2 CD CE 


11 


11 


2C 


2C 


13 


ıl 


2C 


B8 
2C 


push af 
push bc 
push de 
push hl 
ld b,a 
call 1180 
ld c,a 
push bc 
call LICE 
pop bc 
call c,2C76 
push af 
call c,2CD2 
ld a,b 
push be 
call 1334 
pop bc 
call 1180 
sub c 


=char 

TXT GET CURSOR position (hl), roll count <a> 
roll count 

TXT VALIDATE cursor position <hl> column/row 
compare COPYCURSOR with CURSOR; =carry 


remove old cursor, place at new location 
=char 


TXT WRITE char <a> to screen 


TXT GET CURSOR position (hl), roll count <a> 


call nz,2C82add roll count to COPYCURSOR, validate, rese 


pop af 
jr nc,2DD4 
sbc a,a 
ld (B8DC),a 
call 2CCD 
pop hl 
pop de 
pop be 
pop af 
ret 


if COPYCURSOR <> CURSOR 

=0; reset 

EDI cursor on flag 

remove old cursor, place at new location 


— EDI key-input a char at cursor pos 
@ 2ABl! 


2DD9 CD 80 


2DDD CD CE 
2DEO CD 76 
2DE3 DA 3C 
2DE6 CD 79 
2DE9 CD 80 


2DED C4 82 
2DFO CD 3C 
2DF3 C3 81 


11 


11 
2C 
1A 
12 
11 


2C 
1A 
12 


call 1180 
ld c,a 
call lLICE 
call 2C76 
jp e,lA3C 
call 1279 
call 1180 
sub c 
call nz,2C82 
call 1lA3C 
jp 1281 
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TXT GET CURSOR position (hl), roll count <a> 


TXT VALIDATE cursor position <hl> column/row 
compare COPYCURSOR with CURSOR; =carry 

KM WAIT CHAR from keyboard =<a> 

TXT CURSOR ON 

TXT GET CURSOR position (hl), roll count <a> 


add roll count to COPYCURSOR, validate, rese 


KM WAIT CHAR from keyboard =<a> 
TXT CURSOR OFF 
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._-- EDI find key token, address = (hl) 


@ 2ADB! 
2DF6 F5 push af 
2DF7 C5 push bc 
2DF8 46 ld b,(hl) 
2DF9 23 inc hl 
2DFA E5 push hl 
2DFB 23 inc hl 
2DFC 23 inc hl 
2DFD BE cp (hl) 
2DFE 23 inc hl 
2DFF 28 04 jr z,2E05 ... 
2E01 05 dec b 
2E02 20 F7 jr nz,2DFB ... 
2E04 E3 ex (sp),hl 
2E05 Fl pop af 
2E06 T7E ld a,(hl) 
2E07 23 inc hl 
2E08 66 ld h, (hl) 
2E09 6F ld 1,a 
2E0A CI pop bc 
2E0B Fl pop af 
2E0OC CI ret 


2EOD C7 C7C7TCTCTC7C7C7T C7C7C7 
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— copy 5 bytes,(de)>(hl); 1d a,(hl-l) 
@ 31A6 32B4! 3313 331A 3321! 332C! BD3D! 


2El8 ES push hl 

2El9 D5 push de 
2ElA C5 push bc 
2ElB EB ex de,hl 
2ElC 01 05 00 ld bc,0005 count of 5 bytes to copy 
2ElIF ED BO ldir 

2E2l EB ex de,hl 
2E22 2B dec hl 
2E23 7E ld a,(hl) 
2E24 cl pop bc 
2E25 DI pop de 

2E26 EL pop hl 

2E27 37 sc£ 

2E28 C9 ret 


— REAL ARITH, CREAL <hl> to (de) 
@ 3075! 32ED! BD40! 


2E29 D5 push de 
2E2A C5 push bc 
2E2B F6 7F or 7F mask for sign 
2E2D 47 ld b,a save sign 
2E2E AF xor a =0 
2E2F 12 ld (de),a 
2E30 13 inc de 
2E3l 12 ld (de),a 
2E32 13 inc de 
2E33 OE 90 ld c,90 =144. 
2E35 7C ld a,h hi byte zero? 
2E36 B7 ora 
2E37 20 08 jr nz,2E4l no, it’s not 
2E39 4F ld c,a 
2E3A 65 ld h,1 get lo byte 
2E3B 6F ld 1,a clear <l> 
2E3C B4 : orh lo byte zero too? 
2E3D 28 OD jr z,2E4C yes, it’s a zero value 
2E3F OE 88 ld c,88 set exponent for int mant (+128.) 
2E41 FA 4B 2E jp m,2E4B hi byte was negative 
2E44 29 add hl,hl shift mantissa left 
2E45 OD dec c decrement -xponent 
2E46 B4 orh bit 7 set? 
2E47 F2 44 2E jp p,2E44 no, shift again 
2E4A 7C ld a,h 
2E4B AO and b set sign bit, if <integer> was negative 
2E4C EB ex de,hl 
2E4D 73 ld (hl),e store result into real number bytes 
2E4E 23 inc hl 
2E4F 77 ld (hl),a 
2E50 23 inc hl 
2E5l 71 ld (hl),c 
2E52 CI pop bc 
2E53 EI pop hl 
2E54 CI ret 
.— REAL ARITH, CREAL (hl) 4 byte integer to real 
@ BD43! 
2E55 C5 push bc 
2E56 01 00 AO ld bc,A000 ... 
2E59 CD 60 2E call 2E60 ... 
2E5C cl pop bc 
2E5D C9I ret 
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2E5E 


REAL ARITH ?? 


@ BD94 | 

06 A8 ld b,A8 

@ 2E59! 

D5 push de 

CD Al 36 call 36Al 
Dl pop de 

c9 ret 

REAL ARITH, 

@ 32EL! BD46! 

E5 push hl 

DD El pop ix 

AF xor a 

DD 96 04 sub (1x+04) 
28 1B jr z,2E8A 
c6 90 add a,90 
no ret nc 

D5 push de 

Cc5 push bc 

c6 10 add a,10 
CD 3D 36 call 363D 
CB 21 sla c 

ED 5A adc hl,de 
28 08 jr z,2E87 
DD 7E 03 ld a, (ix+03) 
B7 or.a 

3F ecf 

cl pop bc 

Dl pop de 

c9 ret 

9F sbc a,a 
18 F9 jr 2683 


result is zero 


6F 1d 1,a 
67 ld h,a 
37 scf 
c9 ret 


REAL ARITH ?? 
@ 2FOL! BD49! 


CD Al 2E call 2EAl 
DO ret nc 

FO ret p 

E5 push hl 

79 ld a,c 

34 inc (hl) 
20 06 jr nz,2E9E 
23 inc hl 

3D dec a 

20 F9 jr nz,2E95 
34 inc (hl) 
0C ine c 

El pop hl 

37 scf 

c9 ret 


REAL ARITH, FIX (hl) 
@ 2E8E! 2EAC! 3186! BDAC! 


E5 push hl 

D5 push de 

E5 push hl 
118 REAL ARITHMETICS 


=168. 


ix=hl; set exp <b>; get REAL <1><h><e><d> 


CINT; <hl>=int(hl); <a>=sign 


complement exponent 
result is zero 
test for over£flow 


REAL ARITH, FIX (hl) 
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out 


2EA4 DD EL pop ix 
2EAb CD 04 36 call 3604 
2EA9 DI pop de 
2EAA EI pop hl 
2EAB C9 ret 
----- REAL ARITH, INT (hl) 

@ BD4AF! 
2EAC CD Al 2E call 2EAl 
2EAF DO ret nc 
2EBO C8 ret z 
2EBl CB 78 bit 7,b 
2EB3 C8 ret z 
2EB4 18 DD jr 2E93 
.— REAL ARITH ?? 

@ BD52! 
2EB6 CD E8 35 call 35E8 
2EB9 47 ld b,a 
2EBA 28 52 jr z,2FOE 
2EBC FC FB 35 call m,35FB 
2EBF ES push hl 
2ECO DD 7E 04 ld a, (ix+04) 
2EC3 D6 80 sub 80 
2EC5 5F ld e,a 
2EC6 9F sbc a,a 
2EC7 57 ld d,a 
2EC8 6B ld l1,e 
2EC9 62 ld h,d 
2ECA 29 add hl,hl 
2ECB 29 add hl,hl 
2ECC 29 add hl,hl 
2ECD 19 add hl,de 
2ECE 29 add hl,hl 
2ECF 19 add hl,de 
2EDO 29 add hl,hl 
2EDl 29 add hl,hl 
2ED2 19 add hl,de 
2ED3 7C ld a,h 
2ED4 D6 09 sub 09 
2ED6 5F ld e,a 
2ED7 EI pop hl 
2ED8 C5 push bc 
2ED9 D5 push de 
2EDA C4 IF 2F call nz,2FIF 
2EDD FD 21 13 2F Id iy,2Fl3 
2EEl CD AO 35 call 35A0 
2EE4 28 1B jr z,2FOl 
2EE6 30 08 jr nc,2EFO 
2EE8 CD 12 34 call 3412 
2EEB DL pop de 
2EEC ID dec e 
2EED D5 push de 
2EEE 18 ED jr 2EDD 
2EFO FD 21 18 2F 1d iy,2Fl8 
2EF4 CD AO 35 call 35A0 
2EF7 38 08 jr c,2FOl 
2EF9 CD 9B 34 call 3498 
2EFC DI pop de 
2EFD IC inc e 
2EFE D5 push de 
2EFF 18 EF jr 2EFO 
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REAL ARITH, FIX (hl) 


REAL ARITH, SGN (hl); <a>=FF,00,01 


REAL ARITH, COMPLEMENT SIGN (1x) 


=128. 


=9, 


constant 3124999.98 
COMPARE (ix),(iy); <a>=FF,00,01 


MULTIPLY by 10., (hl)=(h1)*10. 


... 


constant 1 E+9 
COMPARE (ix),(iy); <a>=FF,00,01 


DEVIDE by 10., (hl)=(h1)/10. 
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2EFF 


CD 8E 2E call 2E8E 
79 ld a,c 
DL pop de 
cl pop bc 

4F ld c,a 

3D dec a 

85 add a,l 
6F ld 1,a 

DO ret nc 

24 inch 

c9 ret 

5F ld e,a 

77 ld (hl),a 
0E Ol ld c,N1l 
c9 ret 


constant 3124999.98 
FO 1F BC 3E 96 


constant 1 E+9 
FE 27 6ß 6E 9E 


@ BD55! 

2F cpl 

3C inc a 

@ 2EDA! 

B7 ora 

37 sc£ 

c8 ret z 

4F ld c,a 

F2 28 2F jp p,2F28 
2F cpl 

3C inc a 

CD 3E 2F call 2F3E 
28 09 jr z,2F36 
c5 push bc 
F5 push af 
CD 36 2F call 2F36 
Fl pop af 
cl pop bc 

18 F2 jr 2F28 

@ 2F2B” 2F2F! 

79 ld a,c 

B7 ora 


F2 9E 34 jp p,349E 
c3 15 34 jp 3415 


@ 2F281! 

ll 8F 2F ld de,2F8F 
D6 0D sub D 
DO ret nc 
Cc6 0C add a,0C 
5F ld e,a 
87 add a,a 
87 add a,a 
83 add a,e 
c6 53 add a,53 
5F ld e,a 
CE 2F adc a,2F 
93 sub e 

57 ld d,a 
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REAL ARITH ?? 


=|. 


... 


REAL ARITH DVD; (hl)=(hl)/(de) 
REAL ARITH, MULT, (hl)=(hl)*(de) 


=12. 


*2 
x 
+ 


<de>=<a>#5+2F53 
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2F5l AF 
2F52 C9 


xor a 
ret 


=0 


.-- table of constants 10. ... 1E+13 


@ 2F4D: 3412: 349B: 


2F53 00 00 
2F58 00 00 
2F5D 00 00 
2F62 00 00 
2F67 00 00 
2F6C 00 00 
2F7l 00 80 
2F76 00 20 
2F7B 00 28 
2F80 00 F9 
2F85 40 B7 
2F8A 10 A5 
2F8F 2A E7 


(2F8F) 2F3E: 


constant 10. 
constant 100. 
constant 1000. 
constant 10000. 
constant 100000. 
constant 1000000. 
constant 10000000. 
constant 100000000. 
constant 1 E+9 


constant 1 E+10 
constant 1 E+ll 
constant 1 E+tl2 
constant 1 E+13 


— REAL ARITH, set initial RANDOM NUMBER 
@ 2FA2! BD97! 


2F94 21 65 
2F97 22 E6 
2F9A 21 07 
2F9D 22 E4 
2FAO C9I 


89 
B8 
6C 
B8 


— REAL ARITH, 
@ BDIA! 


2FAl EB 
2FA2 CD 94 
2FA5 EB 
2FA6 CD ES 
2FA9 C8 
2FAA 11 E4 
2FAD 06 04 
2FAF 1A 
2FBO AE 
2FBl 12 
2FB2 13 
2FB3 23 
2FB4 10 F9 
2FB6 CI 


2F 


35 


B8& 


----— REAL ARITH, 
@ BD9ID! 


2FB7 ES 
2FB8 2A E6 
2FBB 01 07 
2FBE CD FA 
2FCl ES 
2FC2 2A E4 
2FC5 O1 65 
2FC8 CD FA 
2FCB D5 
2FCC ES 
2FCD 2A E6 
2FDO CD FA 
2FD3 E3 
2FD4 09 
2FD5 22 E4 
2FD8 EI 
2FD9 01 07 
2FDC ED 4A 
2FDE CI 


B8 


6C 


ld h1,8965 
ld (B8E6),hl 
ld h1,6C07 
ld (B8E4),hl 
ret 


RANDOM NUMRER byte 2,3 


RANDOM NUMBER byte 0,1 


seed RANDOM NUMBER 


ex de,hl 
call 2F94 
ex de,hl 
call 35E8 
ret z 

ld de,B8E4 
ld b,04 
ld a,(de) 
xor (hl) 
ld (de),a 
inc de 
inc hl 
djnz 2FAF 
ret 


RANDOMIZE 


push hl 
ld hl, (B8E6) 
ld bc,6C07 
call 2FFA 
push hl 
ld hl, (B8E4) 
1d bc,8965 
call 2FFA 
push de 
push hl 
ld hl, (B8E6) 
call 2FFA 
ex (sp),hl 
add hl,bc 
ld (B8E4),hl 
pop hl 
ld bc,6C07 
adc hl,bc 
pop bc 


huslik, cpc464 inside out 


REAL ARITH, set initial RANDOM NUMBER 
REAL ARITH, SGN (hl); <a>=FF,00,01 
RND(0) always returns the initial value 


RANDOM NUMBER byte 0,1 
=4. 


repeat 4 times 


RANDOM NUMBER byte 2,3 
initial val 

produce a random number 
RANDOM NUMBER byte 0,1 


initial val 
produce a random number 


RANDOM NUMBER byte 2,3 
produce a random number 


RANDOM NUMBER byte 0,1 


initial val 
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2FDE 


2FDF 09 add hl,be 
2FEO Cl pop bc 
2FEl 09 add hl,bc 
2FE2 22 E6 B8 ld (B8E6),hl RANDOM NUMBER byte 2,3 
2FE5 El pop hl 
-- REAL ARITH, get last RANDOM NUMBER (hl) 
@ BDAOI 
2FE6 ES push hl 
2FE7 DD El pop ix 
2FE9 2A E4 B8 ld hl, (B8E4) RANDOM NUMBER byte 0,1 
2FEC ED 5B E6 Bd 1d de, (B8E6) RANDOM NUMBER byte 2,3 
2FFO OL 00 00 ld bc,0000 
2FF3 DD 36 04 80 1d (ix+04),80 =128. 
2FF7 C3 Bl 36 jp 36Bl ... 
— produce a random number 
@ 2FBE! 2FC8! 2FDO! 
2FFA EB ex de,hl 
2FFB 21 00 00 ld h1,0000 
2FFE 3E 11 ld a,ll =17. 
3000 3D dec a 
3001 c8 ret z 
3002 29 add hl,hl 
3003 CB 13 rle 
3005 CB 12 rld 
3007 30 F7 jr nc,3000 ... 
3009 09 add hl,bc 
300A 30 F4 jr nc,3000 ... 
300C 13 inc de 
300D 18 Fl jr 3000 loop back 
.— REAL ARITH, LOG1O (hl) 
@ BD821 
300F 11 8B 30 ld de,308B constant 0.301029996 
3012 18 03 jr 3017 
— REAL ARITH, LOG (hl) 
@ 312D! BD7F! 
3014 11 86 30 1d de, 3086 constant 0.6931471831 
3017 CD ES 35 call 35E3 REAL ARITH, SGN (hl); <a>=FF,00,01 
301A 3D dec a 
301B FE Ol cp Ol =1. 
301lD DO ret nc 
301E D5 push de 
301F CD 6C 35 call 356C test expo (hl); z=zero, c=neg; ix=hl 
3022 F5 push af 
3023 DD 36 04 80 id (ix+04),80 =128. 
3027 11 81 30 ld de,3081 constant 0.707106781 
302A CD 9A 35 call 359A REAL ARITH, COMPARE (hl),(de); <a>=FF,00,01 
302D 30 06 jr nc,3035 ... 
302F DD 34 04 inc (1x+04) 
3032 Fl pop af 
3033 3D dec a 
3034 F5 push af 
3035 CD 16 33 call 3316 REAL ARITH, copy (hl) to FAC3 
3038 D5 push de 
3039 11 32 33 1d de,3332 constant 1. 
303C CD 3F 33 call 333F REAL ARITH, ADD, (hl)=(hl)+(de) 
303F EB ex de,hl 
3040 El pop hl 
3041 D5 push de 
3042 11 32 33 ld de,3332 constant |. 
3045 CD 37 33 call 3337 REAL ARITH, SUB, (hl)=(hl)-(de) 
3048 DI pop de 
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9E 
A9 


4B 
08 
93 
3B 


15 


71 


00 
29 


3F 


34 
32 


57 
9B 
38 
AA 


34 


30 


2E 


33 


307E C3 15 34 


— constant 
3081 34 F3 04 


— constant 
3086 F8 17 72 


-— constant 
308B 85 9A 20 


call 349E 
call 32A9 
=4. 
5E 7F 
13 80 
76 80 
38 82 
push de 
call 3415 
pop de 
ex (sp),hl 
ld a,h 
or a 
jp P,3071 
cpl 
inc a 
ld 1,a 
ld a,h 
ld h,00 
call 2E29 
ex de,hl 
pop hl 
call 333F 
pop de 
jp 3415 


0.707106781 
35 80 


0.693147181 
31 80 


0.301029996 
lA 7F 


nn REAL ARITH, get EXP 
@ 3134! BD85! 


3090 06 


El 


AC 


60 
17 


32 


DE 
72 


ld b,El 
call 3307 
jp nc,3328 
ld de,3100 
call 359A 
jJp P,36EC 
ld de,3105 
call 359A 
jp n,36E6 
ld de,30FB 
call 32D4 
ld a,e 
jp P,30B6 
neg 
push af 
call 331D 
call 330F 
push de 
call 32AC 
=}, 
OF 73 
52 7B 
00 80 
ex (sp),hl 
call 32AC 
=2. 
01 78 
31 7E 
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REAL-ARITH DVD; (h1)=(h1)/(de) 


constant 0.434259751 
constant 0.576584342 
constant 0.961800762 
constant 2.88539007 


REAL ARITH, MULT, (hl)=(hl)*(de) 


=0. 
REAL ARITH, CREAL <hl> to (de) 


REAL ARITH, ADD, (hl)=(hl)+(de) 


REAL ARITH, MULT, (hl)=(hl)*(de) 


=225. 

test exponent (hl), cp with <b>; set p,z,c 
REAL ARITH, copy constant 1. to (hl) 
constant 8%.0296919 

REAL ARITH, COMPARE (hl),(de); <a>=FF,00,01 
constant -88.7228391 

REAL ARITH, COMPARE (hl),(de); <a>=FF,00,01 
set exp REAL(ix+t4) to 0; set carry; hl=ix 
constant 1.44269504 


... 


REAL ARITH, copy (hl) to FAC2; mult by (de) 
REAL ARITH, copy (hl) to FAC1 


constant 6.86258 E-05 
constant 2.57367 E-02 
constant 0.5 


constant 1.98164 E-03 
constant 0.173286795 
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15 34 


37 33 


9E 34 
cc 30 
3F 33 
34 04 


7B 35 


8l 


87 


REAL ARITH, 
@ BD79! 
11 cc 30 


REAL ARITH, 
@ BD7C! 


E8 35 
28 33 


E8 
25 


35 


FB 35 


82 31 


25 
48 31 
30 


34 
30 


FB 


35 


124 


call 3415 
pop de 
push hl 

ex de,hl 

call 3337 

ex de,hl 
pop hl 
call 349E 
ld de,30CC 
call 333F 
inc (ix+04) 

pop af 
jp 3578 


add hl,hl 
dec sp 
xor d 
jr c,3081 
rst 0 


inc sp 
rrca 

jr nc,308C 
ret m 

rla 

ld (hl),d 
orc 

add a,a 


SAR (hl) * 0,5 


ld de,30CC 


REAL ARITH, MULT, (hl)=(hl)*(de) 


REAL ARITH, 


SUB, (hl)=(hl)-(de) 


REAL ARITH DVD; (hl)=(h1)/(de) 
constant 0.5 


REAL ARITH, 


ADD, (hl)=(hl)+(de) 


constant 1.44269504 


constant 0.707106781 


constant 


... 


constant 


constant 


EXP; (hl)=(h1)” (de) 


ex de,hl 
call 35E8 
ex de,hl 
jp 2,3328 
push af 
call 35E8 
jr z,3140 
ld b,a 
call m,35FB 
push hl 
call 3182 
pop hl 
jr c,314B 
ex (sp),hl 
pop hl 
jp m,3148 
push bc 
push de 
call 3014 
pop de 
call c,3415 
call c,3090 
pop bc 
ret nc 
ld a,b 
or a 
call m,35FB 
scf 
ret 


REAL ARITHMETICS 


REAL ARITH, 
REAL ARITH, 


REAL ARITH, 


... 


REAL ARITH, 


REAL ARITH, 


REAL ARITH, 
REAL ARITH, 


REAL ARITH, 


88.0296919 


-88.7228391 


0.5 


SCN (hl); <a>=FF,00,01 
copy constant 1. to (hl) 


SGN (hl); <a>=FF,00,01 


COMPLEMENT SIGN (1x) 


LOG (hl) 


MULT, (hl)=(h1)*(de) 
get EXP 


COMPLEMENT SIGN (1x) 


huslik, cpc464 inside out 


3140 
3141 
3142 
3143 
3146 
3147 


3148 
3149 
314A 


314B 
314C 
314D 
314E 
314F 
3150 
3151 
3152 
3154 
3155 
3158 
3159 
315A 
315B 
315D 
315E 
3161 
3163 
3164 
3166 
3167 
316A 
316D 
316F 
3170 


3172 
3173 
3174 
3177 


3179 
317A 
317B 
317C 
317F 


3182 
3183 
3186 
3189 
318A 
318B 
318D 
318F 
3190 
3191 


3192 
3193 
3194 
3195 
3196 


EC 36 


OF 33 


1D 33 


E8 B8 
15 34 


FD 32 


pop af 
sc£f 

ret p 
call 36EC 
xor a 

ret 


xor a 
inc a 
ret 


ld c,a 
pop af 
push bc 
push af 
ld a,c 
scf 
adc a,a 
jr nc,3151 
ld b,a 
call 330F 
ex de,hl 
ld a,b 
add a,a 
jr z,3172 
push af 
call 331D 
jr nc,3179 
pop af 
jr nc,315A 
push af 
ld de,B8E8 
call 3415 
jr nc,3179 
pop af 
jr 315A 


pop af 

scf 

call m,32FD 
jr 3137 


pop af 
pop af 
pop bc 
jp n,36E6 
jp 36EE 


push bc 
call 3317 
call 2EAl 
ld a,c 

pop bc 

jr nc,318F 

jr z,3192 
ld a,b 

or a 

ret 


ld c,a 

ld a,(hl) 
rra 

sbc a,a 
and b 


huslik, cpc464 inside out 


REAL ARITH, copy (hl) to FAC1 


REAL ARITH, copy (hl) to FAC2; mult 


... 


FACL 
REAL ARITH, MULT, (hl)=(hl)*(de) 


get reciprocal value (hl), use FAC3 


set exp REAL(ix+4) to 0; set carry; 


by (de) 


hl=ix 


set REAL(ix) to: FF,FF,FF,(<b> and 7F),FF 


REAL ARITH, copy (de) to FAC3 
REAL ARITH, FIX (hl) 


REAL ARITHMETICS 


125 3196 


3197 47 ld b,a 


3198 79 ld a,c 
3199 FE 02 cp 02 =2. 
319B 9F sbc a,a 
319c DO ret nc 
319D TE ld a,(hl) 
319E FE 27 cp 27 =39, 
3lAO D8& retc 
31Al AF xor a 
31A2 CI ret 
— REAL ARITH, PI (hl) 
@ BD76! 
31A3 11 A9 31 ld de,31A9 constant PT = 3,14159265 
3lA6 C3 18 2E jp 2E18 copy 5 bytes,(de)>(hl); ld a,(hl-1) 


—- constant PI = 3.14159265 
31A9 A2 DA OF 49 82 


u. REAL ARITH, set DEG/RAD <a> 


@ BD731! 
3lAE 32 F7 B8 ld (B8F7),a flag DEG/RAD 
3lBl cC9 ret 


— REAL ARITH, COS (hl) 
@ 3235! BDSB! 


31B2 CD ES 35 call 35E8 REAL ARITH, SGN (hl); <a>=FF,00,01 
31B5 FC FB 35 call m,35FB REAL ARITH, COMPLEMENT SIGN (ix) 
31B8 F6 Ol or Ol =1. 

31BA 18 01 jr 31BD 


— REAL ARITH, SIN (hl) 
@ 3239! BD83} 


31BC AF xor a 

31BD F5 push af 

3lBE 11 ID 32 ld de,3210 constant 0.318309886 

3lcl 06 FO ld b,FO =240. 

31C3 3A F7 B8 ld a, (B8F7) flag DEG/RAD 

3lc6 B7 or a 

31lC7 28 05 jr z,31CE ... 

31C9 11 22 32 ld de,3222 constant 5.55556 E-03 

3lIcC 06 F6 ld b,F6 =246. 

3lcCE CD 07 33 call 3307 test exponent (hl), cp with <b>; set p,z,c 
31Dl 30 3A jr nc,320D ... 

31D3 Fl pop af 

31D4 CD D5 32 call 32D5 ... 

31D7 DO ret nc 

31D8 7B ld a,e 

31D9 IF rra 

31DA DC FB 35 call c,35FB REAL ARITH, COMPLEMENT SIGN (ix) 

3lDpD 06 ES ld b,E8 =232. 

3lDF CD 07 33 call 3307 test exponent (hl), cp with <b>; set p,z,c 
3lE2 D2 E6 36 jp nc,36E6 set exp REAL(ix+4) to 0; set carry; hl=ix 
31E5 DD 34 04 inc (ix+04) 

31E8 CD A9 32 call 32A9 sie 

31EB 06 =6. 

3lEC 1B 2D 1A E6 6E constant -3.42879 E-06 

3lFl F8 FB 07 28 74 constant 1.60247 E-04 

3lF6 01 89 68 99 79 constant -4.68165 E-03 

31lFB EI DF 35 23 7D constant 7.96926 E-02 

3200 28 E7 5D A5 80 constant -0645964095 

3205 A2 DA OF 49 81 constant 1.57079633 

320A C3 15 34 jp 3415 REAL ARITH, MULT, (hl)=(hl)*(de) 


320A 126 REAL ARITHMETICS - huslik, cpc464 inside out 


320D Fl 
320E C2 
321l 3A 
3214 FE 
3216 D8 
3217 11 
32lA C3 


28 33 
F7 B8 
ol 


27 32 
15 34 


nn constant 


321D 6E 


83 F9 


heran constant 


3222 B6 


60 OB 


um constant 


3227 13 


35 FA 


ren constant 


322C D3 


EO 2E 


pop af 

jp nz,3328 
ld a,(B8F7) 
cp Ol 

ret c 

ld de,3227 
jp 3415 


0.318309886 


22 


7F 


5.55556 E-03 


36 


79 


1.74533 E-02 


0E 


57. 


65 


7B 


2957795 
86 


-- REAL ARITH, TAN (hl) 
@ BDSE! 


3231 CD 
3234 D5 
3235 CD 
32338 E3 
3239 DC 
323C DI 
323D DA 
3240 C9 


OF 33 
B2 31 
BC 31 


9E 34 


call 330F 
push de 
call 31B2 
ex (sp),hl 
call c,31BC 
pop de 
jp c,349E 
ret 


----- REAL ARITH, ATN (hl) 
@ BDI1! 


3241 CD 
3244 F5 
3245 FC 
3248 06 
324A CD 
324D 30 
324F 3D 
3250 F5 
3251 F4 
3254 CD 
3257 OB 
3258 FF 
325D 83 
3262 6F 
3267 D5 
326C BO 
3271 AF 
3276 74 
327B DI 
3280 7A 
3285 83 
328A FE 
328F CD 
3294 05 
3295 32 
3298 33 
3299 3A 
329C B7 
329D 11 
32A0 C4 
32A3 Fl 
32A4 FC 


E8 35 


FB 35 
FO 
07 33 
4A 


FB 35 


call 35E8 
push af 
call m,35FB 
ld b,FO 
call 3307 
jr nc,3299 
dec a 
push af 
cali p,32FD 
call 3249 
=11. 


dec b 

ld (3BF4),a 
inc sp 

ld a,(B8F7) 
or a 

ld de,322C 
call nz,3415 
pop af 

call m,35FB 


huslik, cpc464 inside out 


REAL ARITH, copy constant 1. to (hl) 
flag DEG/RAD 


=|. 


constant 1.74533 E-02 


REAL ARITH, MULT, (hl)=(h1)*(de) 


REAL ARITH, copy (hl) to FACI 


REAL ARITH, COS (hl) 


REAL ARITH, SIN (hl) 


REAL ARITH DVD; 


REAL ARITH, SGN (hl); <a>=FF,00,01 


REAL ARITH, COMPLEMENT SIGN (ix) 


=240. 


(h1)=(h1)/(de) 


test exponent (hl), cp with <b>; set p,z,c 


get reciprocal value (hl), use FAC3 


constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 


1.09112 E-03 
0.007199405 
2.22744 E-02 
-4.43575 E-02 
6.71611 E-02 
-2.79877 E-02 
0.110545013 
-0.142791596 
0.199996046 
0.333333239 

l 


flag DEG/RAD 


constant 


REAL ARITH, MULT, (hl)=(hl)*(de) 


REAL ARITH, COMPLEMENT SIGN (ix) 


57.2957795 


REAL ARITHMETICS 


127 32A4 


32A7 
32A8 


3249 


32AC 
32AF 
3280 
32Bl 
3282 
3283 
32B4 
3287 
3288 
3289 
32BA 
32BB 
32BC 
328D 
32C0 
32C1 
32C2 
32C3 
32C6 
32C9 
32CA 
32CB 
32CC 
32CD 
32n0 
32D1 
32D2 


32D4 


32D5 
3206 
32D9 
32DA 
32DD 
32E0 
32El 
32E4 
32E6 
32E7 
32E8 
32E9 
32EA 
32ED 
32F0 
32Fl 
32F2 
32F5 
32F6 
32F7 
32F8 


32F8 


37 
c9 


scf 
ret 


@ 304C! 31E8! 32541 


CD 


1D 33 


call 331D 


@ 30BE! 3002! 


cD 
EB 


128 


16 33 


18 2E 


ED B8 


37 33 


call 3316 

ex de,hl 

pop de 

ld a,(de) 

inc de 

ld b,a 

call 2El3 

inc de 

inc de 

inc de 

inc de 

inc de 

push de 

ld de,B38ED 
dec b 

ret z 

push bc 
1d de,BdF2 
call 3415 
pop be 

pop de 

push de 
push bc 
call 333F 
pop bc 

pop de 

jr 3287 


xor a 


push af 
call 3415 
pop af 
ld de,30CC 
call nz,333F 
push hl 
call 2E66 
jr nc,32F9 
pop de 
push hl 
push af 
push de 
ld de,B8ED 
call 2E29 
ex de,hl 
pop hl 
call 3337 
pop af 
pop de 
scf 
ret 


REAL ARITHMETICS 


REAL ARITH, copy (hl) to FAC2; mult by (de) 


REAL ARITH, copy (hl) to FAC3 


get address of caller 
get count of 5 byte sequences 
skip over this parameter 


copy 5 bytes,(de)>(hl); ld a,(hl-l) 
skip over 5 byte value 


r2estore return address 
FAC2 


FAC3 


REAL ARITH, MULT, (hl)=(hl)*(de) 


REAL ARITH, ADD, (hl)=(hl)+(de) 


REAL ARITH, MULT, (h1l)=(hl)*(de) 


constant 0.5 
REAL ARITH, ADD, (hl)=(hl)+(de) 


REAL ARITH, CINT; <hl>=int(hl); <a>=sign 


FAC2 


REAL ARITH, CREAL <hl> to (de) 


REAL ARITH, SUB, (hl)=(h1l)-(de) 


huslik, cpc464 inside out 


pop hl 
xor a 

ine a 

ret 


-— get reciprocal value (hl), use FAC3 
@ 31741! 3251! 


32FD CD 16 33 


call 3316 REAL ARITH, copy (hl) to FAC3 

ex de,hl 

call 3328 REAL ARITH, copy constant 1. to (hl) 
jp 349E REAL ARITH DVD; (hl)=(hl)/(de) 


.-- test exponent (hl), cp with <b>; set p,z,c 
@ 3092! 31CE! 31DF! 324A! 


3307 CD 6C 35 
330A FO 


call 356C test expo (hl); z=zero, c=neg; ix=hl 
ret p 

cp b 

ret z 

ccf 

ret 


.- REAL ARITH, copy (hl) to FACl 
@ 30BA! 3155! 3231! 


330F EB 
3310 21 E8 B8 
3313 C3 18 2E 


ex de,hl 
1d h1,B8E8 FAC1 
jp 2E18 copy 5 bytes, (de)>(hl); ld a,(hl-1) 


-- REAL ARITH, copy (hl) to FAC3 
@ 3035! 32AC! 32FD! 


3316 EB 


ex de,hl 


- REAL ARITH, copy (de) to FAC3 


@ 31831 
3317 21 F2 B8 
33lA C3 18 2E 


1d h1,B8F2 FAC3 


jp 2E18 copy 5 bytes,(de)>(h1); 1d a,(hl-1) 


Dr REAL ARITH, copy (hl) to FAC2; mult by (de) 
@ 30B7! 315E! 3249! 


331D EB 
33lE 21 ED B8 
3321 CD 18 2E 
3324 EB 
3325 C3 15 34 


ex de,hl 

ld h1l,B8ED FAC2 

call 2E18 copy 5 bytes, (de)>(hl); 1d a,(hl-1l) 
ex de,hl 

jp 3415 REAL ARITH, MULT, (hl)=(hl)*(de) 


—- REAL ARITH, copy constant 1. to (hl) 
@ 3095 3112 320E 3301! 


3328 D5 
3329 11 32 33 
332C CD 18 2E 
332F DI 
3330 37 
3331 cC9 


_—— constant |. 


push de 


ld de,3332 constant 1. 

call 2E18 copy 5 bytes,(de)>(hl); ld a,(hl-1) 
pop de 
scf 

ret 


@ 3039: 3042: 3329: 
3332 00 00 00 00 81 


—— REAL ARITH, SUB, (hl)=(hl)-(de) 
@ 3045! 30E6! 32F2! BD5B! 


3337 3E Ol 
3339 18 05 


ld a,0l =1. 
jr 3340 


huslik, cpc464 inside out REAL ARITHMETICS 129 


3339 


----- REAL ARITH, SUB (hl)=(de)-(hl) 
@ BD5EI 


3E 80 
18 01 


ld a,80 
jr 3340 


=128. 


REAL ARITH, ADD, (hl)=(hl)+(de) 
@ 303C} 307A! 30F1! 32CD! 32DD! BD58! 


AF 
E5 


CD 43 


03 
03 


04 
04 


04 
04 


04 


04 


36 


33 
00 


ol 


ld c,(iy+03) 
a 


jr z,335A 
jp m,3358 
ld a,80 


ld a, (1x+04) 
cp (iy+04) 
jr nc,3376 
ld d,b 


ld d,a 

ld a, (iy+04) 
ld (ix+04),a 
jr 2,33C3 
sub d 

cp 21 

jr nc,33C3 
jr 3387 


xor a 
sub (iy+04) 
jr 2,3305 
add a, (ix+04) 
cp 21 
jr nc,33D5 
push hl 
pop iy 
ex de,hl 
ld e,a 
ld a,b 
xor c 
push af 
push bc 
ld a,e 
call 3643 
ld a,c 
pop bc 
ld c,a 
pop af 
jp nm,33DA 
ld a,(iy+00) 
add a,1 
ld 1,a 
ld a,(iy+#01) 


REAL ARITHMETICS 


huslik, 


cpc464 inside out 


339F 
33A0 
33Al 
33A4 
33A5 
33A6 
33A9 
33AB 
33AC 
33AD 
33B0 
33B2 
33B4 
33B6 
3388 
33BA 
33BD 
33C0 


33C3 
33C6 
33C9 
33CC 
33CF 
3302 
33D5 
3308 
3309 


33DA 
33DB 
3MC 
33DD 
33E0 
33E1 
3382 
33E5 
3366 
33E7 
33EA 
33EB 
3IEC 
33EF 
33Fl 
33F2 
33F3 
33F5 
33F6 
33F7 
33F8 
33F9 
33FA 
33FB 
33FD 
33FE 
33FF 
3401 
3402 
3403 
3405 
3406 
3407 
3409 
340A 
340B 


7E 


7E 


7E 


00 


36 


01 


02 


03 


adc a,h 

ld h,a 

ld a,(iy+02) 
adc a,e 

ld e,a 

ld a, (iy+03) 
set 7,a 

adc a,d 

ld d,a 

jp nc,36BA 
rr d 

rr 
rr 
rr 
rr 
inc (1x+04) 
jp nz,36BA 
jp 36EE 


orrse 


ld a,(iy+02) 
ld (ix+02),a 
ld a,(iy+0l) 
ld (ix+0l),a 
ld a,(iy+00) 
ld (ix+00),a 
ld (1x+403),b 


ld c,a 

ld a,(iy+00) 
sbc a,l 

ld 1,a 

ld a,(iy+O0l) 
sbc a,h 

ld h,a 

ld a,(iy+02) 
sbc a,e 

ld e,a 

ld a, (i1y+03) 
set 7,a 

sbe a,d 

ld d,a 

jr nc,340B 
ld a,b 

cpl 

ld b,a 

xor a 

sub c 

ld c,a 

ld a,00 

sbc a,l 

ld 1,a 

ld a,00 

sbc a,h 

ld h,a 

ld a,00 

sbc a,e 

ld e,a 

ld a,00 

sbc a,d 

ld d,a 

add a,a 


huslik, cpc464 inside out 


set REAL(ix) to: FF,FF,FF,(<b> and 7F),FF 


REAL ARITHMETICS 


131 


340B 


DA BA 36 
c3 Bl 36 


jp c,36BA 
jp 36Bl 


MULTIPLY by 10., (hl)=(h1)*10. 
@ 2EE8| 
11 53 2F 


ld de,2F53 


constant 10. 


REAL ARITH, MULT, (hl)=(hl)*(de) 
@ 2r3B 3065! 307E 30E0! 3131! 316A! 320A! 32lA 32A0! 32C6! 3206! 
@ 3325 BD61! 


El 


El 
7E 


2C 
48 


26 
21 


50 


04 


35 


34 


@ 342B! 
21 00 00 


5D 
54 
FD 
CD 
FD 
CD 
FD 
CD 
FD 
F6 
06 
IF 
4F 


86 


8E 


00 
34 
ol 
34 
02 
34 
03 


00 


ol 


push de 
pop iy 
push hl 
pop ix 
ld a, (1y+04) 
or a 
jr z,344D 
dec a 
call 3548 
jr z,344D 
jr nc,344A 
push af 
push be 
call 3450 
ld a,c 
pop be 
ld c,a 
pop af 
bit 7,d 
jr nz,3443 
dec a 
jr 2,344 
sla c 


ld (ix+04),a 
or a 

jp nz,36BA 
jp 36EE 


jp 36E& 


ld h1,0000 


call 3493 

ld a,(iy#0l) 
call 3493 

ld a,(iy+02) 
call 3493 

ld a,(iy+03) 
or 80 

ld b,08 

rra 

ld c,a 

jr nc,3486 

ld a,1 

add a, (ix+00) 
ld 1,a 

ld a,h 

adc a,(ixH1l) 


REAL ARITHMETICS 


... 


set REAL(iv) to: FF,FF,FF, (<b> and 7F),FF 


set exp REAL(ix+4) to 0; set carry; hl=ix 


huslik, cpc464 inside 


out 


8E 02 


8E 03 


1A 
1B 
IC 
1D 
19 
DE 


ld h,a 
ld a,e 
adc a,(ix+02) 
ld e,a 
ld a,d 
adc a, (ix+03) 
ld d,a 
rr 
ir 
rr 
rr 


rPsrsenam 


rrc 
djnz 3470 
ret 


@ 3458! 345E! 3464! 


-- DEVIDE by 10., (hl)=(h1)/10. 


@ 2EF9! 


349B 11 


53 2F 


or a 

jr nz,346C 
ld 1,h 

ld h,e 

id e,d 

ld d,a 

ret 


ld de,2F53 


constant 10. 


— REAL ARITH DVD; (hl)=(h1)/(de) 
@ 2F38 3049! 30EB! 323D 


349E D5 
349F FD 
34Al E5 
34A2 DD 


El 


96 04 


48 35 
E6 36 


46 03 


32 35 


push de 
pop iy 
push hl 
pop ix 
xor a 
sub (1y+04) 
jr 2,3502 
call 3548 
jp z2,36E6 
jr nc,34FF 
push bc 
ld c,a 
ld e,(hl) 
inc hl 
ld d,(h1l) 
inc hl 
ld a,(hl) 
inc hl 
ld h, (hl) 
ld 1,a 
ex de,hl 
ld b, (iy+03) 
set 7,b 
call 3532 
jr nc,34CD 
ld a,c 
or a 
jr nz,34D3 
jr 34FE 


dec c 

add hl,hl 
rle 

rld 

ld (ixt#04),c 


huslik, cpc464 inside out 


... 
... 
set 


... 


3304 BD64! 


exp REAL(ix+4) to 0; set carry; hleix 


REAL ARITHMETICS 133 34D3 


34D6 
34D9 
34DC 
34DF 
34E2 
3485 
34E8 
34EB 
34EE 
34EF 
34F0 
34F3 
34F6 
3479 
34FA 
34FB 


34FE 
34FF 


3502 
3505 
3506 


3507 
3509 
350B 
350C 
350D 
3508 
3511 
3513 
3514 
3517 
3518 
3519 
351C 
351D 
351E 
3521 
3522 
3523 
3524 
3525 
3526 
3528 
3529 
352A 
352C 
352E 
352F 
3531 


3532 
3533 
3534 
3535 


3536 
3537 
353A 
353B 


353B 


CD 07 35 call 3507 

DD 71 03 ld (ix+03),c 
CD 07 35 call 3507 

DD 71 02 ld (ix+02),c 
CD 07 35 call 3507 

DD 71 01 1d (ix+Ol),c 
CD 07 35 call 3507 

D4 32 35 call nc,3532 
9F sbc a,a 

69 ld 1,c 

DD 66 O1 ld h,(ix+0l) 
DD 5E 02 ld e, (1x+02) 
DD 56 03 ld d,(1x+03) 
cl pop bc 

4F ld c,a 

C3 BA 36 jp 36BA 

cl pop be 

C3 EE 36 jp 36EE 


CD 94 35 cali 3594 
AF xor A 

c9 cet 

@ 34D6! 34DC! 34E2! 34E8! 
0E OL ld c,0l 

38 08 jr c,3513 
7A ld a,d 

B8 cp b 

3F cck 

cc 36 35 call 2,3536 
30 13 jr nc,3526 
7D ld a,l 

FD 96 00 sub (iy+O00) 
6F ld 1,a 

7C ld a,h 

FD 9E O1 sbc a, (iy+0l) 
67 ld h,a 

7B ld a,e 

FD 9E 02 sbce a,(i1y+02) 
5F ld e,a 

7A ld a,d 

98 sbc a,b 

57 ld d,a 

37 scf 

CB 11 rlc 

9F sbc a,a 

29 add hl,hl 
CB 13 rle 

cB 12 rld 

3C inc a 

20 D8 jr nz,3509 
c9 ret 

@ 3402! 34EB! 

7A ld a,d 

B8 cp b 

3F ccf 

co ret nz 

@ 350E! 

7B ld a,e 

FD BE 02 cp (iy+02) 
3F ccf 

co ret nz 

134 REAL ARITHMETICS 


... 


REAL(ix) to: FF,FF,FF,(<b> and 7F),FF 
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3530 7C ld a,h 
353D FD BE Ol cp (iy+01) 


3540 3F ccf 

3541 CO ret nz 
3542 7D ld a,1 
3543 FD BE 00 cp (iy+O00) 
3546 3F ccf 

3547 cC9 ret 

@ 3422! 34AA! 
3548 4F ld c,a 


3549 DD 7E 03 ld a,(1x+03) 
354C FD AE 03 xor (iy+03) 


354F 47 ld b,a 

3550 DD 7E 04 ld a, (ix+04) 

3553 B7 or a 

3554 C8 ret z 

3555 81 add a,c 

3556 4F ld c,a 

3557 IF rra 

3558 A9 xor c 

3559 79 ld a,c 

355A F2 68 35 j3p p,3568 ... 
355D DD CB 03 FE set 7,(i1x+03) 

3561 D6 7F sub 7F =127. 
3563 37 scf 

3564 CO ret nz 

3565 FE Ol cp Ol =|. 
3567 c9 ret 

3568 B7 or a 

3569 F8 retm 

356A AF xor a =0 
356B C9I ret 


-_-- test expo (hl); z=zero, c=neg; ix=hl 
@ 301F! 33071! 


356C E5 push hl 
356D DD El pop ix 
356F DD 7E 04 ld a, (ix+04) 
3572 B7 ora 
3573 cC8 ret z 
3574 D6 80 sub 80 =128. 
3576 37 scf 
3577 c9 ret 
— REAL ARITH, ?? 
@ BD67! 
3578 ES push hl 
3579 DD EL pop ix 
@ 30F8 
357B B7 or a 
357C FA 89 35 jp m,3589 ... 


357F DD 86 04 add a, (ix+04) 
3582 DD 77 04 ld (ix+04),a 


3585 3F Eck 

3586 D8 retc 

3587 18 OB jr 3594 ... 
3589 DD 86 04 add a, (ix+04) 

358C 38 02 jr c,3590 ... 
35828 AF xor a 

358F 37 scf 


3590 DD 77 04 ld (ix+04),a 


huslik, cpc464 inside out 


REAL ARITHMETICS 135 


3590 


c9 ret 

@ 3502! 3587’ 

DD 46 03 ld b,(ix+03) 
CD EE 36 call 36EE set REAL(ix) to: FF,FF,FF,(<b> and 7F),FF 
REAL ARITH, COMPARE (hl),(de); <a>=FF,00,01 

@ 302A! 3098! 30A4! BD6A! 


E5 push hl 
DD EI pop ix 
D5 push de 
FD El pop iy 


COMPARE (ix),(iy); <a>=FF,00,01 
@ 2EEl! 2EF4! 


DD 7E 04 ld a, (ix+04) 

FD BE 04 cp (iy+04) 

38 3A jr c,35E2 Be 
20 33 jr nz,35DD ... 
B7 ora 

c8 tet z 

DD 7E 03 ld a, (ix+03) 

FD AE 03 xor (iy+03) 

FA DD 35 jp m,35DD ... 
DD 7E 03 ld a, (ix+03) 

FD 96 03 sub (iy+03) 

20 17 jr n2,35D4 ... 
DD 7E 02 ld a,(ix+02) 

FD 96 02 sub (iy+02) 

20 OF jr nz,35D4 Pr 
DD 7E OL ld a, (ix+0l) 

FD 96 O1 sub (iy+0l) 

20 07 jr nz,35D4 ... 
DD 7E 00 ld a, (1x+00) 

FD 96 00 sub (1y+00) 

c8 ret z 

9F sbc a,a 

FD AE 03 xor (iy+03) 

87 add a,a 

9F sbc a,a 

D8 ret c 

3C inc a 

c9 ret 

DD 7E 03 ld a,(ix+03) 

18 F6 jr 3508 ... 
FD 7E 03 ld a,(iy+03) 

2F cpl 

18 FO jr 3508 ss 


REAL ARITH, SGN (hl); <a>=FF,00,01 
@ 2EB6! 2FA6! 3017! 310E! 3116! 31821 3241! BD70! 


E5 push hl 

DD El pop ix 

DD 7E 04 ld a, (ix+04) 
B7 or a 

c8 ret z 

DD 7E 03 ld a, (1x+03) 
87 add a,a 

9F sbce a,a 

D8 ret c 

3C inc a 

c9 ret 
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REAL ARITH, COMPLEMENT SIGN (hl) 


@ BD6D! 
E5 
DD El 


push hl 
pop ix 


REAL ARITH, COMPLEMENT SIGN (ix) 
@ 2EBC! 311C! 313B! 3185! 31DA! 3245! 32A4! 


DD 7E 03 
EE 80 

DD 77 03 
c9 


Cc6 AO 


cD 3D 36 


20 05 


20 F9 


ld a, (ix+03) 


xor 80 


ld (ix+03),a 


ret 


xor a 
sub (ix+04) 
jr nz,3614 
ld b,04 

ld (hl),a 
inc hl 

djnz 360C 
ld c,01 

scf 

ret 


add a,AO 
ret nc 
push hl 
call 363D 
xor a 
cp b 
adc a,a 
or c 
ld c,1 
ld b,h 
pop hl 
ld (hl),c 
inc hl 
ld (hl),b 
inc hl 
ld (hl),e 
inc hl 
ld e,a 
ld a,(hl) 
ld (hl),d 
and 80 
ld b,a 
ld c,04 
xor a 
or (hl) 
jr nz,3639 
dec hl 
dec c 
jr nz,3631 
ine c 
ld a,e 
or a 
scf 
ret 


@ 2E76! 3618! 


FE 21 
38 02 
3E 21 


cp 21 
jr c,3643 
ld a,21 
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flip bit 7 


=4. 
next 


=1. 


=160. 


=128. 


next 


=33. 


=33. 
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3643 


3643 
3644 
3645 
3646 
3647 
3648 
3649 
364A 
364B 
364C 
3648 
3651 


3653 
3654 
3655 
3656 
3657 
3658 
3659 
365A 
365B 
365C 
365E 
3660 
3662 
3664 
3665 
3667 
3669 
366B 
366D 
366F 
3670 
3672 


3673 
3674 
3675 
3676 
3678 
3679 
367A 
367B 
367C 
367D 
367E 
367F 
3681 
3683 
3684 
3685 
3686 
3687 
3688 
368A 
3688 
368C 
3688 
368F 
3690 
3691 
3693 


3693 


@ 338D! 363F’ 


5E ld e,(hl) 
23 inc hl 

56 ld d,(hl) 
23 inc hl 

4E ld c,(hl) 
23 inc hl 

66 ld h, (hl) 
69 1d 1,c 

EB ex de,hl 
CB FA set 7,d 
01 00 00 ld bc,0000 
18 0B jr 365E 
4F ld c,a 

78 ld a,b 

B5 or 1 

47 ld b,a 

79 ld a,c 

4D ld c,1 

6C ld 1,h 

63 ld h,e 

5A ld e,d 

16 00 ld d,00 
D6 08 sub 083 

30 Fl jr nc,3653 
Cc6 08 add a,08 
c8 ret z 

CB 3A srld 

CB 1B rr e 

CB IC rr h 

CB 1D rr 1 

CB 19 rrc 

3D dec a 

20 F3 jr n2,3665 
c9 ret 

@ 36B4! 

14 inc d 

15 dec d 

F8 tet m 

20 17 jr nz2,363F 
57 ld d,a 

7B ld a,e 

B4 or h 

B5 or 1 

Bl or c 

c8 ret z 

7A ld a,d 

D6 08 sub 08 

38 IC jr c,369F 
c8 ret z 

53 ld d,e 

5C ld e,h 

65 ld h,1 

69 ld 1,c 

0E 00 ld c,00 
14 inc d 

15 dec d 

28 Fl jr z,367F 
F8 ret m 

3D dec a 

c8 ret z 

CB 21 sla c 

CB 15 zu. 
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=0. 
=8. 


... 


=8, 


=3. 


=0. 
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3695 CB 14 rlh 


3697 CB 13 rle 

3699 CB 12 rld 

369B F2 8F 36 jp p,368F u, 

369E CI ret 

369F AF xor a 

36A0 C9 ret 

-_-- ix=hl; set exp <b>; get REAL <1l><h><e><d> 
@ 2E61! 

36Al ES push hl 

36A2 DD EI pop ix 

36A4 DD 70 04 ld (ix+04),b 

36A7 47 ld b,a 

36A8 5E ld e,(hl) 

36A9 23 inc hl 

36AA 56 ld d,(hl) 

36AB 23 inc hl 

36AC TE ld a,(hl) 

36AD 23 inc hl 

36AE 66 ld h, (hl) 

36AF 6F ld 1,a 

36B0 EB ex de,hl 
@ 2FF7 340F 

36Bl DD 7E 04 ld a, (ix+04) 

36B4 CD 73 36 call 3673 ... 


36B7 DD 77 04 ld (ix+04),a 


@ 33AD 33BD 340C 3447 34FB 


36BA CB 21 sla c 

36BC 30 13 jr nc,36Dl ... 
36BE 2C inc 1 

36BF 20 10 jr nz,36Dl ... 
36C1 24 inch 

36C2 20 OD jr nz,36D1 ... 
36C4 IC inc e 

36C5 20 0A jr nz,36D1 ... 
36C7 14 inc d 

36C8 20 07 jr nz,36D1 ... 
36CA DD 34 04 inc (ix+04) 

36CD 28 IF jr z,36EE set REAL(ix) to: FF,FF,FF,(<b> and 7F),FF 
36CF 16 80 ld d,80 =128. 
36Dl 78 ld a,b 

36D2 F6 7F or 7F =127. 
36D4 A2 and d 


36D5 DD 77 03 1d (1x+03),a 
36D8 DD 73 02 ld (ix+02),e 
36DB DD 74 Ol 1d (ix+0l),h 
36DE DD 75 00 ld (ix+00),1 


36El DD ES push ix 
36E3 EI pop hl 
36E4 37 scf 
36E5 C9 ret 


-— set exp REAL(ixt4) to 0; set carry; hl=ix 
@ 3047 317C 31E2 344D 34AD 


36E6 AF xor a 
36E7 DD 77 04 ld (ix+04),a 
36EA 18 F5 jr 36El ... 
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3731 


@ 309E 3143! 
06 00 ld b,00 


=0. 


set REAL(ix) to: FF,FF,FF,(<b> and 7F),FF 
@ 317F 33C0 344A 34FF 3597! 36CD’ 


78 ld a,b 
F6 7F or 7F 
DD 77 03 ld (ix+03),a 
F6 FF or FF 
DD 77 04 ld (ix+04),a 


DD 77 00 ld (ix+00),a 
DD 77 OL ld (ix+0l),a 


DD 77 02 ld (ix+02),a 
c9 ret 

C7 C7C7C7C7 

INT ARITH, ?? 

@ BDA3! 

44 ld b,h 

cD DI 37 call 37D1 

18 02 jr 3719 


INT ARITH, BC=0002; E=0 
@ BDA6! 


06 00 1d 6,00 
lE 00 ld e,00 
0E 02 ld c,02 
c9 ret 


INT ARITH, unsigned to sign 
@ 373F 3779 BA3E! BDAY! 


7C ld a,h 

B7 or a 

FA 20 37 jp n,3720 
BO or b 

FA D4 37 jp m,3704 
37 scf 

c9 ret 

EE 80 xor 80 

B5 or | 

co ret nz 

78 ld a,b 

37 sc£ 

8F adc a,a 
c9 ret 


INT ARITH ADD; <hl>=<hl>+<de> 


@ BDAC! 

B7 ora 

ED 5A adc hl,de 
37 sc£ 

EO ret po 

F6 FF or FF 

c9 ret 


=127. 


=255. 


COMPLEMENT <hl> if negative 


; z=zero, c=+, m=enezgative 


INT ARITH, COMPLEMENT <hl> 


conplement sign 


clear carry 
hl+de 


=255. 


INT ARITH, SUB; <hl>=<de>-chl> 


@ BDB2! 
EB ex de,hl 
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@ BDAF! 
3731 B7 or a clear carry 
3732 ED 52 sbc hl,de hl-de 
3734 37 sc£ 
3735 EO ret po 
3736 F6 FF or FF =255. 
3738 C9 ret 
— INT ARITH MUL; <hl>=<h1l>#*<de> 
@ BDB5! 
3739 CD 45 37 call 3745 ... 
373C CD 50 37 call 3750 INT ARITH, ?? 
373F D2 15 37 jp nc,3715 INT ARITH, unsigned to sign <b>; z=zero, c=+ 
3742 F6 FF or FF =255. 
3744 C9 ret 
@ 37391 37891 
3745 7C ld a,h 
3746 AA xor d 
3747 47 ld b,a 
3748 EB ex de,hl 
3749 CD DI 37 call 37D1 COMPLEMENT <hl> if negative 
374C EB ex de,hl 
374D cC3 DIL 37 jp 37D1 COMPLEMENT <hl> if negative 


— INT ARITH, ?? 
@ 373C1} BDBE! 


3750 7C ld a,h 

3751 B7 or a 

3752 28 05 jr z,3759 ... 
3754 7A ld a,d 

3755 B7 ora 

3756 37 sc£ 

3757 co ret nz 

3758 EB ex de,hl 

3759 B5 or 1 

375A C8 ret z 

375B 7A ld a,d 

375C B3 or e 

375D 7D ld a,1 

375E 6B ld 1,e 

375F 62 ld h,d 

3760 cC8 ret z 

3761 FE 03 cp 03 =3, 
3763 38 10 jr c,3775 ... 
3765 37 scf 

3766 8F adc a,a 

3767 30 FD jr nc,3766 ... 
3769 29 add hl,hl 

376A D8 ret c 

376B 87 add a,a 

376C 30 02 jr nc,3770 ... 
376E 19 add hl,de 

376F D8 ret c 

3770 FE 80 cp 80 =128. 
3772 20 F5 jr nz,3769 ... 
3774 c9 ret 

3775 FE O1 cp O1 =1. 
3777 C8 ret z 

3778 29 add hl,hl 

3779 c9 ret 
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. INT ARITH, DVD; <hl>=<hl>/<de> 


@ BDB8! 
377A CD 89 37 call 3789 re 
377D DA 15 37 jp c,3715 INT ARITH, unsigned to sign <b>; z=zero, c=+ 
3780 c9 ret 
.—- INT ARITH, MOD; <hl>=eremainder (<hl>/<de>) 
@ BDBB! 
3781 4c ld c,h 
3782 CD 89 37 call 3789 PER 
3785 EB ex de,hl 
3786 4l ld b,c 
3787 18 F4 jr 377D we. 
@ 377A! 37821 
3789 CD 45 37 call 3745 PR 


— INT ARITH, DVDu <hl>=<hl>/<de>; <de>=remainder 
@ 18C3! BDCL! 


378C 7A 1d a,d 

378D B3 or e 

378E C8 ret z 

378F C5 push bc 

3790 EB ex de,hl 

3791 06 01 ld b,01 =. 
3793 7C ld a,h 

3794 B7 ora 

3795 20 09 jr nz,37A9 ... 
3797 7A ld a,d 

3798 BD cp 1 

3799 38 05 jr c,37A0 ... 
379B 65 ld h,1 

379C 2E 00 ld 1,00 =0. 
379E 06 09 ld b,09 =9, 
37A0 7B ld a,e 

37Al 95 sub 1 

37A2 7A ld a,d 

3743 9C sbc a,h 

37A4 38 05 jr c,37AB ... 
37A6 04 inc b 

37A7 29 add hl,hl 

37A8 30 F6 jr nc,37A0 PR 
37AA 3F set 

37AB 3F cc£ 

37AC 78 ld a,b 

37AD 44 ld b,h 

37AE 4D ld c,1 

37AF 21 00 00 ld h1,0000 

37B2 3D dec a 

3753 20 03 jr nz,3788 ... 
3785 18 17 jr 37CE ... 
3787 29 add hl,hl 

3788 F5 push af 

3789 78 ld a,b 

37BA IF rra 

37BB 47 ld b,a 

378C 79 ld a,c 

37BD IF rra 

37BE 4F ld c,a 

37BF 7B ld a,e 

37C0 9 sub c 

37C1 7A ld a,d 

37C2 98 sbc a,b 

37C3 38 05 jr c,37CA ... 
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57 ld d,a 
7B ld a,e 
91 sub c 
5F ld e,a 
2C inc 1 
Fl pop af 
3D dec a 
20 E9I jr nz,378B7 “es 
37 scf 

cl pop be 
c9 ret 


COMPLEMENT <hl> if negative 
@ 3709! 3749! 374D 


7C ld a,h 
B7 ora 
FO ret p 


INT ARITH, COMPLEMENT <hl> 
@ 371B BDC7! 


AF xor a =() 
95 sub 1 <a>=0-<1> 
6F ld 1,a 

Ic sbc a,h 

95 sub 1 

BC cp h 

67 ld h,a 

37 sc£ 

co ret nz 

FE Ol cp Ol =1. 
c9 ret 


INT ARITH, get SGN of <hl>; <a>= FF,00,01 
@ BDCA! 


7C ld a,h 
87 _ add a,a 
IF sbc a,a 
D8 ret c 
B5 or 1 

c8 ret z 
AF xor a 
3C inc a 
c9 ret 


INT ARITH, COMPARE <hl>,<de>; <a>= FF,00,01 
@ BDC4! 


7C ld a,h 

AA xor d 

7C ld a,h 

F2 F4 37 jp p,37F4 ... 
87 add a,a 

9F sbc a,a 

D8 ret c 

3C inc a 

c9 ret 

BA cp d 

20 F9 jr nz,37F0 ... 
7D ld a,l 

93 sub e 

20 F5 jr nz,37F0 ... 
c9 ret 
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37FB 


37FC 


3800 
3818 
3830 
3848 
3860 
3878 
3890 
38A8 
38C0 
38D8 
38F0 
3908 
3920 
3938 
3950 
3968 
3930 
3998 
3980 
39C8 
39E0 
39F8 
3Al0 
3A28 
3A40 
3A58 
3A70 
3A88 
3AAO 
3AB8 
3ADO 
3AE8 
3B00 
3B18 
3B30 
3B48 
3B60 
3878 
3B90 
3BA8 
3BCO 
3BD8 
3BFO 
3C08 
3C20 
3038 
3C50 
3C68 
3C80 
3C98 
3CB0 
3CC8 
3CEO 
3CF8 
3D10 
3D28 
3D40 
3D58 
3D70 
3D88 


3800 


c7 c7c7 ol 


SYMBOL images, 
@ 12E3:! 


FF C3 C3 C3 C3 C3 C3 FF 


03 


03 
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INTEGER 


start of table 


03 03 FF OC 
78 30 00 3C 
06 0C 00 18 
7E 3C 18 00 
c3 66 3C FF 


ARITHMETICS 


TE 


FF CO CO CO CO CO COCO 


18 18 


huslik, 


18 18 18 18 18 FF 
E7 DB DB E7 C3 FF 
30 60 FF 60 30 00 
7E DB 18 18 18 18 
FF DB DB FF 66 3C 
DB DB DF C3 66 3C 
DB DB FB C3 66 3C 
03 FF 03 03 03 00 
66 30 18 00 18 00 
C3 FB DB DB DB FF 


cpc464 inside out 


3DAD 00 00 1E 30 7C 30 1E 
3DB8 00 00 66 66 66 7C 60 
3DDO 03 06 0C 3C 66 3C 60 
3DE8 00 00 66 C3 DB DB 7E 
3E00 18 30 60 CO 80 00 00 
3E1l8 00 00 00 80 CO 60 30 
3E30 00 00 00 81 C3 66 3C 
3E48 18 0C 06 83 C1 60 30 
3E60 03 07 OE 1C 38 70 EO 
3E78 AA 55 AA 55 AA 55 AA 
3E90 00 00 00 00 00 00 FF 
3EA8 FF 7F 3F IF OF 07 03 
3ECO AA 55 AA 55 00 00 00 
3ED8 AO 50 AO 50 AO 50 AO 
3EFO 01 02 05 OA 15 2A 55 
3F08 7E FF 99 FF C3 BD FF 
3F20 6C FE FE FE 7C 38 10 
3F38 00 3C 7E FF FF 7E 3C 
3F50 OF 07 OD 78 CC CC CC 
3F68 18 IC 1E 1B 18 78 F8 
3F80 18 3C 7E FF 18 18 18 
3F98 08 OC OE FF FF OE 0C 
3FBO 80 EO F8 FE F8 EO 80 
3FC8 38 38 10 FE 10 28 44 
3FEO 00 3C 18 3C 3C 3C 18 
3FF8 00 24 66 FF 66 24 00 
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3DDO 
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— himem DEFAULT, SYMBOL AFTER 240. 

ABSO 18 3C 7E FF 18 18 18 18 18 18 18 18 FF 7E 3C 18 10 30 70 FF FF 70 30 10 
AB9S 08 OC OE FF FF OE 0OC 08 00 00 18 3C 7E FF FF 00 00 00 FF FF 7E 3C 18 00 
ABBO 80 EO F& FE F8 EO 80 00 02 OE 3E FE 3E OE 02 00 38 38 92 7C 10 28 28 28 
ABCa 38 38 10 FE 10 28 44 82 38 38 12 7C 90 28 24 22 38 38 90 7C 12 28 48 88 
ABEO 00 3C 18 3C 3C 3C 18 00 3C FF FF 18 OC 18 30 18 18 3C 7E 18 18 7E 3C 18 
ABF8 00 24 66 FF 66 24 00 00 


m. BASIC flag ?? 
@ CO12: CO25< DFOO> F4C4: 
AC0OO 00 


-—---- Indirection: RESET Basic 
@ CO64! 
ACOL CI CICI 


.--- Indirection: ERROR MESSAGE 
@ CAY4! 
AC0O4 CI CI CI 


. Indirection: Undefined token 
@ DDC3! 
AC07 CI CI CI 


.— Indirection: Undefined token after switch 
@ DOA9! 
ACOA CI CI CI 


— Indirection: Syntax error 


@ DO781 
ACOD CI CICI 


----- Indirection: Line Assembling 
@ DEEL! 
AC1O CI CI CI 


.— Indirection: LIST and EDIT 
@ E196! 
AC13 CI CI CI 


_— Indirection: Get a token while assembling 
@ DFS1! 
AC16 CI CICI 


.— Indirection: Token not found on LIST 
@ E30B! 
AC19 CI CICI 


----- flag for AUTO 
@ C099> CODB< 
ACIC 00 


-_-- new line number 
@ COD6< C102> 
ACID FF FF 


.— step for AUTO 
@ COF7< C121> 
ACIF FF FF 


— output channel number 


@ ClAA: C1BA> C267> C290> C29F> C360> C377> 
ACc2l 00 
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— input channel number 
@ C1B0: C1C0> C424> 
AC22 00 


.- POS(printer); # of char’s written this line 
@ C3C0> C3CB> C3DL< C3DF> 
AC23 OF =15. 


a ie WIDTH for Printer 
@ C2B3> C339< C3E6< 
AC24 CB =200. 


-. POS(tape); # of char’s written on this line 
@ C298> C3EC< C3F9: 
AC25 FF 


u flag used by FOR 
@ C5EA< C5FD< C673> C69B> 
AC26 FF 


----- FAC used by FOR 
@ C588: C5E3: 
AC27 00 00 00 00 00 


-— used by FOR ?? 
@ C532< C5D9> C5F1l> 
AC2C A6 00 


.— used by WHILE, WEND 
@ C74D< C78B< C7AB> 
AC2E FF FF 


-—— used by ON 
@ C808< C811> C816< C820> C82D> C838> CB9IE: 
AC30 Al [ERR] 


@ C85A: 
AC3l FF 


@ C8C4> 
AC32 FF FF 


-_- lineff for ON BREAK GOSUB 
@ C84E> C8DA< C909< 
AC34 00 00 


.— save for Basic PC on BREAK (within event block BREAK) 
@ C847< C8B7> 
AC36 11 B5 B5ll 


----- sound chan 1 (bit 0) 
@ CI9OF: CIY5E: 
AC38 FF FF 00 08 79 C8 FD FF FF FF FF FF 


-_- sound chan 2 (bit 1) 
@ C963: 
AC44 FF FF 00 08 79 C8 FD FF FF FF FF FF 


—— sound chan 3 (bit 2) 


@ C968: 
AC50 FF FF 00 08 79 C8 FD FF FF FF FF FF 
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.-- TIMER, block #0 (4 blocks total) 

@ C8FO: C9ICO: ; 
AC5SC FF FF FF FF FF FF FF FF 00 02 79 C8 FD FF FF FF FF FF 
AC6E FF FF FF FF FF FF FF FF 00 04 79 C8 FD FF FF FF OFF FF 
AC80 B8 AD FF FF FF FF FF FF 00 08 79 C8 FD FF FF FF FF FF 
AC92 FF FF FF FF FF FF FF FF 00 10 79 C8 FD FF FF FF OFF FF 


----- EDIT BUFFER 
In der ersten Haelfte des Edit-Buffers erkennt man die im Direktmodus 
eingegebene Kommandozeile, die den gesamten Speicherinhalt ueber die 
Centronics-Schnittstelle auf den anderen Rechner uebertragen hat. 
@ CA3B: CA43: CA4E: DC5D: DC6E: El64: 


ACA4 66 6F 72 20 62 3D 30 20 74 6F 20 36 35 35 33 35 "for b=0 to 65535 
ACB4 20 73 74 65 70 20 31 36 3A 3F 23 38 3A 3F 23 38 * step 16:?4#8:?4#8 
ACC4 2C 68 65 78 24 28 62 2C 34 29 22 20 22 3B 3A 66 *shex$(b,4)" ";:£ 
ACD4 6F 72 20 69 3D 20 30 20 74 6F 20 31 35 3A 61 3D ‘or i= 0 to 15:a= 
ACE4 62 2B 69 3A 67 6F 73 75 62 20 31 36 33 30 3A 3F “bti:gosub 1630: ? 
ACF4 23 38 2C 68 65 78 24 28 78 2C 32 29 22 20 22 3B *#8,hex$(x,2)" "; 
ADO4 3A 6E 65 78 74 3A 6E 65 78 74 00 28 78 29 00 24 "ınextinext.(x).$ 
AD14 3D 78 24 3A 47 4F 54 4F 20 31 34 30 30 00 69 2E *=x$:G0TO 1400.1. 
AD24 62 74 73 2B 31 2C 78 3A 69 2E 63 3D 32 3A 69 70 "bts+l,x:1.c=2:ip 
AD34 3D 49 4E 53 54 52 28 69 70 2B 31 2C 61 24 2C 62 “=INSTR(ip+l,a$,b 
AD44 6C 24 29 3A 49 46 20 69 70 20 54 48 45 4E 20 78 “1$):IF ip THEN x 
AD54 3D 56 41 4C 28 22 26 22 2B 4D 49 44 24 28 61 24 “=VAL ("&4MID$ (a$ 
AD64 2C 69 70 2D 32 2C 69 70 2n 31 29 29 3A 50 4F 4B *,‚ip-2,ip-1)):POK 
AD74 45 20 69 2E 62 74 73 2B 32 2C 78 3A 69 2E 63 3D "E 1.btst2,x:i.c= 
AD84 33 00 70 65 20 65 72 72 6F 72 2C 4E 45 58 54 20 *3.pe error,NEXT 

AD94 6D 69 73 73 69 6E 67 00 00 00 00 00 00 00 00 00 "missingeecsesen 
ADA4 00 00 Ze 


----- ERROR ADDRESS (addr where error occurred) 
@ CA8B< CAD3> CADF> CC3B> 
ADA6 A7 1D 1DA7 


----- program counter on error break 
@ CAIE< CC41l> 
ADA8 CF 1D 1DCF 


— last Basic ERROR number 
@ C080> C0O87< CA85< CACD> CC35< DODD> 
ADAA 03 [CINT] Unexpected RETURN 


----- CONTinue pointer 
@ CBBC< CBC1> 
ADAB 63 09 0963 this count is <PC on STOP>+l 


----- save Basic PC on STOP or END 
@ CBB8< CBCC> 
ADAD 62 09 0962 see above 


----- ON ERROR address 
@ CAB6> CAFC> CBEO< CBF3< 
ADAF 00 00 


--- flag ON ERROR 
@ CABA: CB7E> CBDA< CBFB> CC2B> CC38< 
ADBl 00 


Sn SOUND chan-stat 


@ D2C3< D301: 
ADB2 00 
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ADB3 


AE2B 


SOUND vol-env 
@ D2EC< 
00 


SOUND ton-env 
@ D2F2< 
00 


SOUND period 
@ D2CD< 
00 00 


SOUND noise 
@ D2FA< 
00 


SOUND volume 
@ D2E4< 
00 


SOUND time 
@ D2DA< 
00 00 


envelope table address 
@ D35E: D3A0: 
00 


SOUND envelope address ?? 
@ D3E9: 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


FAC used by [”] (power) 
@ D4FA: 
00 00 00 00 00 


@ D5BE: 

D2 00 03 O1 14 00 00 00 00 00 00 00 00 00 00 00 E9 00 00 00 39 00 00 00 
00 00 DB 00 00 00 56 00 00 00 09 00 4B 00 00 00 00 00 00 00 00 00 FA 00 
00 00 00 00 


@ D5D5< 
2A 00 


@ D5C6: 
48 00 00 00 DI IF 


table of predefined VARTYPES -41 (’A) 

@ D607: (=ADCB+41) 

05 05 05 05 05 05 05 05 02 02 02 02 02 02 05 05 05 05 05 05 05 05 05 05 
05 05 


@ D88B< D8B2> 
00 


pointer to BASIC STACK 
@ D713> D77A> D794> DILF> D92C> DI34< DI6A< 
02 AF AFO2 


pointer to FN subprogram 
@ DAO3< DAOC> DA15< DA28> DA31> DA3C< DA5A> DA74> 
00 00 0000 
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AE2B 


pointer to FN subprogram 
@ D6EO> DA0O0< DA08> DA2B< DA46< 
00 00 0000 


save for semicolon on PRINT 
@ DB8C< DBB3> 
3B =R 


last DATA linef 
@ DD00> DD2B< 
17 23 2317 8983. 


pointer to next data 
@ DCEC> DD12< 
59 23 2359 9049. 


temp storage BASIC STACK pointer 
@ CAA7> DD78< 
FA AE AEFA 


program counter on RUN 
@ C835> C88A> C899< CA9B> CB6E> DD71> DD7C< 
CA 1B 1BCA 


BASIC program counter PC 
@ DD99< DDCE< DDD2> DDD6> DDFI1> 
97 1B 1897 


flag TRON/TROFF ££f/O 
@ DD9D> DDE7< 
00 


flag used assembling a basic line 
@ DEC3< DF4A< DFC3< DFD3< DFFF> EOA6< EOB8> EODI< 
00 


BASIC Program line format 
@ E677< E687> E696< E78F< E882< 
1D <next ADDRESS> 


used by DELETE <line#>, lower addr 
@ E744< E761> 
FF FF 


used by DELETE <line#>, upper addr 
@ E74C< E75D> 
FF FF 


load pointer while LOAD 
@ EA27< EA30> 
FF FF 


LOAD/MERGE flag 
@ EA45< EAB4> 
FF 


LOAD/CHAIN flag 
@ EB95< EBID> EBA8> EBDA> 
00 


used by LOAD, CHAIN 
@ EB98B< EBC7> 
54 3F 3F54 


huslik, cpc464 inside out FOREGROUND, BASIC DATA 
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AETF 


flag file read protected 
@ C079> Cl4F< EBDF< 
00 


number edit buffer (1) 
@ ECF7: ED18: FODD: F107: 
02 FF FF 03 05 FF FF FF FF 31 31 31 31 


number edit buffer (2) 
@ EDDF: (AE57 @ F127:) 
41 45 34 34 00 


number edit buffer (3) 
@ EDCF: 
90 FF FF FF FF FF 20 39 30 39 31 20 30 30 30 30 


number edit buffer (4) 
@ EEAB: 
00 FF FF FF FF FF 


temp store for char 

@ EE9IF< EF22< EF39> EF4l< EF9B> FO36> 
45 ’E 

@ F031> FO7F> 

00 


number edit buffer index 
@ EEBO< EFD2< FOOF> F020< F070> F077< 
63 AE AE63 


address of CALLed routine 
@ FIBF< FIE7I 


"sererecnellll 


"AE4L. 


"zero. 9091 0000 


D 
.o00e 


00 8B 8800 assembler program to read ROM 
ROM selection on CALL 

@ FIC4< 

FF disable upper ROM, disable lower ROM 


save HL on CALL 
@ FIDB< FIEE> 
D6 1B 1BD6 


save SP on CALL 
@ FlC7< FIEA> 


FE BF BFFE stack pointer for the time being 


ZONE for TAB 
@ F1F9< F25F> 
0D =13. 


flag for PRINT USING 
@ F2DB< F312< F37C> F3A7> 
FF 


himem for Basic pointer 


@ C142> DOF5> F4CB< FAFC< F506> F72F> F744> F76B> F7B6< 


FF 8A BAFF last location usable by Basic 


himem for SYMBOL AFTER pointer 


@ F4D1< F652> F659< F696< F6F4< F71lA> F721< F738< F754> 


7F AB AB7F start of user SYMBOL-table -1 


152 FOREGROUND, BASIC DATA 
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----- low memory boundary pointer 
@ C13E> DEBD> F4D5< F502> 
0040 


AE7F 


AE8l 


40 


00 


start of BASIC program -1l pointer 
@ DCE6> E67A> E7A3> E7C1l> E903> E9C1> EIDB> EA9B> EABF> 
@ F4DD< FB65> 
O16F 


6F 


o1 


end of BASIC program pointer 
@ D5Bl> E683< EABB> EAC3< EAD6> EB25> EB2E< EB4E> EB57< 
@ EBD7< EC4F> F52C> F530< F571> F7BB> FB75> 
for the time being 


DB 


40 


40DB 


start of VAR table pointer 


@ D5B4< D5DB> D6C9> D7ES> F533> F537< F549> F574< 


DB 


40 


40DB 


start of DIM’d VAR table pointer 
@ D5B7< D5SEA> D751> D7F8> DIAO> DAA4> F53A> F53E< F54D> 
41E6 


E6 


4 


upper end of DIM’d variables pointer 
@ D5BA< D897> DEDC< DIIC> DIE6> DIF5< E7OF> F541> F545< 
@ F58A< F5E6> F5F8> F628> F75F> FC4D> 
61E2 


E2 


61 


start of 
@ F590: 
00 AA 41 


B7 
94 
7F 
7C 
04 
2F 
00 
00 
00 
00 
00 
20 
00 


08 
00 
90 
00 
00 
90 
00 
00 
00 
00 
00 
00 
00 


BO 
16 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


20 00 00 
00 00 00 


not used 
BF BF FF 
FF FF FF 
FF FF FF FF 
FF FF FF 
FF FF FF FF 
FF FF FF 


BASIC 


10 
08 
AA 
00 
00 
06 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 


so 
FF 
FF 
FF 


FF 


00 
06 
4 
00 
A6 
2F 
IF 
00 
00 
00 
00 
00 
00 
00 
00 
00 


STACK 


ol 
BO 
OF 
00 
00 
90 
2F 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
4 
00 
85 
A6 
00 
88 
00 
00 
00 
00 
20 
00 
20 
00 
00 


far? may 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF FF 
FF FF FF 


BASIC STACK pointer 


@ C632> C72E> C7B8> DD75> F593< F5A0> F5AC< F5B0> 


FA AE 


AEFA 


FF 


low end of used string space pointer 


@ EACB> EBCO> F51F> F55B> F569< F57C> F586< F5CD< 


FF FE 
FF FE 
FF FF 
FF FF 
FF FF 
FF FF 


F5B9< 


F5EA> 


@ F622> F62C> F799> F7B2< FB2E> FBEE> FBFA< FC44< FC65> 
9A 6F 


6F9A 


huslik, cpc464 inside out 


FOREGROUND, BASIC 


EBBB> EC4A> 


EB60> EB80< 


F579< 


F554> 


F5F2< 
FCIC> 


DATA 


F5 


CB 
00 
4 
00 
00 
04 
00 
00 
00 
00 
00 
00 
00 
00 
00 


FF 
FF 
FF 
FF 
FF 


5F> 


05 06 00 
00 94 00 
00 00 FF 
01 00 01 
00 00 ci 
00 00 1A 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 20 00 
00 00 00 


FF FF FF 
FF FF FF 
ER EFF FF 
FF FF FF 
FF FF FF 


153 BOSF 


— upper bound for string space pointer 
@ FACE< F523> F5CA> F786> F7AE< FB36> FB6D> FC4l> 
BOSF FF 8A BAFF 


----- tape buffer flag 
@ F4EB< F63C: F67A: F690< 
BO91 00 


----- pointer to tape buffer, lower end 
@ F64E< F662> F683> 
BO92 FF 7A 7AFF 


----- pointer to tape buffer, upper end 
@ F655< F693> 
BO94 7F AB AB7F 


----- himem for SYMBOL AFTER (SYS) 
@ F6Fl> F71D< 
BO96 FF AB ABFF upmost location for USER SYMBOLS 


-—---- used by GARBAGE COLLECT 
@ F772< F77B> F7C2> 
B0O98 00 10 


----- pointer to start of string stack 
@ FBB6< FBBF> FBD6< FCO8> FC13< FC7E> 
BO9A 9C BO BOIC string stack 


----- string stack 

@ BO9A: FB7F: FBB3: FC7B: 
BO9C OL Al 00 Ol 9F 6F FF FF FF FF FF FF FF FF FF FF OFF FF FF FF FF FF FFFF 
BOBA FF FF FF FF FF FF 


----- temporary string descriptor 
@ F802: FA30< FB4C: FBA2: FBC5: FBDO: FC2l: 
BOBA Ol Al 00 


-—---- used on GARBAGE COLLECT 
@ FC4A< FC56> FCAB< 
BOBD 00 00 


-_--- save on GARBAGE COLLECT 
@ FC50< FCA3> FCAE< 
BOBF 7A 54 547A 


-—--- VARTYPE 
@ D6C0O> D6DO> D720> D79A> D7C7> D801> D84C> D8B5E> D885< DEAB> DEFA> 
@ D950< D995< D9IDO> DA65> FBBC< FD12> FDF8> FElA> FE27: FE6C: FEB3: 
@ FEA5: FEDA: FFl2< FFlD: FF23> FF27> FF2D> FF45> FFAB< FF55> FF67> 
BOCl 02 i 


----- Floating point ACU, FAC 
@ CF20> CF6B> DO26< EO2A> EO6E: F245> F249> F2CF> F38B> F398> F846> 
@ F865> F9Fl> FABF> FB49> FB59> FBC2< FBDE> FCBC< FD93< FE36: FE4O: 
@ FE47> FE4F> FE5C: FE7C< FE96< FEF7< FFOD< FFl6: FF34> FF38: FF4E: 
@ FF63: 

BOC2 00 8B 00 00 88 


-—--- not used so far 

BOC7 FF FF FF FF FF FF FF FF CFFCFFOFFOFFOFF FF FF FFÖOFFOFFOFFOFFOFFOFFOFFOFF 
BODF FF FF FF FF FF FF FF FF CFFCFF FF FF FF FF FF FFÖOFFOFFOFFOFF FF FF FF FF 
BOF7_ FF FF FF FF FF FF FF FFOFF 
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KL INTERRUPT SERVICE QUEUE 


@ 0066: O0F2< OllD> 0127< O61c: 


00 00 0000 


(Bl01) @ 00EC> 
empty 


KL INTERRUPT SERVICE CHAIN 


@ 00F5< O0OFE> 0102< 
00 B2 B200 


SCR FRAME FLY LIST chain 


KL INTERRUPT SERVICE CLASS 
@ 00E2: O0F8: Oll4: 0132: 0142: B950> 


00 


KL save for SP on interrupt service 


@ O1OA< O14E> 
B8 BF BFB8& 


stack pointer for the time being 


KL private interrupt stack 


@ (B107+80) 00Bl: OLOE: 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
2F Ol Cl Fl 00 AF CA AF 


KL TIME byte 0,1 
@ 009E> O0AC< 
01 D3 


KL TIME byte 2,3 
@ 009A> 00A8< 
39 04 


00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
A4 22 31 IF A6 07 EA Bl 


KL TIME byte 4, (overflows after 116 years) 


@ 00A5< 
00 


KL FRAME FLY LIST pointer 


@ O0BF> O16A: 0170: 
FE Bl BLFE 


SCR FRAME FLY LIST 


KL FAST TICKER LIST pointer 


@ 00C7> O17D: 0183: 
00 00 0000 


KL pointer to TICK LIST 


@ 00DC> 0189> OlBF: O1C5: 


00 00 0000 

KL SLOW TICKER COUNT 
@ 00D2: 

ol =1. 


KL SYNC EVENT queue 


empty 


empty 


@ 0257> 026F< 0288: B928> 


00 

KL SYNC EVENT queuetl 
@ 022B< B921> 

00 


KL EVENT CLASS 


@ 0264> 026C< 0277< 0295: 029B: B932> 


00 


huslik, cpc464 inside out 


SYSTEM, KERNEL DATA 


00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
OF 04 76 OD 12 02 02 B2 


155 B196 


----- KL temp store for EXTERNAL COMMAND NAME on search 
@ 0231: 02B2: 0304: 
Bl96 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


----- KL RSX QUEUE 
@ 02A2> 02A6< 02BF> 
BlA6 00 00 


----- KL ROM select address 
@ 0080< 034B> B9D6: BAO8< BA9Y8: BAA2> 
BlA8 00 


----- KL contains c006 = start of ROM 
@ 0060> 0086< 00951! 
BIA9 06 CO c006 entry to upper ROM 


-—---- KL ROM state to call 
@ 005D> 0083< BA28: 
BlAB 00 


-—---- KL used for rst 3, FAR CALL 
@ BIE7 
BlAC 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


---- not used so far 
BlBA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
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----- SCR screen mode 
@ OAEC> 0B28< 
Blc8 02 


— SCR SCREEN START 
@ 0B40< 0B50> 0B84> OBDD> 0OE24> 0E37> 
BlIC9 CO 


----- SCR offset to screen start 
@ 0B00> 
BICA 04 


.—— SCR base of RAM for screen 
@ OAA8< 0B47< 0B53> OB8D> OBE6> OE2C> 
BlcCB CO 


----- SCR PIXELS write, FORCE-mode 0, NEW=INK, (hl)=scr addr, <b>=ink, <c>=mask 
@ OC61< 0C68 
BIcC C3 6B 0C jp 0C6B SCR PIXELS write, FORCE-mode 0, NEW=INK, (hl 


— SCR current pixel bit map 
@ 0B20: OBFl: OC8E> OCA2> OFO8: OF18: OF32: OF66: OF7D: OFAl: 1015: 
BICF 80 40 20 10 08 04 02 O1 


mein SCR time for flashing period 1 
@ OCE4< OCE8> OD8F> 


BlD7 0A =10. * 1/50 second 
— SCR time for flashing period 2 

@ 0D88> 
BlD8 0A =10. * 1/50 second 


----- SCR table of colours, flash period 1 
@ O0CD5: OD8&C: 
BlD9 OC 04 OA 13 OC OB 14 15 OD 06 1E IF 07 12 19 04 17 


-—- SCR table of colours, flash period 2 
@ 0D32: OD8l: 
BIEA OC 04 0A 13 OC OB 14 15 OD 06 1E IF 07 12 19 0A 07 


----- SCR flag which flash period is on (l or 2) 
@ OCDE< 0D76: 0D84> 


BIFB FF 
----- SCR flag 

@ ODO6< 0D7D< 
BIFC 00 -0. 


----- time count for current flash period 
@ 0D5B: 0D70< 
BIFD 07 =]. 


-——---- SCR FRAME FLY LIST 
(0,1)=frame chain; (1,2)=chain; (3)=count; 
(4)= 1B7=Async, 1B0= Near Address; (5,6)=routine addr; (7)=ROM 
@ 0D3C: ODAF: 

BIFE 00 00 00 00 00 81 5B OD 00 


@ OFDC< OFFE> 
B207 00 00 


----- not used so far 
B209 00 00 00 
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 — TXT current text stream selected 
@ 10B3< 10B7> 10EA: 1107> 1110< 
B20C 00 


----- TXT table for text stream parameters (8 times) 
@ 10A5: 
B20D 19 00 00 00 00 18 4F FE 02 FF Ol 00 91 13 00 
B2lC 00 00 00 00 00 18 4F 00 02 FF FF 00 91 13 00 
B22B 00 00 00 00 00 18 4F 00 02 FF FF 00 91 13 00 
B23A 00 00 00 00 00 18 4F 00 02 FF FF 00 91 13 00 
B249 00 00 00 00 00 18 4F 00 02 FF FF 00 91 13 00 
B258 00 00 00 00 00 18 4F 00 02 FF FF 00 91 13 00 
B267 00 00 00 00 00 18 4F 00 02 FF FF 00 91 13 00 
B276 00 00 00 00 00 18 4F 00 02 FF FF 00 91 13 00 


----- TXT CURSOR column/row 
@ 10A8: 1139: 1163> 116E> 117A< 1180> 11AB> 11Bl< 133F< 13Bl> 1546< 
@ 1560> 1577> 

B285 19 00 


----- TXT window flag; O=whole screen 
@ 123E< 125D> 
00 


— TXT row; window left upper corner 
@ 116A: 118A> 1197> 11F3> 122D< 1256> 152A> 1543> 1559> 1570> 
B288 00 


----- TXT column, window left upper corner 
@ 115F: 1190> 119F> 11El> 11E6> 1533> 1593> 
B289 00 


-—---- TXT row, window right bottom corner 
@ 11FB> 1230< 1259> 1549> 155C> 
B28A 18 


----- TXT colum, window right bottom corner 
@ 11DA> 11EE> 1573> 1588> 
B28B 4F 


----- TXT roll count 
@ 1186> 11B6: 
B28C A2 


----- TXT cursor enable flag (user) 
@ 1140< 1263> 1291: 12A2: 
B28D 02 


----- TXT flag VDU enable 
@ 1335> 1456< 
B28E FF 


----- TXT PEN ink 
@ LOCE< 10DE> 126E> 12A9: 12BD> 12C9> 12CF< 1391> 139F> 13C0> 
B28F FF 


----- TXT PAPER ink 
@ 10C8< 11C1> 12AE: 12C3> 13D3> 1566> 157D> 1597> 
B290 00 


.— TXT address of BACK/FOREGROUND routine 


@ 1376> 1383< 1387> 
B291 91 13 1391 FOREGROUND 
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----- TXT flag graphic char write 


@ 13A7< 140D> 


B293 00 


----- TXT first char of user matrix table 
@ 1320< 132A> 


B294 FO 


=240. 


def 


----- TXT flag for user matrix table 
@ 107C< 


B295 FF 


----- TXT start of user matrix table 
@ 1325< 1330> 


B296 80 


AB 


AB80 


ault value 


himem DEFAULT, SYMBOL AFTER 240. 


----- TXT buffer for unpacked char matrix 

@ 134E: 13C3: 13E9: 
B298 30 30 7C 30 30 36 1C 00 00 00 00 00 00 00 00 00 
B2A8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


— TXT control code buffer index 
@ 1415: 1447< 145C< 


B2B8 00 


— TXT control code buffer for up to 9 parameters 
@ 142E> 143F: 
B2B9 OA 00 00 00 00 00 00 00 00 00 


----- control code table; 


@ 1432: 1462: 


B2C3 00 


E2 
34 
9A 
89 
CA 
45 
5l 
D8 
0A 
OF 
14 
19 
40 
30 


14 
13 
12 
12 
0A 
19 
14 
14 
15 
15 
15 
15 
15 
15 
12 
12 


14E2 
1334 
129A 
1289 
OACA 
1945 
1451 
14D8 
150A 
150F 
1514 
1519 
1540 
1530 
12AE 
1249 
154F 
158E 
1584 
156D 
1556 
144B 
14E3 
0C49 
12C9 
1504 
14F8 
14E2 
14E8 
14Fl 
152A 
1538 


l4CB: 


=0. 
=1. 
=0. 
=0. 
=|. 
=|. 
=0. 
=0. 


huslik, cpc464 inside out 


<# of parameters>, <routine address> 


just return 


TXT 
TXT 
TXT 
SCR 


WRITE char <a> to screen 
- CURSOR DISABLE (user) 
CURSOR ENABLE (user) 

SET MODE <a> 


GRA WRITE CHAR <a> at current graphic pos 


TXT 
TXT 
TXT 
TXT 
TXT 
TXT 
TXT 


jus 
TXT 
TXT 
TXT 
TXT 


VDU ENABLE 

ring the bell 

cursor left one step 

cursor right one step 

cursor down one line 

cursor up one line 

CLEAR current WINDOW 

cursor to start of line 

SET PAPER ink <a> 

SET PEN ink <a> 

clear char at cursor position 

clear start of line incl cursor 

clear line from cursor to end 

clear window from start to cursor 

clear window from cursor to end 

VDU DISABLE } 

set write mode 2, O=off, l=on 

ACCESS, set write mode <a> for graph VDU 
INVERSE, swap PEN/PAPER ink 

set matrix for user <symbol>, 8<byte mat 
define window, <left>,<right>,<top>,<bot 
t return on ESC code 

set ink, <PEN>,<colourl>,[<colour2>] 

set border <colour>[<colour>] 

cursor HOME 

cursor LOCATE <column>(de),<line>(de+l) 


SYSTEM, TEXT VDU DATA 159 B323 


----- not used so far 
B323 00 00 00 00 00 


— GRA user origin x 
@ 1604< 1612> 1637> 
B328 00 00 


— GRA user origin y 
@ 1608< 1616> 164E> 
B32A 00 00 


SZI> GRA cursor x 
@ 15F4< 15FC> 1658> 
B32C 00 00 


-—_--- GRA cursor y 
@ 15F8< 1600> 165E> 
B32E 00 00 


-—--- GRA WINDOW WIDTH, xleft 
@ 1666> 16D0> 16DA> 16DE> 1700> 1758< 17A6> 17E2> 
B330 00 00 


— GRA WINDOW WIDTH, xright 
@ 1670> 16C7> 16E8> 16F1l> 170A> 175C< 17AA> 
B332 7F 02 


. GRA WINDOW HEIGHT, ytop 
@ 167A> 169B> 16A4> 16BD> 1720> 178A< 17BC> 17D9> 
B334 C7 00 


-— GRA WINDOW HEIGHT, ybottom 
@ 1683> 168D> 1691> 16B3> 1716> 178E< 17C0> 17D5> 
B336 00 00 


-——-- GRA PEN INK 
@ 17F9< 1804> 181D> 190A> 192F> 19D3> 
B338 FF 


----- GRA PAPER ink 
@ 17EC> 1800< 180A> 19D8> 
B339 00 


----- GRA temp store | 
@ 1898< 18B3< 1911> 1936> 194A: 
B33A 00 00 


-— GRA temp store 2 
@ 18C6< 18D8> 
B33C 00 00 


_ GRA temp store 3 
@ 18C9< 18DC> 
B33E 00 00 


u GRA temp store 4 
@ 18BE< 18CD> 18E1> 
B340 00 00 


— GRA temp store x on draw 
@ 1841< 184E> 1859> 185D< 18A2> 18A6< 18F7> 18FD< 1927> 193A< 
B342 00 00 


B344 160 SYSTEM, GRAPHICS VDU DATA j huslik, cpc464 inside out 


GRA temp store y on draw 


@ 1845< 1860> 1864< 1872> 18A9> 18AF< 1903> 1915< 191A> 1920< 


00 


00 


GRA temp flag 


@ 18BA< 18F1> 


00 


00 
— KM 
FO 
B35C 10 
30 
36 
B38C 31 


KM 
F4 
10 
5F 


KM 


not used so far 


00 00 00 00 


KEY normal entry 
F3 F1 89 86 83 8B 
5B OD 5D 84 FF 5C 
39 6F 69 6C 6B 6D 
35 72 74 67 66 62 
32 FC 71 09 61 FD 


KEY shift entry 

F7 F5 89 86 83 8B 
7B OD 7D 84 FF 60 
29 4F 49 4C 4B 4D 
25 52 54 47 46 42 
22 FC 51 09 41 FD 


KEY control 
FB F9 89 86 
1B 0D ID 84 
FF OF 09 0C 
FF 12 14 07 
7E FC 11 El 


entry 
83 8C 
FF IC 
OB OD 
06 02 
ol FE 


KEY REPEAT MAP 


@ 19EF: 


07 


KM 


03 4B FF 


function 


@ 1A24: 


ol 
ol 
00 
00 
00 
00 
00 
00 
00 
00 


KM 


30 
38 
00 
00 
00 
00 
00 
00 
00 
00 


01 31 
39 
00 
00 
00 
00 
00 
00 
00 
00 


ol 
ol 
00 
00 
00 
00 
00 
00 
00 
00 


32 
2E 
00 
00 
00 
00 
00 
00 
00 
00 


ol 
ol 
00 
00 
00 
00 
00 
00 
00 
00 


expansion string flag 


@ lA4C> 1A6D< 


02 


@ 1AAF< 1ADA: 


00 


@ 1A43: 1A77< 


FF 


’IGNORE 


@ 1A8E< 1B44> 


46 


B4 B446 


huslik, cpc464 inside out 


8A 
FF 
2C 
76 
7A 


8A 
FF 
3C 
56 
5A 


8A 
FF 
FF 
16 
1A 


33 
0D 
00 
00 
00 
00 
00 
00 
00 
00 


KM expansion buffer flag 


F2 
5E 
38 
34 
OB 


F6 
A3 
28 
24 
OB 


FA 
lE 
FF 
FF 
FF 


ol 
05 
00 
00 
00 
00 
00 
00 
00 


EO 


FF 


FF FF FF FF AB 8F 


34 
52 
00 
00 
00 
00 
00 
00 
00 


87 
40 
23 
65 
08 


87 
7C 
55 
45 
08 


87 
00 
15 
05 
FF 


KEY expansion buffer 


ol 
55 
00 
00 
00 
00 
00 
00 
00 


88 
70 
79 
77 
09 


88 
50 
59 
57 
09 


88 
10 
19 
17 
FF 


35 
4E 
00 
00 
00 
00 
00 
00 
00 


and count 


KM KEYBOARD "put back’ character 


85 
3B 
68 
73 
58 


85 
2B 
48 
53 
58 


85 
FF 
08 
13 
FF 


ol 
22 
00 
00 
00 
00 
00 
00 
00 


8 
3A 
6A 
64 
5A 


8l 
2A 
4A 
44 
5A 


8 
FF 
0A 
04 
FF 


36 
0D 
00 
00 
00 
00 
00 
00 
00 


82 
2F 
6E 
63 
FF 


82 
3F 
4E 
43 
FF 


82 
FF 
0E 
03 
FF 


ol 
00 
00 
00 
00 
00 
00 
00 
00 


KM pointer to FUNCTION KEY EXPANSION BUFFER 


37 
00 
00 
00 
00 
00 
00 
00 
00 


DSG. sone Tlonssne 
*leloe\.-0p;:/. 
‘090i11kn,87uyhjn 
"65rtgfbv43ewsdcx 
"12lq.a}z....X2.. 


Lüleseo Vienna 
*Ac}e.N.dH=|P+%?> 
°_JOILKM< (’UYHJN 

* SARTGFBV$FEWSDCK 
*1"|0A}Zu00.XZ.. 


xlYoooneZYonunes 
es staiete Sterne ttere 


[ELEEEEEEEEREIENT 


DES S 
en |eaotsoeonanne 


*.0.1.2.3.4.5.6.7 
8.IeooooRUN"... 


DCEIEIEEEEEEEEN 
ernennen enne 
ÜKEEKEEEUEEEEEEN 
DCKEREEESEREEEN 
DKHERTERTERTEETN 


DEE EEE 


vovvvvvs 


.. 110000000000. 


KM function KEY expansion buffer 


SYSTEM, KEY MANAGER DATA 


161 B4E3 


-—— KM pointer to end of expansion buffer +l 
@ 1A8A< 1B05> 
B4E3 DE BA B4DE KM expansion string flag and count 


— KM expansion buffer pointer 
@ 1AAC< 1B00> 1Bll> 1BIC< 1B22> (@ B4E6) 1B27> 
B4ES 77B4 B477 


.— KM caps lock state 
@ 19EC< 1B8D: 1BA6> 1BB3> 
B4E7 00 


.- KM shift lock state 
@ 1B76: 
B4E8 00 


— KM KEY repeat speed 
@ 1C15> 1C69> 1C6D< 


B4EI 02 =2. * 1/50 second 
— KM KEY startup delay 

@ 1C4F> 
B4EA IE =30. * 1/50 second 


----- KM key state map (marks pressed keys by setting the appropriate bit) 
@ 1BCE: 1BFD: 1CC5: (B4ED) @ 1BC6: ICBE> (B4Fl) @ 1C5C> (BAF3)@ IC2F: 
@ (B4F4) @ 1C62> 

B4EB 00 00 00 00 00 00 00 00 00 00 


— KM KEY change state map 
@ 1BBA: 
BAF5S FF FF FF FF FF FF FF FFOÖOFFFF 


— KM KEY last cycle state map 
@ 1BB7: 1BCB: (@ B50l) 1BCO> 
BAFF 00 00 00 00 00 00 00 00 00 00 


Dam mn, KM time count for repeat speed 
@ 1BFl: 1C09: 1C18< 
B509 05 


@ 1BF6> 1023< 
B50A 00 


@ 19E7< 
B50B 40 


SID KM BREAK ENABLE FLAG 
@ IC7E< 1C84: 1C90: 
B50C FF 


.- KM event block BREAK 
@ 1074: 
B50D 00 00 00 40 5E C4 FD 


@ 1D39: 
B5l4 00 02 00 0 


2 2 00 02 00 02 00 02 00 02 00 02 00 02 00 02 00 02 00 02 
B52C 00 02 00 40 


00 0 
00 02 00 02 00 02 00 02 00 02 00 02 


@ 1CEE: ICFE: 1D26: 
B53C 15 0D 


B53E 162 SYSTEM, KEY MANAGER DATA j huslik, cpc464 inside out 


@ 1DOF: 1D15: 
B53E O1 OD 


@ 1COD> 1DOB: 1D22: 
B540 00 


----- KM translate normal entry, pointer 
@ 1AOl< 1D3E> 1D52> 
B541l 4C B3 B34C KM KEY normal entry 


----- KM translate shift entry, pointer 
@ 19FD< 1D43> 1D57> 


B543 9C B3 B39C KM KEY shift entry 
----- KM translate control entry, pointer 

@ 19F9< 1D48> 1D5C> 
B545 EC B3 B3EC KM KEY control entry 


----- KM repeat key, pointer to table 
@ 19F5< 1C02> 1CA6> 1CAE> 
B547 3C B4 B43C KM KEY REPEAT MAP 


— not used so far 
B549 00 00 00 00 00 00 00 


Die 80 Tasten-Nummern sind normal wie folgt belegt: 


0 Cursor up 27 54 b 

l Cursor right 28 ; SSEV. 

2 Cursor down 2IE: 56 4 

3 Function Key °9 30 / 571083 

4 Function Key °6 3 58 e 

5 Function Key °3 3200 59 w 

6 Function Key °’ENTER 33 9 60 8 

7 Function Key ’. 34 0 61 d 

8 Cursor left sel 62 c 

9 copy 5 ai 63 x 

10 Function Key ’7 37 k 64 1 

ll Function Key ’8 38 m 65 2 

12 Function Key °5 39 „ 66 ESC 

13 Function Key ’l 40 8 67 q 

14 Function Key ’2 4 7 68 TAB 

15 Function Key °0 42 u 69 a 

16 CLR 43 y 70 CAPS LOCK 

Te 4 h Zleez . 

18 ENTER 45 5 72 Joystick 0, up 
1922] 46 n 73 Joystick 0, down 
20 Function Key ’4 47 SPACE 74 Joystick 0, left 
21 SHIFT 48 6 Joystick 1, up 75 Joystick 0, right 
22 \ 49 5 Joystick 1, down 76 Joystick 0, fire 2 
23 CTRL 50 r Joystick 1, left 77 Joystick 0, fire 1 
24.” 5l t Joystick 1, right 78 not used 

25 - 52 g Joystick 1, fire 2 79 DEL 

26 dd 53 £ Joystick 1, fire 1 


huslik, cpc464 inside out SYSTEM, KEY MANAGER DATA 163 B550 


B550 


----- SOUND save for active sounds 
20F5: 


B551 


SOUND flag ?? 
@ 1F05: 20B2: 
00 


@ 1E6D< 1EE6> 20IF: 
00 


SOUND channel bits of active sounds 


0 


@ 1E6A< lECB: 1F6l: 2283: 
0 


SOUND timer count for 1/100 second 


03 


SOUND rendenzvous byte ?? 


@ 1F5B< 1F97: 
00 


SOUND event block 
@ 1E70: 
00 00 00 81 03 IF 0C 


SOUND QUEUE, channel A, (first 


@ (=B51D+3F) 1E9D: 
@ 1E80: 2125: 
00 01 08 


SOUND queue +3 (tone period) 


@ (=B520+3F) 206F: 
00 00 


lEEB: 1F12: 


SOUND queue +5 (noise period) 


@ (=B522+3F) 1F74: 
EC 00 00 00 00 B2 21 


@ (=B539+3F) 208D: 
04 00 00 00 00 5A 00 
00 00 00 00 00 00 00 


SOUND QUEUE, channel 
@ 212D: 2150: 

01 02 10 00 00 EC 00 
00 01 00 01 04 00 00 
00 00 00 00 00 00 00 


SOUND QUEUE, channel 
@ 2135: 2148: 

02 04 20 00 00 EC 00 
00 01 00 01 04 00 00 


ol 


00 
00 


B 


00 
00 


SOUND amplitude envelope 


@ 219A: 2338: 2349: 
00 00 00 00 00 00 00 


@ 1E7D< 2292: 

3F 00 00 00 00 00 00 
00 00 00 00 00 00 00 
00 00 00 00 00 00 00 
00 00 00 00 00 00 00 
00 00 00 00 00 00 00 
00 00 00 00 00 00 00 
00 00 00 00 00 00 00 
00 00 00 00 00 00 00 
00 00 00 00 00 00 00 


164 SYSTEM, SOUND 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


DATA 


B4 


OB 
00 


00 
00 
00 


00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


21 


14 
00 


00 
5A 
00 


00 
5A 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


entry), channels to use 


1F48: 


FF 


00 


21 
00 
00 


21 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


lFAD: 1FD2: 2052: 


00 


00 


00 


00 


B4 
14 
00 


B4 
14 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 


00 


00 


06 
00 


06 
00 


00 


00 


FF 
00 


FF 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


5A 


00 


00 
00 


00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


huslik, 


00 
00 


00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 


00 
00 


00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 


00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 


00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 


ol 


00 


5A 
00 


5A 
00 


00 


00 
00 


00 
00 


cpc464 inside out 


00 00 00 00 00 00 00 


— SOUND tone envelope 


@ 233D: 


B6FA 00 00 


B7BA 00 00 
B7D2 00 00 


00 00 


00 00 


-—---- not used so 


00 00 


00 00 


234E: 


00 00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


huslik, cpc464 inside out 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 


00 00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


SYSTEM, SOUND DATA 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


165 B800 


CAS IN flag; enable prompt message 
@ 238E< 2695> 2760> 
00 


CAS IN flag ?? 
@ 269A< 2705: 279F< 
00 


CAS IN file type on read 
@ 2392: 23FC> 2401: 248B: 2528: 256E> 25A9: 27BF> 
00 


CAS IN buffer pointer (lo) 
@ 24CF> 2530< 257D> 
00 7B 7800 


CAS IN buffer pointer (hi) 
@ 2451> 2456< 24A2> 24A6< 2580< 
CF 81 8ölcF 


CAS IN filename HEADER RECORD up to B846 
@ 25D6> 25El: 25F3: 
44 44 49 53 00 00 00 00 00 00 00 00 00 00 00 00 


CAS IN block number 


DDIScrooccnnnocee 


@ 258A: 

05 =5, 

CAS IN last block flag 

@ 253F> 

FF 

CAS IN file type 

@ 23A6> 

16 =22. Ascii file, version l, not protected 


CAS IN, data length 
@ 243F> 244A> 244E< 249B> 249F< 24BC> 24D6> 259A< 
00 00 0000 


CAS IN, data location 
@ 239E> 24B2< 24B9> 24C1< 24D2> 256B> 
00 83 8300 


CAS IN, first block flag 
@ 2594< 25CA> 
00 


CAS IN, user fields 
@ 23A2> 


BSLF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


B837 


B847 


00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


166 SYSTEM, CASSETTE DATA 


huslik, cpc464 inside out 


----- CAS OUT DIRECT file type on write 
@ 23AB: 2415> 242E: 245F: 24ED: 2667: 
B847 00 


----- CAS OUT DIRECT, pointer to data (lo) 
@ 2504< 251B> 262C> 
B848 00 00 


----- CAS OUT DIRECT, pointer to data (hi) 
@ 247F> 2484< 262F< 
B8S4A 00 00 


— CAS OUT DIRECT filename HEADER RECORD up to B88B 
@ 261E: 2636: 
B8S4cC 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 eorenerenennnnee 


— CAS OUT DIRECT block number 
@ 265B: 
00 =0. 


 — CAS OUT DIRECT, last block flag 
@ 241F: 264D: 
B85D 00 


.- CAS OUT DIRECT, file type 
@ 24F9< 
BS5E 00 


— CAS OUT, len of data, updated while writing 
@ 2469> 2478> 247C< 2507< 2514< 2644> 2658< 
B8SF 00 00 


.— CAS OUT DIRECT, data location 
@ 2632< 
B86l 00 00 


Sure CAS OUT DIRECT, first block flag 
@ 2624: 2660< 
B863 00 


_-- CAS OUT DIRECT, total len of data 
@ 24FC< 
B864 00 00 


----- CAS OUT DIRECT; entry for HEADER 

@ 2500< 
B866 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
B87E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


huslik, cpc464 inside out SYSTEM, CASSETTE DATA 167 B88cC 


B8D2 


B8D3 


B8D5 


B8DC 


CAS OUT filename HEADER RECORD up to B8CB 


@ 2540: 25DE: 25F6: 2692: 


44 44 49 53 00 00 00 00 00 00 00 00 00 00 00 00 


CAS OUT, block number 


04 =4, 
CAS OUT, file type 
@ 258E> 

FF =255. 
16 =22. 


CAS OUT, data length 
@ 2567> 2597> 


CF 06 O6CF 

CAS OUT, data location 

00 83 8300 

CAS OUT, first block flag 

@ 25D0> 

00 

CAS OUT, user fields (logical length) 
00 00 


"DDISecoconecocne 


CAS OUT, user fields (entry addr for machine code program) 


@ 24CA> 


00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


00 00 00 00 00 00 00 00 00 00 00 00 00 00 


@ 240C: 2673: 
00 


@ 2873< 295D: 2973> 
16 


@ 2956< 29B3> 
55 42 


@ 2A08> 2AlB< 
00 


CAS write speed 
@ 238A< 
06 


@ 2A0C> 
53 


@ 28B1< 2990> 29A2< 29A6> 
OF 1D 


not used so far 
00 00 00 00 00 00 00 


168 SYSTEM, CASSETTE DATA 


huslik, cpc464 inside out 


----- EDI cursor on flag . 
@ 2C1E< 2C35> 2C5B< 2C67> 2DCE< 
B8SDC 00 


.- EDI INSERT/OVERWRITE flag 
@ 2AA5< 2BF9> 2BFD< 2C04> 
BSDD 00 


._- EDI COPYCURSOR position column/row 
@ 2C72< 2C76> 2C83> 2C94< 2CAC> 2CC4< 2CD5> 2CFO> 2CFE< 2D11> 2DLA< 
@ 2D36> 

BSDE 12 0D 


-—---- not used so far 
B8SEO 00 00 00 00 


-—---- RANDOM NUMBER byte 0,1 
@ 2F9D< 2FAA: 2FC2> 2FD5< 2FE9> 
BSE4 07 6C 


----- RANDOM NUMBER byte 2,3 
@ 2F97< 2FB8> 2FCD> 2FE2< 2FEC> 
B8SE6 65 89 


-_-- FACl 
@ 3167: 3310: 
BBES 00 00 00 00 00 


.- FAC2 
@ 32BD: 32EA: 331E: 
B8ED 00 00 00 00 00 


-_--- FAC3, 
@ 3203: 3317: 
B8SF2 00 00 00 00 00 


----- flag DEG/RAD 
@ 31AE< 31C3> 3211> 3299> 
B8SF7 00 


.— not used so far 
B8öF8 00 00 00 00 00 00 00 00 


huslik, cpc464 inside out SYSTEM, EDITOR - FAC DATA 169 B9O0O 


— KL current upper ROM enable, <a>=prevoius ROM state 
3900 C3 5E BA jp BA5E 


a KL current upper ROM disable, <a>=prevoius ROM state 
B903 C3 68 BA jp BA68 


men KL lower ROM enable, <a>=prevoius ROM state 
B906 C3 4A BA jp BA4A 


-_ KL lower ROM disable, <a>=prevoius ROM state 
B909 C3 54 BA jp BA54 


— KL ROM RESTORE, <a>=previous ROM state 
B9OC CI 72 BA jp BA72 


see KL SELECT an UPPER ROM <c> 
B9OF C3 7E BA jp BATE 


m ——— KL ask UPPER ROM selection <a> 
B912 C3 A2 BA Jp BAA2 


----- KL ask CLASS <a> VERSION/MARK <hl> of ROM 
B91l5 C3 83 BA jp BA83 


.— KL restore previous ROM selection, <c>=prev. ROM, <b>=prev. state 
B9LBE CI 8C BA jp BASC 


----- KL 1ldir, ROMs disabled 
B91B C3 A6 BA jp BAA6 


----- KL lddr, ROMs disabled 
BILE C3 AC BA jp BAAC 


u. KL POLL SYNCHRONOUS, check for higher priority event 


@ DD7FI 
B921L 3A 94 Bl ld a, (B1l94) KL SYNC EVENT queuetl 
B924 B7 or a 
B925 C8 ret z 
B926 ES push hl 
B927 F3 di 
B928 2A 93 Bl ld h1,(B193) KL SYNC EVENT queue 
B92B 7C ld a,h 
B92C B7 or a 
— KL get ROM address and call 
B92D 28 07 jr z,B936 queue empty, return 
B92F 23 ine hl 
B930 23 inc hl 
B931 23 inc hl 
B932 3A 95 Bl ld a,(B195) KL EVENT CLASS 
B935 BE ; cp (hl) 
B936 EI pop hl 
B937 FB ei 
B938 C9I ret 
— rst 7, INTERRUPT ENTRY 
@ 0038 
B939 F3 di 
BI93A 08 ex af,af” 
B93B 38 33 jr c,B970 ses 
B93D DI exx 
B9I3E 79 ld a,c 
B93F 37 sc£ 
B94O FB ei 
B94L 08 ex af,af” 


B941 170 HIGH KERNEL, interrupt huslik, cpc464 inside out 


B942 
B943 
B944 
B946 
B948 
BI4B 
BI4C 
BI4D 
BI4E 
B950 
B953 
B954 
B956 
B959 
BI5A 
BISC 
B9I5D 
BISF 
B960 
B963 
B964 
B965 
B966 
B968 
B969 
BI6A 
BI6C 
BI6D 
BI6E 
BI6F 


B970 
B971 
B972 
B973 
B975 
B977 
B9I7A 


BITC 
B97D 
BITE 
BITF 
B980 


B982 
B983 
B984 
B985 
B986 
B987 
B988 
B989 
BISA 
BISC 
BIBE 
BISF 


18 


ei 


Bl 


04 


6A 


49 


D1 
49 
3B 
CF 


00 


Bl 


BI 


ol 


00 


di 

push af 
res 2,c 
out (c),c 
call OOBl 
or a 

ex af,af” 
ld c,a 

ld b,7F 
ld a,(B104) 
ora 

jr z,B96A 
jp n,B96A 


exx 
call 010A 
exx 
pop hl 
ld a,c 
and F3 
or h 
ld c,a 
out (c),c 
exx 
pop af 
ei 
ret 


ex af,af” 
pop hl 
push af 
set 2,c 
out (c),c 
call 003B 
jr B94B 


INTERRUPT SERVICE ROUTINE (every 1/300 secon 


VIDEO GATE ARRAY, OUT 
KL INTERRUPT SERVICE CLASS 


it’s dormant 
it’s disabled 


=12. 


perform asyncronous event(s) 


=243. 


EXTERNAL INTERRUPT 


= jp(hl), low ROM or RAM, bit l4=lower, 15=upper ROM disabled 


@ 0008 


F3 
E5 
D9 
Dl 
18 


06 


di 

push hl 
exx 

pop de 
jr B988 


rst l <addr>, LOW JUMP, bit 14=lower, 15=upper ROM disabled 
@ 0008 


F3 
D9 
El 
5E 
23 
56 
08 
7A 
CB 
CB 
07 
07 


BA 
B2 


di 

exx 

pop hl 

ld e,(hl) 
inc hl 

ld d,(hl) 
ex af,af” 
ld a,d 
res 7,d 
res 6,d 
rlca 
rlca 
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<de> = <address argument> 


remove ROM select bits from address 
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----- no change of ROM select, 1B6=lower, 1B7=upper ROM disabled 


B990 07 rlca 

B99IL 07 rlca 

B992 AI xor c 

B993 E6 OC and 0C 

B995 AI xor c 

B9I6 C5 push bc 

B997 CD AB BI call B9A8 select ROM and jump to routine 

BIIA F3 di 

B9I9B DI exx 

BIIC 08 ex af,af” 

B99D 79 ld a,c 

BIIE CI pop bc 

----- restore previous ROM state 
@ BAOE’ 

BIIF E6 03 and 03 

B9AL CB 89 res l,c 

B9A3 CB 8l res 0,c 

BYA5S Bl or2e 

B9A6 18 Ol jr BIAI 

----- select ROM and jump to routine 
@ B9971 BIFY! 

B9AB D5 push de this is the called <addr> 

BIAI AF ld c,a 

BI9AA ED 49 out (c),c select the ROM 

BYAC B7 or a 

BIAD 08 ex af,af’ 

BIAE DI exx 

BIAF FB ei 

B9BO CI ret “return” to the called <addr> 

— jp(hl), FAR CALL, (hl)=addr, <c>=ROM select 
@ 001B 

BIBlL F3 di 

B9B2 08 ex af,af” 

B9B3 79 ld a,c 

BI9B4 ES push hl 

B9B5 DI exx 

B9B6 DI pop de 

B9B7 18 15 jr BICE 

— KL FAR ICALL, jp(hl=param), <addr><ROM state> 
@ 0023 0220 

BIBI F3 di 

BIBA E5 push hl 

B9BB DI exx 

BIBC EL pop hl 

B9BD 18 09 jr B9C8 

----- rst 3, FAR CALL (hl=param), <addr>,<ROM state> 
@ 0018 

BIBF F3 di 

B9ICO DI exx 

BIC1 EL pop hl 

B9C2 5E ld e,(hl) 

B9C3 23 inc hl 

BIC4 56 ld d,(hl) 

BIC5 23 inc hl 

B9IC6 ES push hl 

B9C7 EB ex de,hl 

B9C8 5E ld e,(hl) 

B9C9I 23 inc hl 

BICA 56 ld d,(hl) 
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BICB 23 inc hl 


BICC 08 ex af,af” 
BICD T7E ld a,(hl) 
BICE FE FC cp FC is another ROM selected? 
B9DO 30 BE jr nc,B990 no change nf ROM select, 1B6=lower, 1B7=uppe 
@ BA2C’ 
B9D2 06 DF ld b,DF Expansion ROM select 
B9D4 ED 79 out (c),a 
B9SD6 21 AB Bl ld h1,B1A8 KL ROM select address 
B9IDI 46 ld b, (hl) 
BISDA 77 ld (hl),a 
B9DB C5 push bc 
BISDC FD ES push iy 
BIDE 3D dec a 
B9SDF FE 07 cp 07 
BIEL 30 OF jr nc,B9F2 ... 
BIE3 87 add a,a 
BIEL C6 AC add a,AC 
BIE6 6F ld 1,a 
BIE7 CE BL adc a,Bl <hl>=<hl>+2%*%<a>+BlAC 
BIEI 95 sub 1 
BIEA 67 ld h,a 
BIEB 7E ld a,(hl) 
BIEC 23 inc hl 
BIED 66 ld h, (hl) 
BIEE 6F ld 1,a 
BIEF ES push hl 
BIFO FD EL pop iy 
@ BIEL” 
BIF2 06 7F ld b,7F VIDEO GATE ARRAY, OUT 
BIF4 79 ld a,c 
B9F5 CB D7 set 2,a 
BIF7 CB 9F res 3,a 
B9F9 CD AB B9 call B9IA8 select ROM and jump to routine 
BIFC FD El pop iy j 
BIFE F3 di 
BIFF DI exx 
BAOO 08 ex af,af” 
BAOL 59 ld e,c 
BAO2 CI pop bc 
BA0O3 78 ld a,b 
BAO4 06 DF ld b,DF Expansion ROM select 
BAO6 ED 79 out (c),a 
BA0O8 32 A8 Bl ld (BlA8),a KL ROM select address 
BAOB 06 7F ld b,7F VIDEO GATE ARRAY, OUT 
BAOD 7B ld a,e 
BAOE 18 8F jr BIIF restore previous ROM state 
— KL jp(hl) to a sideways ROM 
@ 0013 
BAlO F3 di 
BAll ES push hl 
BAl2 DI exx 
BAl3 DI pop de 
BAl4 18 08 jr BAIE 
.— rst 2, call to a sideways ROM <addr>, bit 14/15 select the ROM 
@ 0010 
BAl6 F3 di 
BAl7 DI exx 
BAlB EI pop hl 
BAl9 5E ld e,(hl) 
BAlA 23 inc hl 


huslik, cpc464 inside out HIGH KERNEL, Sideways Calls 173  BAIA 


56 ld d,(hl) 


23 inc hl 

E5 push hl 

08 ex af,af” 

7A ld a,d 

CB FA set 7,d 

cB F2 set 6,d 

E6 CO and CO 

07 rlca 

07 rlca 

21 AB Bl ld h1,BlAB KL ROM state to call 
86 add a,(hl) 

18 A4 jr B9D2 ... 

rst 5 <addr>, FIRM JUMP, jump to lower ROM 
@ 0028 

F3 di 

DI exxX 

El pop hl 

5E ld e,(hl) 

23 inc hl 

56 ld d,(h1l) 

CB 91 res 2,c 

ED 49 out (c),c 

ED 53 3F BA ld (BA3F),de adjust call address 
D9 exx 

FB ei 

CD 15 37 call 3715 INT ARITH, unsigned to sign <b>; z=zero, c=+ 
F3 di 

DI exx 

CB DI set 2,c 

ED 49 out (c),c 

D9 exx 

FB ei 

c9 ret 

KL lower ROM enable, <a>=prevoius ROM state 
@ B906 

F3 di 

D9 exxX 

79 ld a,c 

cB 91 res 2,c 

ED 49 out (c),c 

D9 exx 

FB ei 

c9 ret 


KL lower ROM disable, <a>=prevoius ROM state 


@ B909 

F3 di 

D9 exx 

79 ld a,c 

CB DI set 2,c 
49 out (c),c 
DI exx 

FB ei 

c9 ret 


KL current upper ROM enable, <a>=prevoius ROM state 
@ 05F9! B900 BATE! 


F3 di 

DI exx 

79 ld a,c 
CB 99 res 3,c 
ED 49 out (c),c 
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BA65 DI exx 


BA66 FB ei 

BA67 C9 ret 

----- KL current upper ROM disable, <a>=prevoius ROM state 
@ B903 

BA68 F3 di 

BA69 DI exx 

BA6A 79 ld a,c 

BA6B CB DI set 3,c 

BA6D ED 49 out (c),c 

BA6F DI exx 

BA7O FB ei 

BA7l CI ret 

----- KL ROM RESTORE, <a>=previous ROM state 
@ B9OC BASE! 

BA72 F3 di 

BA73 DI exx 

BA74 AI xor c 

BA75 E6 0C and 0C 

BA77 A9 xor c 

BA78 4F ld c,a 

BA79 ED 49 out (c),c 

BA7B DI exx 

BA7C FB ei 

BA7TD CI ret 


----- KL SELECT an UPPER ROM <c> 

@ O2FF! 0336! B9OF BAB3! 
BATE CD 5E BA call BASE KL current upper ROM enable, <a>=prevoius RO 
BA8l 18 OF jr BA92 


----- KL ask CLASS <a> VERSION/MARK <hl> of ROM 
@ 02DB! B915 


BA83 CD 7E BA call BA7E KL SELECT an UPPER ROM <c> 
BA86 3A 00 CO ld a,(C000) on board ROM 
BA8B9 2A 01 CO ld h1,(C001) ROM MARK#, VERSIONf, REVISION LEVEL 


----- KL restore previous ROM selection, <c>=prev. ROM, <b>=prev. state 
@ 0326 0360 B9I18 


BA8C F5 push af 
BA8D 78 ld a,b 
BA8E CD 72 BA call BA72 KL ROM RESTORE, <a>=previous ROM state 
BA9L Fl pop af 
BA92 E5 push hl 
BA93 F3 di 
BA94 06 DF ld b,DF Expansion ROM select 
BA96 ED 49 out (c),c 
BA98 21 AB Bl ld h1,B1A8 KL ROM select address 
BA9B 46 ld b,(h1l) 
BAIC 71 ld (hl),c 
BAID 48 ld c,b 
BAIE 47 ld b,a 
BA9F FB ei 
BAAO EI pop hl 
BAAl C9 ret 
-—---- KL ask UPPER ROM selection <a> 
@ B912 
BAA2 3A AB Bl ld a,(B1A8) KL ROM select address 
BAA5 C9 ret 
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----- KL ldir, ROMs disabled 
@ 02B8! 24DE B9II1B 


disable ROMs, ldir or lddr, ROMs restore 


disable ROMs, ldir or lddr, ROMs restore 


BAA6 CD B2 BA call BAB2 

BAA9 ED BO ldir 

BAAB C9 ret 

----- KL lddr, ROMs disabled 
@ 24E7 BIIE 

BAAC CD B2 BA call BAB2 

BAAF ED B8 lddr 

BABl C9 ret 

.— disable ROMs, ldir or lddr, ROMs restore 
@ BAA6! BAAC! 

BAB2 F3 di 

BAB3 D9I exx ’ 

BAB4 EI pop hl (hl)=either lddr or ldir 

BAB5S C5 push bc 

BAB6 CB DI set 2,c 

BAB8 CB DI set 3,c 

BABA ED 49 out (c),c 

BABC CD C7 BA call BAC7 perform either l1dir or lddr 

BABF F3 di 

BACO D9I exx 

BACI CI pop bc 

BAC2 ED 49 out (c),c 

BAC4 DI exx 

BAC5 FB ei 

BAC6 C9I ret 

----- perform either ldir or lddr 
@ BABC! 

BAC7 E5 push hl 

BAC8 DI exx 

BAC9 FB ei 

BACA C9 ret 

----- rst 4, RAM LAM, 1d a,(hl) with ROMs disabled 
@ 0020 

BACB F3 di 

BACC DI exx 

BACD 59 ld e,c 

BACE CB D3 set 2,e 

BADO CB DB set 3,e 

BAD2 ED 59 out (c),e 

BAD4 DI exx 

BAD5 7E ld a,(hl) 

BAD6 D9I exx 

BAD7 ED 49 out (c),c 

BAD9I DI exx 

BADA FB ei 

BADB C9I ret 
@ 28CC! 28F7! 

BADC DI exx 

BADD 79 ld a,c 

BADE F6 0C or 0C 

BAEO ED 79 out (c),a 

BAE2 DD 7E 00 ld a, (ix+00) 

BAE5 ED 49 out (c),c 

BAE7 D9I exx 

BAE8 CI ret 
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BAE9 


BBOO 


BB30 


BB33 


FF FF FF FF FF FF FF FFOCFFOFFOFFOFFOFFFFOFFFFÖOFFOFFOFFOFFOFFOFFOFF 


KM INITIALISE key manager 
CF EO 99 rst 1,99E0 


KM RESET key manager 
CF 1E 9A rst 1,9AlE 


KM WAIT CHAR from keyboard =<a> 
@ Cc433! 
CF 3C 9A rst 1,9A3C 


KM READ CHAR from keyboard =<a> 
@ c42C! C439 CA3IC! CA5FI 
CF 42 9A rst 1,9442 


KM RETURN CHAR <a> to put back” location 
@ C480! 
CF 77 9A rst 1,9477 


KM SET EXPANSION string 
@ D44F! 
CF BD 9A rst 1,9ABD 


KM GET EXPANSION string, <a>=exp. token, <l>=char#, =<a>char, =carry 
CF 2E 9B rst 1,9B2E 


KM allocate EXP BUFFER (de), <hl>=len 
CF 7B 9A rst 1,9A7B 


KM WAIT for KEY 
CF 56 9B rst 1,9B56 


KM READ a KEY 
CF 5C 9B rst 1,9B5C 


KM TEST if KEY #<a> is pressed 
@ D415! 
CF BD 9C rst 1,9CBD 


KM GET STATE <h>=caps, <l>=shift lock 
CF B3 9B  rst 1,9BB3 


KM GET JOYSTICKs 1=<h>, 2=<1> 
@ D4231! 
CF 5C IC  rst 1,9C5C 


KM SET TRANSLATE entry, <a>=key#, <b>=new translation 
@ D475: 
CF 52 9D rst 1,9052 


KM GET TRANSLATE, in: <a>=key#, out: <a>=translation 
CF 3E 9D rst 1,9D3E 


KM SET SHIFT entry, <a>=keyf, <b>=new translation 
@ DATB: 
CF 57 9D rst 1,9057 


KM GET SHIFT entry, in: <a>=keyf, out: <a>=translation 
CF 43 9D rst 1,9043 


KM SET CONTROL entry, <a>=key#, <b>=new translation 
@ D481: 
CF 5C 9D rst 1,9D5C 
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BB33 


----- KM GET CONTROL entry, in: <a>=keyf, out: <a>=translation 
BB36 CF 48 9D rst 1,9D48 


— KM SET REPEAT key# <a>, <b>=0 = not 
@ D470! 
BB39 CF AB 9C rst 1,9CAB 


----- KM GET REPEAT key# <a>, nz if repeat 
BB3C CF A6 9C rst 1,9CA6 


 — KM SET DELAY key, <h>=start, <l>=rep. speed 
@ D496: 
BB3F CF 6D 9C rst 1,9C6D 


-—--- KM GET DELAY key, <h>=start, <l>=rep. speed 
BB42 CF 69 9C rst 1,9069 


----- KM ARM BREAK, (de)=routine, <c>=ROM select 
@ C4591 
BB45 CF 71 9C rst 1,9C71 


-——-- KM DISARM BREAK 
@ C0731 C900! 
BB48 CF 82 9C rst 1,9082 


----- KM BREAK EVENT 
BB4B CF 90 9C rst 1,9C90 
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BB60 


BB63 


BB66 


.— 


BB69 


BB6C 


BB75 


BB78 


TXT INITIALISE text VDU 
CF 78 90 rst 1,9078 


TXT RESET text VDU 
CF 88 90 rst 1,9088 


TXT VDU ENABLE 
@ c38A! 
CF 51 94 rst 1,9451 


TXT VDU DISABLE 
CF 4B 94 rest 1,944B 


TXT OUTPUT char or ctl code <a> to VDU 
@ c399 
CF 00 94 rst 1,9400 


TXT WRITE char <a> to screen 
CF 34 93 rst 1,9334 


TXT READ char from screen <hl>=col/row, =<a>, =carry 
CF AB 93 rst 1,93AB 


TXT SET GRAPHIC char write, <a>=0=OFF, FF=ON 
@ C324 C3871! 
CF A7 93 rst 1,9347 


TXT SET WINDOW <hl>=left top, <de>=right bottom corner 
@ C2F8! 
CF 0C 92 rst 1,920C 


TXT GET WINDOW size, <hl>=left top, <de>=right bottom corner 
@ C2A9! 
CF 56 92 rst 1,9256 


TXT CLEAR current WINDOW 
CF 40 95 rst 1,9540 


TXT SET cursor to COLUMN <a> 
CF 5E 91 rst 1,915E 


TXT SET cursor to ROW <a> 
CF 69 91 rst 1,9169 


TXT SET CURSOR, <hl>=column/row 
@ c2nc! 
CF 74 9 rst 1,9174 


TXT GET CURSOR position (hl), roll count <a> 
@ C26E! C39E! 
CF 80 91 rst 1,9180 


TXT CURSOR ENABLE (user) 
CF 89 92 rst 1,9289 


TXT CURSOR DISABLE (user) 
CF 9A 92 rst 1,929A 


TXT CURSOR ON 
@ C430! 
CF 79 92 rst 1,9279 
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BB8l 


.—-. 


BB8D 


BBA5 


BBA8 


BBAB 


BBAE 


BBBl 


BBB4 


BBB7 


BBB7 


TXT CURSOR OFF 
@ C436 
CF 81 92 rst 1,9281 


TXT VALIDATE cursor position <hl> column/row 
@ C271! C3All 
CF CE 91 rst 1,91CE 


TXT PLACE/REMOVE CURSOR on screen 
CF 68 92 rst 1,9268 


TXT PLACE/REMOVE CURSOR on screen 
CF 68 92 rst 1,9268 


TXT SET PEN ink <a> 
@ C215: 
CF A9 92 rst 1,9249 


TXT GET PEN ink, =<a> 
CF BD 92 rst 1,92BD 


TXT SET PAPER ink <a> 
@ C20D: 
CF AE 92 rst 1,92AE 


TXT GET PAPER ink =<a> 
CF C3 92 rst 1,9203 


TXT INVERSE, swap PEN/PAPER ink 
CF C9 92 rst 1,92C9 


TXT SET BACKground being written <a> 
CF 7A 93 rst 1,937A 


TXT GET if BACKground is being written <a> 
CF 87 93 rst 1,9387 


TXT GET char <a> MATRIX, (hl)=address, carry=user 
@ F6BC! 
CF D3 92 rst 1,92D3 


TXT SET char MATRIX, <a>=char, (hl)=matrix to set 
CF Fl 92 rst 1,92Fl 


TXT SET user MATRIX TABLE addr (de), (hl)=new table 
@ F6FD! F726 
CF FD 92 rst 1,92FD 


TXT GET user MATRIX TABLE (hl)=addr, <a>=first char in table 
@ F6DD! 
CF 2A 93 rst 1,932A 


TXT GET CONTROL code table addr 
CF CB 94 rst 1,94CB 


TXT STREAM <a> SELECT, <a>=old text stream 
@ C1A61! 
CF ES 90 rst 1,90E8 


TXT SWAP STREAMS <b> with <c> 
@ c30D! 
CF 07 91 rst 1,9107 
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GRA INITIALISE graphics VDU 
CF BO 95 rst 1,95B0 


GRA: RESET 
CF DF 95  rst 1,95DF 


GRA MOVE ABSOLUTE, <de>=x, <hl>=y 
@ C505: 
CF F4 95 rst 1,95F4 


GRA MOVE RELATIVE, <de>=xd, <hl>=yd 
@ C50A: 
CF Fl 95 rst 1,95Fl 


GRA ASK CURSOR, <de>=x, <hl>=y 
@ D108! DIOF! 
CF FC 95 rst 1,95FC 


GRA SET ORIGIN, <de>=x, <hl>=y 
@ C4BO! 
CF 04 96 rst 1,9604 


GRA GET ORIGIN <de>=x, <hl>=y of user cnordinates 
CF 12 96 rst 1,9612 


GRA set WINDOW width, <de>=xl, <hl>=x2 
@ CAAAl 
CF 34 97 rst 1,9734 


GRA set WINDOW height, <de>=yl, <hl>=y2 
@ CAA4! 
CF 79 97 rst 1,9779 


GRA get WINDOW width, <de>=xleft, <hl>=xright> 
CF A6 97 rst 1,97A6 


GRA GET WINDOW HEIGHT, <de>=ytop, <hl>=ybottom 
CF BC 97_ rst 1,97BC 


GRA CLEAR GRAPHIC WINDOW 
@ c4cll 
CF C5 97 rst 1,97C5 


GRA SET PEN, <a>=ink 
@ CAEA! 
CF F6 97 rst 1,97F6 


GRA GET PEN, <a>=ink 
CF 04 98 rst 1,9804 


GRA SET PAPER, <a>=ink 
@ C4BD! 
CF FD 97_ rst 1,97FD 


GRA GET PAPER, <a>=ink 
CF 0A 98 rst 1,980A 


GRA PLOT ABSOLUTE, <de>=x, <hl>=y 
@ C4D0: u 
CF 13 98 rst 1,9813 


GRA PLOT RELATIVE, <de>=xd, <hl>=yd 


@ C4D5: 
CF 10 98 rst 1,9810 
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BBFO 


BBFF 


GRA TEST ABSOLUTE, <de>=x, <hl>=y 
@ C4E9: 
CF 27 98 rst 1,9827 


GRA TEST RELATIVE, <de>=xd, <hl>=yd 
@ C4EE: 
CF 24 98 rst 1,9824 


GRA DRAW LINE ABSOLUTE, <de>=x, <hl>=y 
@ C4c6: 
CF 39 98 rst 1,9839 


GRA DRAW LINE RELATIVE, <de>=xd, <hl>=yd 
@ CACB: 
CF 36 98 rst 1,9836 


GRA WRITE CHAR <a> at current graphic pos 
CF 45 99 rst 1,9945 
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BBFF 


SCR INITIALISE screen pack 
CF AO 8A rst 1,8AA0 


SCR RESET screen pack 
CF Bl 8A rst 1,8ABl 


SCR SET OFFSET (hl) of screen start 
CF 3C 8B rst 1,8B3C 


SCR SET BASE of screen RAM <a> 
CF 45 8B rst 1,8845 


SCR GET LOCATION of screen =<a>offset, =(hl)offset 
CF 50 8B rst 1,8B50 


SCR SET MODE <a> 
@ c2551! 
CF CA 8A rst 1,8ACA 


SCR GET MODE <a>, cp Ol 
CF EC 8A rst 1,8AEC 


SCR CLEAR screen to ink 0 
CF F7 8A rst 1,8AF7 


SCR CHAR LIMITS, <b>=colums, <c>=lines 
CF 57 8B rst 1,8857 


SCR CHAR POSITION conv phys coord to screen pos 
CF 64 8B rst 1,8B64 


SCR DOT POSITION convert base coordinates to screen position 
CF A9 8B rst 1,8BA9 


SCR NEXT BYTE, step screen addr (hl) right one byte 
CF F9 88 rst 1,8BF9 


SCR PREV BYTE, step screen addr (hl) left one byte 
CF 05 8C rst 1,8C05 


SCR NEXT LINE, step screen addr (hl) dom one line 
CF 13 8C rst 1,8013 


SCR PREV LINE, step screen addr (hl) up one line 
CF 2D 8C rst 1,8C2D 


SCR INK ENCODE, in: <a>=ink#, out: <a>=encoded ink 
CF 86 8C rst 1,8C86 


SCR INK DECODE, in: <a>=encoded ink; out: <a>=ink# 


CF AO 8C rst 1,8CA0 


SCR SET colour of INK, <a>=ink#, <b,c>=colours 
@ c237! 
CF EC 8C rst 1,8CEC 


SCR GET colour(s) of INK, =<b,c> 
CF 14 8D rst 1,8014 


SCR SET BORDER, <b,c>=colours 
@ Cc225! 
CF Fl 8C rst 1,8CFl 
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BC38 


BC3B 


BC3E 


BC4Al 


BC65 


SCR GET colour of BORDER 
CF 19 8D rst 1,8D19 


SCR SET FLASHING PERIODS <h,1> 
@ D49D: 
CF E4 86  rst 1,8CE4 


SCR GET FLASHING PERIODS <h,1> 
CF Eß8 8C  rst 1,8CE8 


SCR FILL BOX, <a>=ink, <hl,de>=corners 
CF B3 8D rst 1,8DB3 


SCR FLOOD BOX, <a>=ink, <hl>=left top, <de>=width/height 


CF B7 8D rst 1,8DB7 


SCR CHAR INVERT, (hl)=char pos, <b,c>=inks 
CF DF 8D rst 1,8DDF 


SCR HARDWARE SCROLL, <a>=ink for new line, <b>=O=down, else up 


CF FA 8D rst 1,8DFA 


SCR WINDOW SCROLL up or down 
CF 3E 8E rst 1,8E3E 


SCR UNPACK, (hl)=matrix address, (de)=destination 


CF F3 8E rst 1,8EF3 


SCR REPACK char matrix to standard 
CF 49 8F rst 1,8F49 


SCR ACCESS, set write mode for graph VDU 
CF 49 8C rst 1,8049 


SCR PIXELS write, ignoring write mode 
CF 6B 8C rst 1,8C6B 


SCR HORIZONTAL line plot, <a>=ink, de=xbase, bc=xend, hl=ybase 


CF C4 8F rst 1,8FC4 


SCR VERTICAL line plot, <a>=ink, de=xbase, bc=yend, hl=ybase 


CF 2F 90 rst 1,902F 
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CAS INITIALISE cassette manager 
CF 70 A3 rst 1,A370 


CAS SET write SPEED, <hl>=len of half a zero bit, <a>=precompensation 


@ D4D6! 
CF IF A3 rst 1,A37F 


CAS NOISY, enable or disable prompt messages <a> 
@ D295 
CF 8E A3 rst 1,A38E 


CAS START MOTOR 
CF 4B AA rst 1,AA4B 


CAS STOP MOTOR 
CF 4F AA rst 1,AA4F 


CAS RESTORE MOTOR to previous state <a> 
CF 51 AA rst 1,AA51 


CAS IN OPEN, (hl)=filename, <b>=l1en, (de)=2kbuff 
@ D270 
CF 92 A3 rst 1,4392 


CAS IN CLOSE 
@ D299! EA37I 
CF FC A3 rst 1,A3FC 


CAS IN ABANDON 
@ D2BO! 
CF O1 A4 rst 1,A401 


CAS IN CHAR from input file 
@ C429 CA56! EB77! EB84! EB88! 
CF 35 A4 rst 1,A435 


CAS IN DIRECT, read input file into store (hl) 
@ EA33! EBE3! 
CF AB A4 rst 1,A4AB 


CAS RETURN, put last char read back 
@ c4l4 
CF 9A A4 rst 1,A49A 


CAS TEST EOF 
@ cal8! 
CF 96 A4 rst 1,A496 


CAS OUT OPEN, (hl)=filename, <b>=len, (de)=2kbuff 
@ D25C 


CF AB A3 rst 1,A3AB 


CAS OUT CLOSE 
@ D2A2I 
CF 15 A4 rst 1,A415 


CAS OUT ABANDON 


@ D2B6! 
CF 2E A4 rst 1,A42E 


CAS OUT CHAR <a> to output file 


@ c40D! 
CF 5B A4 rst 1,A45B 
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=---- CAS OUT DIRECT, (hl)=data, <de>=len, <a>=type, (bc)=entry addr header 
@ EC7FI 
BC98 CF EA A4 rst 1,A4EA 


----- CAS CATALOG, (de)= 2k buffer to use 
@ D24EI 
BC9B CF 28 A5 rst 1,A528 


=---- CAS WRITE a record, (hl)=data, <de>=len, <a>=sync char 
BCI9E CF 3F A8 rst 1,A83F 


-_- CAS READ a record, (hl)=data, <de>=len, <a>=expected sync 
BCAl CF 36 A8_ rst 1,4836 


----- CAS CHECK tape with store, (hl)=data, <de>=len, <a>=sync char 
BCA4 CF 51 A8 rst 1,4851 
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SOUND RESET 


@ C8ED! 

CF 68 9E rst 1,9E68 

SOUND QUEUE, add a sound, (hl)=sound program 
@ D304! 

CF 9F 9F rst 1,9F9F 

SOUND CHECK for space in <a>, <a>=status 

@ D33B! 

CF 6C AO rst 1,A06C 

SOUND ARM EVENT, <a>=channels, (hl)=event block 
@ c9581! 

CF 89 AO rst 1,A089 

SOUND RELEASE, <a>=channel(s) 

@ D324! 

CF 4A AO rst 1,A0O4A 


SOUND HOLD, stop all sounds 
@ C070! C46F! 
CF CB 9E rst 1,9ECB 


SOUND CONTINUE stopped sounds 
@ C484! CBD2! 
CF E6 9E rst 1,9EE6 


SOUND set AMPL ENVELOPE, 
@ D362! 
CF 38 A3 rst 1,4338 
SOUND set TONE ENVELOPE, 
@ D3A9! 
CF 3D A3 rst 1,A33D 
SOUND get AMPL ENV ADDR, 
CF 49 A3 rst 1,4349 


SOUND get TONE ENV ADDR, 
CF 4E A3 rst 1,A34E 


huslik, cpc464 inside out 


<a>=envi, 


<a>=envt, 


<a>=env#, (hl)=data 


<a>=env#, (hl)=data 


(hl)=addr 


(hl)=addr 
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BCFE 


KL CHOKE OFF, reset the kernel 
CF 5C 80 rst 1,805C 


KL ROM WALK, (de)=low, (hl)=hi avail. memory 
@ Cc0091 
CF 29 83 rst 1,8329 


KL INIT BACKground ROM, <c>=ROM sel, <de>=lomem, <hl>=himem 
CF 32 83 rst 1,8332 


KL LOG EXT, (bce)=RSX cmd table, (hl)=4 byte RAM area 
CF Al 82 rst 1,82Al 


KL FIND COMMAND (hl) in RSX or back ROM, =<c>ROM sel, =(hl)routine 
@ FlA7I 
CF B2 82 rst 1,82B2 


KL NEW FRAME FLY, (hl)=addr, <b>=class, <de,c>=far addr 
CF 63 81 rst 1,8163 


KL ADD FRAME FLY; (hl)=addr of block 
CF 6A 81 rst 1,816A 


KL DEL FRAME FLY, remove a block (hl) from the list 
CF 70 81 rst 1,8170 


KL NEW FAST TICKER, (hl)=block,<b>=class,<c>=ROM sel,(de)=event routine 
CF 76 81 rst 1,8176 


KL ADD FAST TICKER, put block (hl) onto list 
CF 7D 81 rst 1,817D 


KL DEL FAST TICKER, remove block (hl) from the list 
CF 83 81 rst 1,8183 


KL ADD TICKER, (hl)=tick block, <de>=initial count, <bc>erecharge value 
@ CIIAI 
CF B3 81 rst 1,81B3 


KL DEL TICKER, remove block (hl) from tick list 
@ C8F6! CYA5! 
CF C5 81 rst 1,8105 


KL INIT EVENT BLOCK (hl)=block, <b>=class, <c>=ROM sel, (de)=routine 
@ C92B! 
CF D2 81 rst 1,81D2 


KL EVENT, kick an event block (hl) 
CF E2 81 rst 1,81E2 


KL SYNC RESET, clear synchronous event queue 
@ C9031 
CF 28 82 rst 1,8228 


KL DEL SYNC, delete block (hl) from. queue 
CF 85 82 rst 1,8285 


KL NEXT SYNC, =(hl), =<a> prev. prio, =carry 
@ C8OBI| 
CF 56 82 rst 1,8256 


KL DO SYNC, perform SYNC EVENT block (hl) 


@ C8lB! 
CF 1A 82 rst 1,821A 
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----- KL DONE SYNC, (h1l)=block, <a>=prev. priority 


@ C826! C8AE! C8BE! 


BDOlL CF 77 82 rst 1,8277 


----- KL EVENT DISABLE 
@ C8E2! 


BDO4 CF 95 82 rst 1,8295 


.-- KL EVENT ENABLE 
@ C8E8! 


BDO7 CF 9B 82 rst 1,8298 


——— KL DISARM EVENT block (hl) 
BDOA CF 8E 82 rst 1,828E 


-— KL TIME PLEASE in <de,hl> 


@ DOE6! 


BDOD CF 99 80 rst 1,8099 


.— KL TIME SET <de,hl> 


BD1O CF A3 80 rst 1,8043 
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-—---- MC BOOT PROGRAM, load and run FOREGROUND 
@ E9D5 
BD13 CF DC 85 rst 1,85DC 


.—— MC START FOREGROUND PROGRAM, (hl)=entry addr, <c>=ROM selection 
BD1I6 CF OB 86 rst 1,860B 


----- MC WAIT FLYBACK 
BD19 CF BA 87 rst 1,87BA 


-—- MC SET SCREEN MODE <a> 
BDIC CF 76 87 rst 1,8776 


----- MC set SCREEN OFFSET, <a>=base, <hl>=offset 
BDIF CF C6 87 rst 1,87C6 


-—---- MC CLEAR INKS to one colour, (de)=ink vector 
BD22 CF 86 87 rst 1,8786 


----- MC SET INKS, (de)=ink vector 
BD25 CF 99 87 rst 1,8799 


----- MC RESET PRINTER indirection 
BD28 CF E6 87 rst 1,87E6 


----- MC PRINT CHAR <a> to Centronics port 
@ C3D61 
BD2B CF F2 87 rst 1,87F2 


-—---- MC BUSY PRINTER, if port is busy, =carry 
BD2E CF 1B 88 rst 1,881B 


„ann. MC SEND char <a> to PRINTER 
BD3l CF 07 88 rst 1,8807 


----- MC SOUND REGISTER, send <a>=regf#, <c>=data 
BD34 CF 26 88 rst 1,8826 


— JUMP RESTORE standard jumpblock 
BD37 CF 88 88 rst 1,8888 


----- EDI LINE EDITOR (hl) 
@ CA4O CA46! 
BD3A CF 98 AA rst 1,AA98 2A98 EDI LINE EDITOR (hl) 


-—--- copy 5 bytes, (de)>(hl); 1d a,(hl-l) 
@ D4FD! ED3AI 
BD3D EF 18 2E rst 5,2El8 


-—--- REAL ARITH, CREAL <hl> to (de) 
@ FE79 
BD40 EF 29 2E rst 5,2E29 


— REAL ARITH, CREAL (hl) 4 byte integer to real 
@ FDDC! FEO3 FESA 
BD43 EF 55 2E rst 5,2E55 


.— REAL ARITH, CINT; <hl>=int(hl); <a>=sign 
. @ FEB4I FEC6! 
BD46 EF 66 2E rst 5,2E66 


----- REAL ARITH ?? 


@ FDC9: FDD4! 
BD49 EF 8E 2E rst 5,2E8E 
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BD4C 


BD4F 


BD79 
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REAL ARITH, FIX (hl) 
@ FDES: 
EF Al 2E rst 5,2EAl 


REAL ARITH, INT (hl) 
@ FDED: 
EF AC 2E rst 5,2EAC 


REAL ARITH ?? 
@ FCB6 
EF B6 2E rst 5,2EB6 


REAL ARITH ?? 
@ ED33! FDDL! FDEL 
EF 1D 2F rst 5,2F1D 


REAL ARITH, ADD, (hl)=(hl)+(de) 
@ FCDA! 
EF 3F 33 rst 5,333F 


REAL ARITH, SUB, (hl)=(h1)-(de) 
EF 37 33 rst 5,3337 


REAL ARITH, SUB (hl)=(de)-(hl) 
@ FCEF! 
EF 3B 33 rst 5,333B 


REAL ARITH, MULT, (h1)=(h1)*(de) 
@ FDO3! 
EF 15 34 rst 5,3415 


REAL ARITH DVD; (h1)=(h1)/(de) 
@ FD24! 
EF 9E 34 rst 5,349E 


REAL ARITH, ?? 
EF 78 35 rst 5,3578 


REAL ARITH, COMPARE (h1),(de); <a>=FF,00,01 
@ FDOF 
EF 9A 35 rst 5,359A 


REAL ARITH, COMPLEMENT SIGN (hl) 
@ FDID! 
EF F8 35 rst 5,35F8 


REAL ARITH, SGN (hl); <a>=FF,00,01 
@ D5971 FDAA! 
EF E8 35 rst 5,35E8 


REAL ARITH, set DEG/RAD <a> 
@ C15F! D4EC 
EF AE 31 rst 5,31AE 


REAL ARITH, PI (hl) 
@ D4E2! 
EF A3 31 rst 5,31A3 


REAL ARITH, SQR (hl) ” 0.5 
@ D4EF: 
EF OA 31 rst 5,310A 
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BD79 


BD7C 


BD82 


BD85 


-_—- 


BD88 


BD8B 


BDSE 


BD91 


BD94 


BD97 


 .— 


BDIA 


BDA9I 


REAL ARITH, EXP; (h1l)=(h1)” (de) 
@ D507: 
EF OD 31 rst 5,310D 


REAL ARITH, LOG (hl) 
@ D52A: 
EF 14 30 rst 5,3014 


REAL ARITH, LOG1O (hl) 
@ D525: 
EF OF 30 rst 5,300F 


REAL ARITH, get EXP 
@ D520: 
EF 90 30 rst 5,3090 


REAL ARITH, SIN (hl) 
@ D52F: 
EF BC 31 rst 5,31BC 


REAL ARITH, COS (hl) 
@ D534: 
EF B2 31 tst.5,31B2 


REAL ARITH, TAN (hl) 
@ D539: 
EF 31 32 rst 5,3231 


REAL ARITH, ATN (hl) 
@ D53E: 
EF 41 32 rst 5,3241 


REAL ARITH ?? 
@ ED2FI 
EF 5E 2E rst 5,2E5E 


REAL ARITH, set initial RANDOM NUMBER 
@ CO2E! 
EF 94 2F rst 5,2F94 


REAL ARITH, seed RANDOM NUMBER 
@ D57FI D5All 
EF Al 2F rst 5,2FAl 


REAL ARITH, RANDOMIZE 
@ D5A91 
EF B7 2F rest 5,2FB7 


REAL ARITH, get last RANDOM NUMBER (hl) 
@ D59C! 
EF E6 2F rst 5,2FE6 


INT ARITH, ?? 
@ FCB9! 
EF 08 37 rst 5,3708 


INT ARITH, BC=0002; E=0 
@ FCC9 
EF 0OE 37 rst 5,370E 


INT ARITH, unsigned to sign <b>; z=zero, c=+, m=negative 
@ FEOE! FEB8! FECC! 
EF 15 37 rst 5,3715 
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-_—— 


BDDI 


INT ARITH ADD; <hl>=<hl>+<de> 
@ C6A91! FCDL! 
EF 28 37 rst 5,3728 


INT ARITH SUB; <hl>=<h1>-<de> 
EF 31 37 rst 5,3731 


INT ARITH, SUB; <hl>=<de>-<hl> 
@ FCE6! 
EF 30 37 rst 5,3730 


INT ARITH MUL; <hl>=<hl>*<de> 
@ FCFAI 
EF 39 37 rst 5,3739 


INT ARITH, DVD; <hl>=<h1>/<de> 
@ FD3B! 
EF 7A 37 rst 5,377A 


INT ARITH, MD; <hl>=remainder (<h1l>/<de>) 
@ FD4D! 
EF 81 37 rst 5,3781 


INT ARITH, ?? 
@ D83F! D851! DSCB! EE4D! 
EF 50 37 rst 5,3750 


INT ARITH, DVDu <hl>=<h1>/<de>; <de>=remainder 
@ F2BF! 
EF 8C 37_ rest 5,378C 


INT ARITH, COMPARE <hl>,<de>; <a>= FF,00,01 
@ C6BE! FDOC 
EF E9 37 rst 5,37E9 


INT ARITH, COMPLEMENT <hl> 
@ FD90! FE75! 
EF D4 37 rst 5,37D4 


INT ARITH, get SGN of <hl>; <a>= FF,00,01 
EF EO 37_  rst 5,37E0 


TXT DRAW/UNDRAW CURSOR, if enabled 
@ 117D 1297 12BA 1347 1388! 1590! 
c3 63 12 jp 1263 


TXT DRAW/UNDRAW CURSOR, if enabled 
@ 10C2! 1177! 11A8! 128C! 129D! 12B2! 13AE! 1540! 
c3 63 12 jp 1263 


TXT WRITE CHAR <a> on screen, <hl>=pos 
@ 13441 
Cc3 4A 13 jp 134A 


TXT UNWRITE CHAR, read screen <hl>=col/row, =<a> 
@ 13B4! 
c3 CO 13 jp 13c0 


TXT OUT ACTION, char or ctl code <a> to VDU 
@ 1404! 
c3 0C 14 jp 140C 
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BDD9I 


GRA PLOT a POINT, <de>=x, <hl>=y 
@ 1813 
BDDC C3 16 18 


jp 1816 


GRA TEST a POINT, <de>=x, <hl>=y 


@ 1827 


BDDF C3 2A 18 


ip 182A 


----- GRA DRAW LINE ABSOLUTE, <de>=x, <hl>=y 


@ 1839 


BDE2 C3 3C 18 


j3p 183cC 


SCR READ a pixel from the screen, (hl)=addr, <c>=mask 


@ 1833 


BDE5S C3 82 0C 


jp 0C82 


----- SCR WRITE pixel(s) (hl)=addr, <c>=mask, using curr graph write mode 
19DC 


@ OFF7! 1008! 101F 


BDE8 C3 68 0C 


----- KM TEST BREAK or reset; in: interrupts disabled, 


@ 1BEBI 

BDEE C3 2F IC jp lC2F 

----- MC WAIT PRINTER, print char <a> or time out 
@ 07F31 

BDFL C3 F8 07 jp O7F8 


jp 0C68 


1027 


SCR CLEAR screen to ink 0 
@ OAEL! 
BDEB C3 F7 0A 


jp OAF7 


-——-- not used so far 
BDF4 00 00 00 00 00 00 00 00 00 00 00 00 
BEOO E9 3F n zT 4 A 2 A En An, Fr 2 # nn FF 


BE18 
BE3O 
BE48 
BE60 
BE78 
BE9IO 
BEAB 
BECO 
BED8 
BEFO 


FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 


FF F 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 


E 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 


r 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 


----- SYSTEM STACK 

00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
14 AF 4B 
4B B9 00 
FE FD A7 
9A B9 8E 


BFOO 
BF18 
BF30 
BF48 
BF60 
BF78 
BF9O 
BFA8 
BFCO 
BFD8 
BFFO 


c000 


00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 


23 D7 


00 
11 
07 
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AF 
FE 
8B 


MISCELLANEOUS 


Fr re 
FF FE 
FF FF 
FF BF 
FF FF 
FF EFF 
FF FF 
FF FF 
FF FF 


00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 20 
00 11 
35 EE 
Ol FA 
8B 9A 


ENTRIES 


2 
FF 
FF 
EF 
FF 
FF 
FF 
FF 
FF 


00 
00 
00 
00 
00 
00 
20 
B9 
34 
ol 
B9 


1041! 1821 


r " 
FF FF 
FF FF 
FF FF 
FF FF 
EFF FF 
FF FF 
FF FF 
FF FF 


00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
20 20 
EE 34 


= 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 


00 
00 
00 
00 
00 
00 
00 
1D 
1B 
37 
EA 


DA 
Fl 


FR FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 


00 
00 
00 
00 
00 
00 
00 
1B 
c2 
FA 
8B 


huslik, 


<c>=shft/ctl key states 


cpc464 inside out 


-——n on board ROM 
@ 0339> 05DC: BA86> 
c000 80 


reg ROM MARK#, VERSION#, REVISION LEVEL 


@ BA89> 
co01 01 00 00 


u EXTERNAL COMMAND TABLE 
@ 02F4: 
c004 4C CO cO4C 


— entry to upper ROM 

@ 007D: 0342! 
Cc006 31 00 cO ld sp,C000 
c009 CD CB BC call BCCB 
cOOC CD C4 F4 call F4C4 
COOF DA 00 00 jp c,0000 
col2 21 00 AC ld h1,AC00 


c015 36 00 ld (h1),00 
c01l7 06 1B ld b,1B 
c019 23 inc hl 
cOlA 36 C9 ld (h1),c9 
colc 10 FB djnz C019 


COlE 21 3F CO ld h1,C03F 
co2l CD 37 C3 call C337 
c024 AF xor a 

c025 32 00 AC ld (AC00),a 
Cc028 CD CB DD call DDCB 
Cc02B CD 84 CA call CAB4 
CO2E CD 97 BD call BD97 
c031 CD D3 CO call COD3 
Cc034 CD 3E Cl call CL13E 
c037 11 FO 00 1d de,OOFO 
C0O3A CD 06 F7 call F706 
c0o3D 18 25 jr C064 


----- "Basic 1.0 
CO3F 20 42 41 53 49 43 20 31 


"Basic (command table, only one entry) 


init stack pointer 

KL ROM WALK, (de)=1low, (hl)=hi avail. memory 
init all Basic pointers 

SYSTEM RESET if carry 

BASIC flag ?? 

reset to 0 

count of indirections *3 

reset all indirections to return 
= ret 

next 

“Basic 1.0 

set default printer WIDTH 132. 

=0 

BASIC flag ?? 

reset BASIC program counter 

reset last errorf# to 0 

REAL ARITH, set initial RANDOM NUMBER 
reset flag for AUTO 

performs command NEW 

default VAL for SYMBOL AFTER =240. 
set SYMBOL AFTER <de> 

reset Basic 


2E 30 0A 0A 00 "BASIC 1.0... 


_— "Basic (command table, only one entry) 


C0O4C 42 41 53 49 C3 00 


.--- command: EDIT <line#> 


@ DE2D 
c052 CD El CE call CEEIl 
c055 CO ret nz 


.- perform EDIT line# <de> 
@ CO8E” 

c056 31 00 c0 ld sp,C000 

c059 CD 9 E7 call E79A 

Co5Sc CD 63 El call El63 

cO5F CD 43 CA call CA43 

c062 38 54 jr c,COB8 


— reset Basic 

@ C03D” COA2’ C12F CADC 
c064 CD O1 AC call ACOl 
C067 31 00 CO ld sp,C000 
CO6A CD 62 Cl call C162 
CO6D CD D6 DD call DDD6 
c070 DC B6 BC call c,BCB6 
C073 CD 48 BB call BB48 
c076 CD 86 C3 call C386 
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"BASIC. 


get line# into <de> 


init stack pointer 

search line# <de> from start, <hl>=addr, nc= 
list a basic line into the edit buffer 
keyboard edit line in edit buffer 

check line for direct command 


CB9O EIOA E734 E86l E9FE EAB2 


Indirection: RESET Basic 

init stack pointer 

reset string stack, FN pointers, I/O chan=0 
get BASIC line# at PC in <hl>, =carry 

SOUND HOLD, stop all sounds 

KM DISARM BREAK 

set chan 0, print char <a> at a new line 


INIT BASIC 195 C076 


c079 3A 45 AE ld a,(AE45) flag file read protected 


cO7’C B7 ora 

C07D CA 3E Cl call nz,C13E performs command NEW 

C080 3A AA AD ld a, (ADAA) last Basic ERROR number 
c083 D6 02 sub 02 Syntax error? 

c085 20 09 jr nz,C090 no, not a Syntax error 

C087 32 AA AD ld (ADAA),a last Basic ERROR number 
CO8A CD DF CA call CADF get next line after error <hl>, if none <hl> 
CO8D EB ex de,hl 

CO8E 38 C6 jr c,C056 perform EDIT line# <de> 
c090 21 CC CO ld h1,COcc "Ready 

Cc093 CD 41 C3 call C341 output text (hl) to channel 


-.— reset BASIC pointer; test AUTO; wait for input 
@ COCO’ COFF 


Cc096 CD CB DD call DDCB reset BASIC program counter 

-- test AUTO flag; (print line#); wait for input 

c099 3A 1C AC ld a, (ACIC) flag for AUTO 

c0o9C B7 or a 

co9D 28 11 jr z,COBO get a command line from keyboard 

co9F CD 02 ci call C102 get new linef 

COA2 30 CO jr nc,C064 reset Basir 

COA4 7E ld a,(hl) 

COA5S B7 or a 

COA6 28 Fl jr z,C099 test AUTO flag; (print line#); wait for inpu 
COA8 CD D2 E6 call E6D2 assemble an insert line into program 

COAB CD 7A Cl call C17A reset pointers; program, error, data 

COAE 18 EI jr C099 test AUTO flag; (print linef#); wait for inpu 
.— get a command line from keyboard 

COBO CD 3B CA call CA3B put Q in edit buffer and read a line 

CcOB3 30 FB jr nc,C0BO get a command line from keyboard 

COB5S CD 4E C3 call C34E output ’LF to channel 

 —— check line for direct command 

COB8 CD BC E6 call E6BC check for a line# in command line 

COBB 30 05 jr nc,C0c2 perform a direct command 

COBD C4 7A CI call nz,C17A reset pointers; program, error, data 

c0oc0O 18 D4 jr C096 reset BASIC pointer; test AUTO; walt for inp 
— perform a direct command 

c0C2 CD BB DE call DEBB assemble a program line; (hl)=edit buffer 
coc5 CD 53 C4 call C453 establish BREAK EVENT 

coc8 2B dec hl 

c0oc9 C3 74 DD jp DD74 do the RUN LOOP 

.— "Ready 

Cocc 52 65 61 64 79 0A 00 "Ready... 


----- reset flag for AUTO 
@ CO31} C116! CI6E! 
COD3 AF xor a a=0 
COD4 18 05 jr CODB reset flag for AUTO 


----- set flag for AUTO 
@ COFB! C1251} 


COD6 22 1D AC ld (AC1D),hl new line number 
C0OD9 3E FF ld a,FF set 

CODB 32 IC AC ld (ACIC),a flag for AUTO 
CODE C9 ret 


CODE 196 DIRECT INPUT huslik, cpc464 inside out 


@ DEO3 


0A 
02 
2C 
El 


96 


00 


co 


ld de,000A 
jr z,COE6 
cp 2C 
call nz,CEEl 
push de 
ld de,000A 
call DD55 
call c,CEEl 
call DD4A 
ex de,hl 
ld (ACIF),hl 
pop hl 
call COD6 
pop bc 
jp C096 


-- get new linef 
@ CO9F! 


c102 2A 
c105 ES 
c106 CD 
c109 DL 
Cl0A CD 
C10D 3E 
c10F 38 
clil 3E 
c113 CD 
c1l6 CD 
c119 CD 
cllc NO 
cl1D CD 
C120 ES 
cl2l 2A 
c124 19 


1D 


AC 


EE 


E7 


c3 
co 
CA 
c3 
AC 


co 


cl2C CD 3E Cl 


ld hl, (AC1D) 
push hl 
call EE79 
pop de 
call E7A3 
ld a,2A 
jr e,c113 
ld a,20 
call C356 
call C0n3 
call CA3B 
ret nc 
call C34E 
push hl 
ld hl, (ACIF) 
add hl,de 
call nc,C0D6 
pop hl 
sc£ 
ret 


: NEW 


ret nz 
call C13E 
jp C064 


® CLEAR 


push hl 
call C18C 
call C15B 
call C17A 
pop hl 

ret 


.— performs command NEW 
@ c034! CO7D! Cl2c! 
Cl3E 2A 7F AE 


ld hl, (AE7F) 
ex de,hl 

ld h1,(AE7B) 
call FFDA 
ld h,d 

ld 1,e 

inc de 
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default START = 10. 


D 
get line# into <de> 

default STEP = 10. 

CHRBACK comma?; if=:CHRGET <a>, scf 

get line# into <de> 

CHRGOT <a>; end of statement? else syntax er 
step for AUTO 

set flag for AUTO 


reset BASIC pointer; test AUTO; wait for inp 


new line number 
print linef 


search line# <de> from start, <hl>=address, 
* = warning, 
line exists! 
"SPACE 
output char <a> to channel 
reset flag for AUTO 
put O in edit buffer and read a line 
break 
output ’LF to channel 


step for AUTO 


set flag for AUTO 


performs command NEW 
reset Basic 


reset all VARIABLE pointers 
cas I/O abandon, set RAD, release buffers 
reset pointers; program, error, data 


low memory boundary pointer 


himem for Basic pointer 
BC=HL-DE 


hl=de 


AUTO, NEW, CLEAR 197 C14A 


C14B AF xor a 


Cl4c 77 ld (hl),a clear to 0 
C14D ED BO ldir 
Cl4F 32 45 AE ld (AE45),a flag file read protected 
Cc152 CD 76 E6 call E676 reset line MARK, basic end=start 
c155 CD &c cı call C18C reset all VARIABLE pointers 
Cc158 CD 6B Cl call C16B performs NEW, part 2 
-_--- cas I/O abandon, set RAD, release buffers 
@ C136! 
C15B CD AD D2 call D2AD CAS in/out abandon, release 1/0 buffers 
— reset to RAD 
@ EIED! 
Cl5E AF xor a =0 =RAD 
C15F CD 73 BD call BD73 REAL ARITH, set DEG/RAD <a> 
— reset string stack, FN pointers, I/O chan=0 
@ CO6A! 
C162 CD B3 FB call FBB3 reset string stack 
C165 CD FD DI call D9IFD reset FN pointers as not used 
C168 C3 9D cl jp c19D set in/out channel to 0 


-.— performs NEW, part 2 
@ C158! EAIC! EABA! EBAll 


C16B CD E6 DD call DDE6 command: TROFF 

C1l6E CD D3 CO call COD3 reset flag for AUTO 

Cc17l CD F2 Fl call FIF2 set default ZONE to 13. 

C174 CD 76 E6 call E676 reset line MARK, basic end=start 

C177 CD BlDS5S call DS5SBl reset all VARIABLE pointers to basic start 


—— reset pointers; program, error, data 
@ COAB! COBD! C139! E731! E9EAl EAB5! EBB8! EBEFI 


C17A CD DI CB call CBD9I reset ON ERROR FLAG and ADDRESS 
C17D CD AB CB call CBAB reset CONTinue pointer 

C180 CD ED C8 call C8ED set up all default events 

C183 CD 8E F5 call F58E reset BASIC STACK 

C186 CD D2 D5 call D5D2 clear AE04..5 to 0 

Cc189 C3 E5 DC jp DCE5S reset DATA pointer to basic start 


— reset all VARIABLE pointers 
@ C133} C155! E9E7T! EA19! EAAC! EB3E! 


cl8c cC5 push bc 

C18D E5 push hl 

C18E CD CA F5 call FSCA set low string end up to himem 

C191 CD AE D5 call D5AE reset all VARIABLE pointers to Basic start, 
C194 CD FC D5 call D5FC set default VARTYPE A-Z to real 

C197 CD 89 EI call E989 clear all VARIABLE indices 

C19A EI pop hl 

c19B ci pop bc 

c19C C9 ret 


.- set in/out channel to 0 
@ C168 C33DI CB36! 


C19D AF xor a =0 
C19E CDAFCI call ClAF set input chan to <a>, a=old channel 
ClAl AF xor a =0 


— set output channel to <a>, a= old channel 
@ C1C9° C1D7! CIEO C27C! C28D CBO6! CBll! DB20! DB28 DB4C! DB74 
@ EC8D! ECIB! F205 F4cl 


ClA2 ES push hl 

C1A3 F5 push af 

ClA4 FE 08 cp 08 is it the printer? 

ClA6 DC B4 BB call c,BBB4 TXT STREAM <a> SELECT, <a>=old text stream 


ClA6 198 RESET BASIC huslik, cpc464 inside out 


C1A9 Fl pop af 
ClAA 21 21 AC ld h1,AC21 
ClAD 18 04 jr C1B3 


output channel number 


— set input chan to <a>, a=old channel 


@ CL9E! CICE’ DB17 DB44 


CIAF ES push hl 

C1BO 21 22 AC ld h1,AC22 

C1B3 D5 push de 

C1B4 5F ld e,a 

C1B5 7E ld a,(hl) 

C1B6 73 ld (hl),e 

C1B7 DL pop de 

C1B8 EI pop hl 

C1B9 c9 ret 

— get output channel; cp 08 
@ El45! 

C1BA 3A 21 AC ld a,(AC21) 

ClBD FE 08 cp 08 

ClBF C9 ret 


_- get input channel; cp 09 


input channel number 


output channel number 
is it the printer? 


@ DBlA! DB47! DB98! DC10! DC21! 


C1cO 3A 22 AC ld a, (AC22) 
C1lc3 FE 09 cp 09 
clc5 cC9 ret 


input channel number 
is it the tape? 


—— if °# get chan; default=0; set output channel 


@ EOFC! FIFD! FA7B! 
Clc6 CD E3 CI call C1E3 
C1c9 18 D7 jr c1A2 


if ’# get channel, default=0 
set output channel to <a>, a= old channel 


.— if *# get chan, default=0, set input channel 


@ DAFC! DB2B! 
CICB CD EI CL call CIE3 
CICE 18 DF jr ClAF 


-.-- get channel#, default=0; set 


if ’# get channel, default=0 
set input chan to <a>, a=old channel 


in/out chan 


@ C20A! C212! C25A! C2D2! C2E6! C319! C320! 


Cc1DO CD EI CI call CIE3 


Cc1D3 FE 08 cp 08 

Cc1D5 30 2E jr nc,C205 
C1D7 CD A2CI call C1A2 
clDA cı pop bc 
CiDB F5 push af 
CiDC CD F9 FF call FFF9 
CiDF Fl pop af 


CIEO C3A2 Cl jp C1A2 


--- if °# get channel, default=0 
@ C1C6! CICB! C1DO! 


CIE3 7E ld a,(hl) 
CIE4 FE 23 cp 23 

C1IE6 3E 00 ld a,00 

CIE8 CO ret nz 

C1E9 CD F5 Cl call CIF5 
ClEC F5 push af 

CIED CD 55 DD call DD55 
C1IFO D4 4A DD call nc,DD4A 
clF3 Fl pop af 

ciF4 c9 ret 


huslik, cpc464 inside out 


if °# get channel, default=0 

is channel >= 8? 

Error: Improper argument 

set output channel to <a>, a= old channel 


jp(be) 


set output channel to <a>, a= old channel 


ij 
default 0, if °# is missing 


get next VAL in <a>; max=10.; else error 


CHRBACK comma?; if=:CHRGET <a>, sc£ 
CHRGOT <a>; end of statement? else syntax er 


evaluate parameters 199 CIF4 


get next VAL in <a>; max=10.; else error 

@ C1E9! C279! 

CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 

23 2; 

3E 0A ld a,0A maximum 

get next VAL in <a>; cp <old a>; nc=error 

@ C246! C24D’ C251! C3l4! 

c5 push bc 

D5 push de 

47 ld b,a 

CD 67 CE call CE67 get byte VAL(expression) in <de> 

B8 cp b 

DI pop de 

cl pop be 

D8 ret c 

Error: Improper argument 

lE 05 ld e,05 Improper argument 

c3 94 CA jp CA94 perform ERROR <e> routine 

command: PAPER [#<device>,) <ink> 

@ DE75 

CD DO c1 call C1nO get channel#, default=0; set in/out chan 
01 96 BB ld bc,BB96 TXT SET PAPER ink <a> 

18 06 jr c218 

command: PEN [#<device>,] <ink> 

@ DE77 

CD DO CL call C1DO get channel#, default=0; set in/out chan 
01 90 BB ld bc,BB90 TXT SET PEN ink <a> 

CD 48 C2 call C24B get VAL into <a>, max=15.; else error 
E5 push hl 

CD F9 FF call FFF9 jp(be) 

El pop hl 

c9 ret 

command: BORDER <ink> [,<ink>] 

@ DEOS 

cD 3C c2 call C23C get VAL in <b>, next in <a>, both max 31. 
E5 push hl 

CD 38 BC call BC38 SCR SET BORDER, <b,c>=colours 

El pop hl 

c9 ret 

command: INK<ink>,<colour>[,<colour>] 

@ DE45 

CD 48 C2 call C24B get VAL into <a>, max=15.; else error 
F5 push af 

CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 

2C 

cD 3C C2 call C23C get VAL in <b>, next in <a>, both max 31. 
Fl pop af 

ES push hl 

CD 32 BC call BC32 SCR SET colour of INK, <a>=ink#, <b,c>=colou 
El pop hl 

c9 ret 


get VAL in <b>, next in <a>, both max 31. 
@ c221! C2321! 


CD 44 C2 
4 
cD 55 DD 
DO 


call C244 get VAL into <a>, max=31.; else error 
ld b,c 

call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
ret nc 


200 evaluate parameters huslik, cpc464 inside out 


@ c23c! 
C244 3E 20 ld a,20 
C246 CD FB Cl call CIFB 
C249 4F ld c,a 
C24A CI ret 


=32. 
get next VAL in <a>; cp <old a>; nc=error 


-_-- get VAL into <a>, max=15.; else error 


@ c218! C22A! C4BA! C4EL! 


C24B 3E 10 ld a,10 
C24D 18 AC jr CIFB 
— command: MODE <mode> 
@ DESB 
C24F 3E 03 ld a,03 
Cc251 CD FB Cl call CIFB 
C254 ES5 push hl 
c255 CD 0OE BC call BCOE 
c258 El pop hl 
c259 cC9 ret 
.-- command: CLS [#<device>] 
@ DE15 
C25A CD DO CI call C1DO 
c25D 3E 0C ld a,0C 


c25F C3 6E C3_ jp C36E 


.-- function: VPOS(#<device>) 


@ DIAC 
Cc262 0167 cC2 ld bc,C267 
c265 18 12 jr c279 
-. get VPOS of <device> 

@ C262: 
C267 3A 21 AC ld a,(AC21) 
C26A FE 08 cp 08 
c26C 30 97 jr nc,C205 


C26E CD 78 BB call BB78 
Cc271 CD 87 BB call BB87 
c274 ld a,1 
c275 c9 ret 


----- function: POS(#<device>) 
@ DI9E 

c276 01 90 c2 ld bc,C290 

c279 CD F5 Cl call CIF5 

c27C CD .A2 CI call C1A2 


C27F F5 push af 
c280 CD 37 DD call DD37 
c283 29 ) 

C284 ES push hl 
Cc285 CD F9 FF call FFF9 
c288 CD 0A FF call FFOA 
C28B EI pop hl 
c28C Fl pop af 


c28D C3 A2 Cl jp C1A2 


=16. 
get next VAL in <a>; cp <old a>; nc=error 


=3 
get next VAL in <a>; cp <old a>; nc=error 


SCR SET MODE <a> 


get channel#, default=0; set in/out chan 
FF (CL) 
output char <a> to channel 


get VPOS of <device> 


output channel number 

is it >= 8? 

Error: Improper argument 

TXT GET CURSOR position (hl), roll count <a> 
TXT VALIDATE cursor position <hl> column/row 


get current print POS of <device> 
get next VAL in <a>; max=10.; else error 
set output channel to <a>, a= old channel 


CHRNEXT <a>, nz=Error; CHRGET 


jp(be) 
set FAC to <a> and mark integer 


set output channel to <a>, a= old channel 


— get current print POS of <device> 


@ C276: C2C6! F263! F2871! 
c290 3A 21 AC ld a, (AC21) 
c293 FE 08 cp 08 
c295 CA DF C3 jp z,C3DF 
Cc298 3A 25 AC ld a,(AC25) 
Cc29B DO ret nc 
c29C C3 9C C3 jp C39C 


huslik, cpc464 inside out 


output channel number 

is it the printer? 

get POS (printer) <a> 

POS(tape); # of char’s written on this line 


get cursor position and validate 


TEXT output format 201 C29C 


get line 


width of <device> 


@ C2CO! F2B6! 


3A 21 AC 
FE 08 


ld a,(AC21) 
cp 08 
jr z,C2B3 
ret nc 
push de 
push hl 
call BB69 
ld a,d 
sub h 
inc a 
pop hl 
pop de 
scf 
ret 


get WIDTH; cp FF 


3A 24 AC 
FE FF 
c9 


check if char fits into this 


ld a, (AC24) 
cp FF 
ret 


@ F24DI! F26E! 


output channel number 


is it the printer? 
always return if printer 


TXT GET WINDOW size, <hl>=left top, <de>=rig 


WIDTH for Printer 


line 


do it here! 


get line width of <device> 


get current print POS of <device> 


<x coord>, <y coord> 


get channe!#, default=0; set in/out chan 
<d>=next VAL-1l, <e>=next VAL-1 


TXT SET CURSOR, <hl>=column/row 


WINDOW [#<device>,]<left>,<right>,<top>,<bottom> 


E5 push hl 
CD BF C2 call C2BF 
El pop hl 

c9 ret 

do it herel 

@ C2BAI 

67 ld h,a 

CD 9F C2 call C29F 
3F ccf 

D8 ret c 

6F ld 1,a 

cD 90 C2 call C290 
3D dec a 

37 sc£ 

c8 ret z 

84 add a,h 
3F ccf 

DO ret nc 

3D dec a 

BD cp 1 

c9 ret 
command: LOCATE [#<device>,] 
@ DE53 

cD DO ci call C1DO 
cD 27 C3 call C327 
E5 push hl 
EB ex de,hl 
24 inc h 

2C inc 1 

CD 75 BB call BB75 
El pop hi 

c9 ret 
command: 

@ DEBl 

7E ld a,(hl) 
FE E7 cp E7 

28 17 jr z,C2FD 
CD DO c1 call C1DO 


202 TEXT output format 


[SWAP] 
command: WINDOW SWAP [<device>,] <device> 
get channel#, default=0; set in/out chan 


huslik, cpc464 inside out 


C2E9 CD 27 C3 call C327 <d>=next VAL-1l, <e>=next VAL-1 
C2EC D5 push de 


C2ED CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 

c2FO 2C > 

C2Fl CD 27 C3 call C327 <d>=next VAL-1, <e>=next VAL-1 

C2F4 E3 ex (sp),hl 

C2F5 7A ld a,d 

C2F6 55 ld d,1 

C2F7 6F ld 1,a 

C2F8 CD 66 BB call BB66 TXT SET WINDOW <hl>=left top, <de>=right bot 
C2FB EI pop hl 

C2FC CI ret 

-—- command: WINDOW SWAP [<device>,] <device> 

C2FD CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 

c300 cD 12 C3 call C312 get byte VAL into <b>; max=7; else error 
c303 48 ld c,b 

c304 CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
c307 06 00 ld b,00 default=0 

c309 DC 12 C3 call c,C312 second argument 

Cc30C ES push hl 

Cc30D CD B7 BB call BBB7 TXT SWAP STREAMS <b> with <c> 

c310 EI pop hl 

c3ll cC9 ret 


----- get byte VAL into <b>; max=7; else error 
@ c300! C309! 


c312 3E 08 ld a,08 max+l 
c3l4 CD FBCI call CIFB get next VAL in <a>; cp <old a>; nc=error 
c317 47 ld b,a 
c318 c9I ret 
.-- command: TAG [#<device>] 
@ DEAl 
c319 CD DO CL call C1DO get channel#, default=0; set in/out chan 
c3lC 3E FF, ld a,FF flag ON 
C3lE 18 04 jr c324 set graphic char write 
.— command: TAGOFF [#<device>] 
@ DEA3 
c320 CD DO cl call C1DO get channel#, default=0; set in/out chan 
c323 AF xor a flag OFF 
c324 C3 63 BB jp BB63 TXT SET GRAPHIC char write, <a>=0=OFF, FF=ON 


.- <d>=next VAL-l, <e>=next VAL-1 
@ C2D5! C2E9! C2FL! 


Cc327 CD 2F C3 call C32F <a>=next VAL, O=error, <e>=<a>-1 
Cc32A 53 ld d,e 
c32B CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
c32E 2C ae 
--- <a>=next VAL, O=error, <e>=<a>-1 
@ c327! 
c32F D5 push de 
c330 CD 6D CE call CE6D <a>=next VAL, O=error 
c333 DI pop de 
c334 5F ld e,a 
c335 1D dec e 
c336 cC9I ret 
—— set default printer WIDTH 132. 
@ co21! 
c337 3E 84 ld a,84 =132. 
c339 32 24 AC ld (AC24),a WIDTH for Printer 
c33C ES push hl 


huslik, cpc464 inside out TEXT output format 203 C33C 


c33D CD 9D ci call C19D set in/out channel to 0 
c340 EI pop hl 


----- output text (hl) to channel 
@ C093! CBOA! CB3D! CB48! D565! DB6C! EE7F F3B3! 


C341 F5 push af 

0342 E5 push hl 

c343 TE ld a,(hl) 

C344 23 inc hl 

C345 B7 ora 

0346 C4 56 C3 call nz,C356 output char <a> to channel 
C349 20 F8 jr nz,C343 next char 
C34B EL pop hl 

c34c Fl pop af 

Cc34D C9 ret 

----- output ’LF to channel 


@ cOB5! CllD} CA49 CBOD! D56E! DBB8! El3B! F20B F250! F258! F271 
@ F290! F31B! FABD! 


C34E F5 push af 

C34F 3E 0A ld a,0A ıLF (%) 

c351 CD 56 C3 call C356 output char <a> to channel 
c354 Fl pop af 

0355 c9I ret 


— output char <a> to channel 
@ c113! C346! C351! DB56! DB5B! DDED! DDFE F29B! F33C! F49B! F4A3! 


@ F4B8! 
c356 F5 push af 
c357 CD 5C c3 call C35C perform output char <a> to <device> 
c35A Fl pop af 
c35B CI ret 
----- perform output char <a> to <device> 

@ c3571 
Cc35C FE 0A cp DA is it a ’LF ? 
C35E 20 0E jr nz,C36E output char <a> to channel 
C360 3A 21 AC ld a,(AC21) output channel number 
C363 FE 08 cp 08 is it the printer? 
C365 CA AB CI jp z2,C3A8 output ’CR ’LF to printer 
C368 D2 EA C3 jp nc,C3RA output ’CR ’LF to tape 
C36B C3 92 C3 jp C392 output ’CR ’LF to screen 


.— output char <a> to channel 
@ c25F C35E’ El4B! El5SC! El60 FB2E! 


C36E F5 push af 
C36F C5 push bc 
c370 4F ld c,a 
c371 CD 77 cC3 call C377 do it here! 
0374 cı pop bc 
0375 Fl pop af 
c376 C9 ret 
----- do it herel 
@ c371! 
c377 3A 21 AC ld a,(AC21) output channel number 
C37A FE 08 cp 08 is it the printer? 
C37C CA B5 C3 jp z,C3B5 output char <c> to printer; update POS 
c37F D2 FB C3 jp nc,C3F8 output char <a> to tape; update POS 
c382 79 ld a,c 
c383 cC3 99 C3 jp c399 TXT OUTPUT char or ctl code <a> to VDU 


c383 204 TEXT OUTPUT huslik, cpc464 inside out 


set chan 0, print char <a> at a new line 
@ C076! CBl8! CB39! 


AF xor a 

CD 63 BB call BB63 TXT SET GRAPHIC char write, <a>=0=0FF, FF=ON 
CD 54 BB call BB54 TXT VDU ENABLE 

CD 9C C3 call C39C get cursor position and validate 

3D dec a 

c8 ret z 


output ’CR ’LF to screen 


3E OD ld a,0D “CR (M) 

CD 99 C3 call C399 TXT OUTPUT char or ctl code <a> to VDU 

3E OA ld a,0A "LF (79) 

TXT OUTPUT char or ctl code <a> to VDU 

@ c383 C394! 

c3 5A BB jp BB5A TXT OUTPUT char or ctl code <a> to VDU 

get cursor position and validate 

@ c29C C38D! 

c5 push be 

E5 push hl 

CD 78 BB call BB78 TXT GET CURSOR position (hl), roll count <a> 
CD 87 BB call BB87 TXT VALIDATE cursor position <hl> column/row 
7C ld a,h 

El pop hl 

cl pop bc 

c9 ret 


output °CR ’LF to printer 
P 


@ C365 C3c8! 

Cc5 push bc 

OE OD ld c,0D CR (M) 

CD B5 C3 call C3B5 output char <c> to printer; update POS 
0OE 0A ld c,0A "LF (N) 

CD B5 C3 call C3B5 output char <c> to printer; update POS 
cl pop bc 

c9 ret 


output char <c> to printer; update POS 
@ C37C C3AB! C3BO! 


E5 push hl 

79 ld a,c 

EE OD xor OD ’CR (M) 

28 13 jr z,C3CE yes, start new char count 

79 ld a,c 

FE 20 cp 20 "SPACE 

38 14 jr c,C3D4 not a printable character 

2A 23 AC ld hl, (AC23) POS(printer); # of char’s written this line 
24 inc h 

7D ld a,l = WIDTH 

28 07 jr z,C3CE not beyond 

BC cp h width reached? 

cc A8 C3 call z,C3A8 output ’CR °LF to printer 

3A 23 AC ld a, (AC23) POS(printer); # of char’s written this line 
3C inc a inc char count 

28 03 jr z,C3D4 skip if zero 

32 23 AC ld (AC23),a update char count this line 

El pop hl 

79 ld a,c 

CD 2B BD call BD2B MC PRINT CHAR <a> to Centronics port 
D8 ret c 

CD 3C C4 call C43C check for a BREAK request 

18 F6 jr C3D5 next 


huslik, cpc464 inside out TEXT OUTPUT 205 C3DD 


----- get POS (printer) <a> 


@ C295 
C3DF 3A 23 AC ld a, (AC23) POS(printer); # of char’s written this line 
Cc3E2 CI ret 
— comman.: WIDTH <width> 
@ DEAF 
C3E3 CD 6D CE call CE6D <a>=next VAL, O=error 
C3E6 32 24 AC ld (AC24),a WIDTH for Printer 
C3E9 CI ret 
.- output ’CR ’LF to tape 
@ 0368 
C3EA 3E Ol ld a,0l char count=l 
C3EC 32 25 AC 1d (AC25),a POS(tape); # of char’s written on this line 
C3EF 3E 0D ld a,0D "CR (CM 
C3Fl CD On C4 call C40D output char <a> to tape 
C3F4 3E 0A ld a,0A ’LF (9) 
c3F6 18 15 jr c40D output char <a> to tape 
.— output char <a> to tape; update POS 
@ C37F 
C3F8 ES push hl 
C3F9 21 25 AC ld h1,AC25 POS(tape); # of char’s written on this line 
C3FC 79 ld a,c 
C3FD 06 01 ld b,01 new count =l 
C3FF FE OD cp ID is it a ’CR? 
C401 28 08 jr z,C40B yes! 
C403 FE 20 cp 20 "SPACE 
C405 38 05 jr c,C40C not a printable char 
C407 46 ld b,(h1l) 
c408 04 inc b inc count 
C409 28 01 jr z,C40C skip if zero 
C40B 70 ld (hl),b update char count this line 
C40C EI pop hl 


— output char <a> to tape 

@ C3FLl! C3F6’ 
C40D CD 95 BC call BC95 CAS OUT CHAR <a> to output file 
C410 D8 ret c 


_— perform a BREAK 
C4ll C3 6B CB jp CB6B perform a BREAK 


— CAS RETURN, put last char read back 
@ DC991 DCBFI! 


C4l4 C3 86 BC jp BC86 CAS RETURN, put last char read back 
—— function: EOF 
@ DOCA 
C4l7 ES push hl 
C418 CD 89 BC call BC89 CAS TEST EOF 
C4lB 28 F4 jr z,C4ll perform a BREAK 
C41D 3F ecf 
C4lE 9F sbc a,a 
C4lLF CD 05 FF call FFO5 set FAC to (-1, 0, +1); <a> was FF,00,01 
c422 El pop hl 
c423 c9 ret 


— read a char from input file 
@ DCAB! DCB9I! 


C424 3A 22 AC ld a, (AC22) input channel number 

C427 FE 09 cp 09 is it the tape? 

C429 CA 80 BC jp z,BC80 CAS IN CHAR from input file 
C42C CD 09 BB call BBO09 KM READ CHAR from keyboard =<a> 


C42C 206 TEXT INPUT huslik, cpc464 inside out 


D8 ret c 


cursor ON; wait for key; cursor OFF 


@ ca73! 

CD 81 BB 
CD 06 BB c 
C3 84 BB j 


call BB81 


all BBO6 
p BB84 


TXT CURSOR ON 


KM WAIT CHAR from keyboard =<a> 


TXT CURSOR OFF 


jp KM read char from keyboard 


@ FAZA! 

c3 09 BB jp BBO9I 
check for a BREAK request 
@ C3DA! EIlIB! 

CD 09 BB call BBO9 

DO ret nc 

FE FC cp FC 

co ret nz 

c5 push bc 

D5 push de 

E5 push hl 

CD 6F C4 call C46F 
DA 6B CB jp c,CB6B 
cD 53 C4 call C453 
El pop hl 

Dl pop de 

cl pop bc 

c9 ret 


establish BREAK EVENT 
@ cOC5! C44c! C832! C8C1! CIOC! 


E5 push hl 

11 5E :C4 ld de,C45E 
OE FD ld c,FD 

CD 45 BB call BB45 
El pop hl 

c9 ret 


event routine BREAK 


@ B5ll: C454: 


E5 push hl 

CD 09 BB call BBO9 
30 04 jr nc,C468 
FE EF cp EF 

20 F7 jr nz,C45F 
CD 6F C4 call C46F 
El pop hl 

c3 47 C8 jp 0847 
check for a second ’ESC 
@ C446! C468! 

CD B6 BC call BCB6 
F5 push af 

cD 30 C4 call C430 
FE EF cp EF 

28 F9 jr z,C473 
FE FC cp FC 

28 OB jr z,C489 
FE 20 cp 20 

C4 0C BB call nz,BBOC 
Fl pop af 

DC BI BC call c,BCB9 
B7 or a 

c9 ret 


huslik, cpc464 inside out 


KM READ CHAR from keyboard =<a> 


KM READ CHAR from keyboard =<a> 


no key, return 
is it ’ESC? 
no, return 


check for a second ’ESC 


perform a BREAK 


establish BREAK EVENT 


event routine BREAK 


select upper on board ROM 
KM ARM BREAK, (de)=routine, <c>=ROM select 


KM READ CHAR from keyboard =<a> 


all chars read? 
’ESC marker found? 


no, not yet 


check for a second ’ESC 


event routine BREAK, part 2 


SOUND HOLD, stop all sounds 


cursor ON; wait for key; cursor OFF 
is it ’ESC marker? 
yes, get next key 


is it ESC? 


yes, return with carry set 


"SPACE 


KM RETURN CHAR <a> to ’put back” location 


SOUND CONTINUE stopped sounds 


TEXT INPUT 


207 C488 


C489 Fl pop af 


C48A 37 scf 
C48B C9I ret 
— command: ORIGIN <x>,<y> [,<left>,<right>,<top>,<bottom>] 
@ DE7L1 
C48C CD 1A C5 call C51A get integer VAL to <de>, next to <bc> 
C48F C5 push bc 
C490 D5 push de 
C491 CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, sc£ 
C494 30 18 jr nc,C4AE no window arguments 
C496 CD 1A C5 call C51A get integer VAL to <de>, next to <bc> 
c499 C5 push bc 
C49A D5 push de 
C49B CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
C49E 2C inc 1 
C49F CD 1A C5 call C51A get integer VAL to <de>, next to <bc> 
C4A2 C5 push bc 
C4A3 E3 ex (sp),hl 
C4A4 CD D2 BB call BBD2 GRA set WINDOW height, <de>=yl, <hl>=y2 
C4A7 EI pop hl 
C4AB DL pop de 
C4A9 E3 ex (sp),hl 
C4AA CD CF BB call BBCF GRA set WINDOW width, <de>=xl, <hl>=x2 
C4AD EI pop hl 
C4HAE DL pop de 
C4AF E3 ex (sp),hl 
C4BO CD C9 BB call BBC9 GRA SET ORIGIN, <de>=x, <hl>=y 
C4B3 EI pop hl 
C4B4 CI ret 
.— command: CLG [<ink>] 
@ DEOF 
C4B5 CD 51 DD call DD51 CHRGOT <a>; end of statement? =carry 
C4B8 38 06 jr c,C4c0 no argument <ink> 
C4BA CD 48 C2 call C24B get VAL into <a>, max=15.; else error 
C4BD CD E4 BB call BBE4 GRA SET PAPER, <a>=ink 
C4c0 ES push hl 
C4cl CD DB BB call BBDB GRA CLEAR GRAPHIC WINDOW 
C4c4 EI pop hl 
c4c5 CI ret 
— command: DRAW <x>,<y>[,<ink>] 
@ DE29 
C4C6 O1 F6 BB ld bc,BBF6 GRA DRAW LINE ABSOLUTE, <de>=x, <hl>=y 
C4c9 18 0D jr C4D8 
._--- command: DRAWR <xd>,<yd>[,<ink>] 
@ DE2B 
C4CB Ol F9 BB ld bc,BBF9 GRA DRAW LTNE RELATIVE, <de>=xd, <hl>=yd 
C4CE 18 08 jr C4D8 
— command: PLOT <x>,<y>[,<ink>] 
@ DE79 
C4DO Ol EA BB ld bc,BBEA GRA PLOT ABSOLUTE, <de>=x, <hl>=y 
C4D3 18 03 jr C4D8 
— command: PLOTR <xd>,<yd>[,<ink>] 
@ DE7B 
C4D5 O1 ED BB ld bc,BBED GRA PLOT RELATIVE, <de>=xd, <hl>=yd 
C4D8 C5 push bc 
C4D9 CD 1A C5 call C51A get integer VAL to <de>, next to <bc> 
c4DC CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
C4DF 30 06 jr nc,C4E7 no more argument 
C4El CD 48 C2 call C24B get VAL into <a>, max=15.; else error 


C4El 208 GRAPHICS huslik, cpc464 inside out 


CD DE BB call BBDE 
18 28 jr c5ll 


function: TESTR(<xd>,<yd>) 
@ D1A6 

Ol FO BB ld bc,BBFO 

18 03 jr CAFl 


function: TEST(<x>,<y>) 
@ DL1A8 
Ol F3 BB ld bc,BBF3 


c5 push bc 

CD 1A C5 call C51A 
cD 37 DD call DD37 
29 2) 

E3 ex (sp),hl 
c5 push bc 

E3 ex (sp),hl 
cl pop bc 

CD F9 FF call FFF9 
CD OA FF call FFOA 
El pop hl 

c9 ret 


command: MOVE <x>, <y> 
@ DESD 

01 CO BB ld bc,BBCO 
18 03 jr C50D 


command: MOVER <xd>,<yd> 
@ DESF 
01 C3 BB ld bc,BBC3 


c5 push bc 

cD 1A C5 call C51A 
E3 ex (sp),hl 
c5 push bc 

E3 ex (sp),hl 
cl pop bc 

CD F9 FF call FFF9 
El pop hl 

c9 ret 


GRA SET PEN, <a>=ink 


GRA TEST ABSOLUTE, <de>=x, <hl>=y 


GRA TEST RELATIVE, <de>=xd, <hl>=yd 


get integer VAL to <de>, next to <bc> 
CHRNEXT <a>, nz=Error; CHRGET 


jp(be) 
set FAC to <a> and mark integer 


GRA MOVE ABSOLUTE, <de>=x, <hl>=y 


GRA MOVE RFLATIVE, <de>=xd, <hl>=yd 


get integer VAL to <de>, next to <bc> 


jp(be) 


get integer VAL to <de>, next to <bc> 
@ C48C! C496! CA9F! C4DI9! CAF2! C5OE! 


CD 86 CE call CE86 


get integer VAL(expression) in <de> 
CHRNEXT <a>, nz=Error; CHRGET 


get integer VAL(expression) in <de> 


command: FOR <variable> = <start> TO <end> [STEP <step>] 


D5 push de 

CD 37 DD call DD37 

2C a 

CD 86 CE call CE86 

42 ld b,d 

4B ld c,e 

DL pop de 

c9 ret 

@ DE3D 

CD B3 D6 call D6B3 

E5 push hl 

c5 push bc 

D5 push de 

cD C5 c9 call C9C5 
22 2C AC ld (AC2C),hl 
D5 push de 

E5 push hl 
EB ex de,hl 


huslik, cpc464 inside out 


used by FOR 


check whether FOR/NEXT match 
used by FOR ?? 


FOR NEXT 209 


c537 


c538 CD 32 C6 call C632 look for a NEXT entry on the Basic stack 


Cc53B CC AC F5 call z,F5AC set BASIC STACK pointer to <hl> 
Cc53E El pop hl 

c53F CD 51 DD call DD51 CHRGOT <a>; end of statement? =carry 
c542 11 00 00 ld de,0000 

C545 D4 86 D6 call nc,D686 get address of VARIABLE or subscript 
C548 44 ld b,h 

C549 4D ld c,1 

C54A El pop hl 

C54B E3 ex (sp),hl 

C54c 7A ld a,d 

C54D B3 ore 

C54E C4 Bd FF call nz,FFB8B test HL=DE? (try hl-de) 

c551l C2 F6 C5 jp nz,C5F6 Error: Unevpected next 

Cc554 EB ex de,hl 

c555 CD D2 DD call DDD2 get BASIC program counter in <hl> 
c558 E3 ex (sp),hl 

c559 CD CE DD call DDCE set BASIC program counter to <hl> 
c55C EI pop hl 

c55D Fl pop af a=b 

C55E E3 ex (sp),hl 

c55F D5 push de 

c560 C5 push bc 

C561 ES push hl 

c562 01 05 16 ld bc,1605 b=22., c=5 (real) 

c565 B9I op€ is it a real variable? 

C566 28 OB jr z,C573 yes, it is 

Cc568 01 02 10 ld bc,1002 b=16., c=2 (integer) 

C56B B9I cp c 

c56C 28 05 jr z,C573 is it an integer? 

C56E IE OD ld e,0D Type mismatch 

c570 C3 94 CA jp CA94 perform ERROR <e> routine 

-—— yes, it is 

0573 78 ld a,b stack len depending on VARTYPE 

Cc574 CD BO F5 call F5BO inc BASIC STACK pointer by <a>, (hl)=next lo 
0577 73 ld (hl),e 

c578 23 inc hl 

c579 72 1d (hl1),d 

C57A 23 inc hl 

C57B E3 ex (sp),hl 

c57C CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 

C57F EF [=] 

Cc580 CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
0583 79 ld a,c 

Cc584 CD D7 FE call FED? test <a>=VARTYPE? if not CINT,CREAL 
c587 ES push hl 

c588 21 27 AC ld h1,AC27 FAC used by FOR 

C58B CD 62 FF call FF62 copy FAC to (hl) 

C58E EI pop hl 

Cc58F CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 

c592 EC [TO] 

c593 CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
c596 E3 ex (sp),hl 

c597 79 ld a,c <c> was 02 or 05, depending on VARTYPE 
Cc598 CD D7 FE call FED7 test <a>=VARTYPE? if not CINT,CREAL 
C59B CD 62 FF call FF62 copy FAC to (hl) 

C59E EB ex de,hl 

c59F E3 ex (sp),hl 

C5AO EB ex de,hl 

C5Al 21 01 00 ld h1,0001 default STEP = 1 

C5A4 CD OD FF call FFOD set FAC to <hl> and mark integer 
C5A7 EB ex de,hl 

C5A8 TE ld a,(hl) 

C5A9 FE E6 cp E6 [STEP] 


Cc5A9 210 FOR NEXT huslik, cpc464 inside out 


Cc5BO CD FB CE 


C5B4 CD D7 FE 


c5C3 CD 4A DD 


C5cC CD D2 DD 


C5D9 ED 5B 2C 


C5E3 21 27 AC 
C5E6 CD 66 FF 


C5EA 32 26 AC 
C5EE CD CE DD 


C5Fl 2A 2C AC 
Cc5F4 18 0A 


AC 


jr nz,C5B3 
call DD3F 
call CEFB 
ld a,c 
call FED? 
ex (sp),hl 
call FF62 
call FDA3 
ex de,hl 
ld (hl),a 
inc hl 
ex de,hl 
pop hl 
call DD4A 
ex de,hl 
ld (hl),e 
inc hl 
ld (hl),d 
inc hl 
ex de,hl 
call DDD2 
ex de,hl 
ld (hl),e 
inc hl 
ld (hl),d 
inc hl 
pop de 
ld (hl),e 
inc hl 
ld (hl),d 
inc hl 
ld de, (AC2C) 
ld (hl),e 
inc hl 
ld (h1),d 
inc hl 
ld (h1),b 
pop de 
ld h1,AC27 
call FF66 
xor a 
ld (AC26),a 
pop hl 
call DDCE 
ld hl, (AC2C) 
jr C600 


.— Error: Unexpected next 


c5F6 IE Ol 
c5F8 C3 94 CA 


1d e,0l 
jp CA94 


STEP not given 

CHRGET <a>, skip blank, cp Ol 
evaluate (expression), CHRGET, cp Ol 
change to VARTYPE given at FOR 

test <a>=VARTYPE? if not CINT,CREAL 


copy FAC to (hl) 
get [SCH] <a> (FF,00,01) 


store SGN of STEP argument 


CHRGOT <a>; end of statement? else syntax er 


get BASIC program counter in <hl> 


used by FOR ?? 


FAC used by FOR 

copy variable (hl) to (de) 
reset flag 

flag used by FOR 


set BASIC program counter to <hl> 
used by FOR ?? 


Unexpected NEXT 
perform ERROR <e> routine 


.---- command: NEXT [<list of <variable>>] 


@ DE6L 
C5FB 3E FF 
C5FD 32 26 AC 


ld a,FF 
ld (AC26),a 


@ C5F4’ C62F’ 


C60C CD 61 C6 


ex de,hl 
call C632 
jr nz,C5F6 
ex de,hl 
call F5AC 
ex de,hl 
push hl 
call C661 


huslik, cpc464 inside out 


set flag 
flag used by FOR 


look for a NEXT entry on the Basic stack 
Error: Unexpected next 


set BASIC STACK pointer to <hl> 


FOR NEXT 211 C60C 


C65D 


28 OF jr z,C620 
Fl pop af 

23 inc hl 

5E ld e,(hl) 
23 inc hl 

56 ld d,(h1l) 
23 inc hl 

7E ld a,(hl) 
23 inc hl 

66 ld h,(hl) 
6F ld 1,a 

CD CE DD call DDCE 
EB ex de,hl 
c9 ret 

01 05 00 ld bc,0005 
09 add hl,bc 
5E ld e,(hl) 
23 inc hl 

56 ld d,(hl) 
El pop hl 

CD AC F5 call F5AC 
EB ex de,hl 
CD 55 DD call DD55 
38 CF jr c,C600 
c9 ret 


look for a NEXT entry on the 


@ C5381! C60L1! 
2A 8B BO ld h1,(BO8B) 


E5 
2B 
46 


212 


07 
19 
10 
04 
16 
0D 


push hl 
dec hl 
ld b,(h1l) 
inc hl 


ld h,a 

ex (sp),hl 
ld a,b 

cp 07 

jr z,C65E 
cp 10 

jr z,C64D 
cp 16 

jr nz,C654A 


dec hl 
ld a,(hl) 
dec hl 
ld 1,(h1l) 
ld h,a 


B8 FF call FFB8 


04 


pop hl 
jr nz,C65E 
ex de,hl 
pop hl 
ld a,b 
ret 


FOR NEXT 


set BASIC program counter to <hl> 


set BASIC STACK pointer to <hl> 
CHRBACK comma?; if=:CHRGET <a>, scf 
do the next variable 

Basic stack 


BASIC STACK pointer 


=], 
=16. 


=22. 


test HL=DE? (try hl-de) 


huslik, cpc464 inside 


out 


C65E 
C65F 


C661 
C662 
C663 
C664 
C665 
C667 
C669 
C66A 
C66D 
C66E 
C66F 
c672 
c673 
C676 
c677 
c679 
c67A 
C67B 
C67E 
C67F 
C680 
Cc681 
c682 
c683 
C684 
C685 
C688 
C689 
C68A 
C68C 
C68F 
c690 
C693 
c694 
C695 


c696 
C697 
c698 
c699 
C69A 
C69B 
C69E 
C69F 
C6Al 
C6A2 
C6A3 
C6A4 
C6A5 
C6A6 
C6A7 
C6A8 
C6A9 
C6AC 
C6AE 
C6oBl 
C6B2 
C6B3 
C6B4 
C6B5 
C6B6 


26 


00 


FF 


AC 


FC 


FF 


00 


AC 


pop hl 
jr C635 


ld e,(hl) 
inc hl 
ld d,(hl) 
inc hl 
cp 10 
jr z,C696 
push hl 
ld bc,0005 
ld a,c 
ex de,hl 
call FF4B 
pop hl 
ld a, (AC26) 
or a 
jr z,C689 
push hl 
add hl,bc 
call FCCC 
pop hl 
push hl 
dec hl 
ld d,(hl) 
dec hl 
ld e,(hl) 
ex de,hl 
call FF62 
pop hl 
push hl 
ld c,05 
call FD09 
pop hl 
ld bc,000A 
add hl,bc 
sub (hl) 
ret 


push hl 
ex de,hl 
ld e,(hl) 
inc hl 
ld d,(hl) 
ld a, (AC26) 
or a 
jr z,C6B7 
ex (sp),hl 
push hl 
inc hl 
inc hl 
ld a,(hl) 
inc hl 
ld h,(hl) 
ld 1,a 
call BDAC 
ld e,06 
jp nc,CA94 
ex de,hl 
pop hl 
ex (sp),hl 
ld (hl),d 
dec hl 
ld (hl),e 


huslik, cpc464 inside out 


set VARTYPE <a>, copy VARIABLE (hl) to FAC 


flag used by FOR 


perform [+] (plus) 


copy FAC to (hl) 


=5. 
compare two numbers (int or real) 


=10. 


flag used by FOR 


INT ARITH ADD; <hl>=<hl>+<de> 
Overflow 
perform ERROR <e> routine 


FOR NEXT 213 


C6B6 


El pop hl 

7E ld a,(hl) 
23 inc hl 

E5 push hl 
66 ld h,(hl) 
6F ld 1,a 

EB ex de,hl 
CD C4 BD call BDC4 
El pop hl 

23 inc hl 

23 inc hl 

23 inc hl 

96 sub (hl) 
c9 ret 


command: IF <logic expr> 


@ DE43 

CD FB CE call CEFB 
FE AO cp AO 

28 04 jr z,C6D2 
CD 37 DD call DD37 
EB [THEN] 

ES push hl 

CD A3 FD call FDA3 
El pop hl 

CC 9F 68 call z,E89F 
c8 ret z 

cD 51 DD call DD51 
D8 ret c 

FE 1& cp IE 

28 05 jr z,C6E8 
FE 1D cp In 

C2 AB DD jp nz,DDAB 


command: GOTO <line#> 
@ C6EL’ DEAL 


CD 67 E7 call E767 
EB ex de,hl 
c9 ret 


command: GOSUB <linef> 


INT ARITH, COMPARE <hl>,<de>; <a>= FF,00,01 


evaluate (expression), CHRGET, cp Ol 
[GOTO] 


CHRNEXT <a>, nz=Error; CHRGET 


get [SGN] <a> (FF,00,01) 

skip over statements till [ELSE] or <line en 
CHRGOT <a>; end of statement? =carry 

<next LINE#F> 

command: GOTO <linef#> 


<next ANDRESS> 
look for other tokens 


get address VAL into <de> 


get address VAL into <de> 


command: DATA <list of<data>> (skip this 1 


flag for GOSUB 


save PC and register <c>,<de> on BASIC STACK 


@ DEIF 

CD 67 E7 call E767 
CD EF E8 call E8SEF 
EB ex de,hl 
0E 00 1d c,09 

@ C8871| 

E5 push hl 

3E 06 ld a,06 
CD BO F5 call F5BO 
7 ld (hl),c 
23 inc hl 

73 ld (hl),e 
23 inc hl 

72 ld (hl),d 
23 inc hl 

EB ex de,hl 
CD D2 DD call DDD2 
EB ex de,hl 
73 ld (hl),e 
23 inc hl 

72 ld (hl),d 
23 inc hl 


214 GOTO GOSUB RETURN 


uses 6 bytes on BASIC STACK 
inc BASIC STACK pointer by <a>, (hl)=next lo 
marks BASIC STACK for GOSUB 


save <de> on stack 


get BASIC program counter in <hl> 


save return addr on BASIC STACK 


huslik, cpc464 inside out 


C70B 36 
Cc7oD EI 
C7OE CI 


06 


ld (h1),06 
pop hl 
ret 


----- command: RETURN 
@ DEI3 


C70OF co 


2E C7 
AC F5 


C728 CA A4 CE 


C72B C3 


.— find RETURN on BASIC STACK 


B6 C8 


@ c710! 


CT2E 2A 


8B BO 


-- command: 
@ DEAD 


C747 E5 
C748 CD 


18 CA 


ret nz 
call C72E 
call F5AC 
ld c,(hl) 
inc hl 

ld e,(hl) 
inc hl 

ld d,(hl) 
inc hl 

ld a,(hl) 
inc hl 

ld h, (hl) 
ld 1,a 
call DDCE 
ex de,hl 
ld a,c 

cp O1 

ret c 

jp z2,C8A4 
jp C8B6 


ld hl, (BO8B) 

dec hl 

ld a,(hl) 

push af 

ld a,l 
sub (hl) 
ld 1,a 
sbc a,a 
add a,h 
ld h,a 
inc hl 
pop af 

cp 06 

ret z 

or a 

jr nz,C73l 
ld e,03 

jp CA94 


marks len used 


find RETURN on BASIC STACK 
set BASIC STACK pointer to <hl> 


set BASIC program counter to <hl> 


flag for GOSUB? 

yes, return 

perform RETURN from EVERY/AFTER 
perform normal RETURN, part 2 


BASIC STACK pointer 


len of entry 


was len =6? 
yes, return 


no, step up to next entry 
Unexpected RETURN 
perform ERROR <e> routine 


WHILE <logic expression> 


push hl 
call CAl8 
push hl 
ex de,hl 
ld (AC2E),hl 
call C7B8 
call z,F5AC 
ld a,07 
call F5BO 
ex de,hl 
call DDD2 
ex de,hl 
ld (hl),e 
inc hl 
ld (h1),d 


huslik, cpc464 inside out 


called from WHILE 


used by WHILE, WEND 


find a WHILE entry on the Basic stack 


set BASIC STACK pointer to <hl> 
len of entry for WHILE 


inc BASIC STACK pointer by <a>, (hl)=next lo 


get BASIC program counter in <hl> 


WHILE WEND 


215 c762 


C7B7 


23 inc hl 
Dl pop de 

73 ld (hl),e 
23 inc hl 

72 ld (hl),d 
23 inc hl 

EB ex de,hl 
E3 ex (sp),hl 
EB ex de,hl 
73 ld (hl),e 
23 inc hl 

72 ld (h1),d 
23 inc hl 

36 07 ld (h1),07 
EB ex de,hl 
DL pop de 

18 2A jr C7AO 
command: WEND 

@ DEAB 

co ret nz 

EB ex de,hl 
CD B8 C7 call C7B8 
lE 1E ld e,lE 

c2 94 CA jp nz,CA94 
E5 push hl 

11 07 00 ld de,0007 
19 add hl,de 
CD AC F5 call F5AC 
CD D2 DD call DDD2 
22 2E AC ld (AC2E),hl 
El pop hl 

5E ld e,(hl) 
23 inc hl 

56 ld d,(hl) 
23 inc hl 

EB ex de,hl 
CD CE DD call DDCE 
EB ex de,hl 
5E ld e,(hl) 
23 inc hl 

56 ld d,(hl) 
23 inc hl 

7E ld a,(hl) 
23 inc hl 

66 ld h, (hl) 
6F ld 1,a 

D5 push de 

CD FB CE call CEFB 
E5 push hl 

CD A3 FD call FDA3 
El pop hl 

Dl pop de 

co ret nz 

2A 2E AC ld hl, (AC2E) 
CD CE DD call DDCE 
3E 07 ld a,07 

CD AO F5 call F5AO 
EB ex de,hl 

c9 ret 

216 WHILE WEND 


find a WHILE entry on the Basic stack 
Unexpected WEND 
perform ERRÜR <e> routine 


len of WHILE entry on Basic stack 
set BASIC STACK pointer to <hl> 


get BASIC program counter in <hl> 
used by WHILE, WEND 


set BASIC program counter to <hl> 


evaluate (expression), CHRGET, cp Ol 


get [SGN] <a> (FF,00,01) 


used by WHILE, WEND 

set BASIC program counter to <hl> 
len of entry for WHILE 

decrement BASIC STACK pointer by <a> 


huslik, cpc464 inside out 


— find a WHILE entry on the Basic stack 


@ c750! C778! 
C7B8 2A 8B BO ld h1,(BO8B) BASIC STACK pointer 
C7BB 2B dec hl 
C7BC ES push hl 
C7BD 7D ld a,l 
C7BE 96 sub (hl) 
C7BF 6F ld 1,a 
c7CO 9F sbc a,a 
C7C1 84 add a,h 
c7Cc2 67 ld h,a 
c7cC3 23 inc hl 
C7C4 E3 ex (sp),hl 
c7c5 7E ld a,(hl) 
C’C6 FE 10 cp 10 =16. 
c7c8 28 16 jr z,C7EO it’s a FOR integer entry 
C7’CA FE 16 cp 16 =22. 
c7cc 28 12 jr z,C7EO it’s a FOR real entry 
CICE FE 07 cp 07 is it a WHILE entry? 
c7D0O 20 0C jr nz,C7DE no, it’s not 
c7D2 2B dec hl 
C7D3 2B dec hl 
C7D4 2B dec hl 
Cc7D5 T7E ld a,(hl) 
C7D6 2B dec hl 
C7D7 6E ld 1,(hl) 
cm8 67 ld h,a 
C7D9 CD B8 FF call FFB8 test HL=DE? (try hl-de) 
Cc7Dc 20 02 jr nz,C7EO ... 
C7DE EI pop hl 
C7DF CI ret 
C7EO EI pop hl 
C7El 18 D8 jr C7BB ... 
— command: ON 
@ DE65 
C7E3 FE 9C cp 9C [ERROR] 
C7E5S CA E5 CB jp z,CBE5 here: ON ERROR 
-— here: ON <expression> 
C7Eß CD 67 CE call CE67 get byte VAL(expression) in <de> 
C7EB 4F ld c,a = result 
CTEC 46 ld b,(hl) get token 
C7ED 78 ld a,b 
C7EE FE AO cp AO [GOTO] 
C7FO 28 05 jr z,C7F7 here: ON <expression> GOTO or GOSUB 
C7F2 CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
C7F5 9F [GOSUB) 
C7F6 2B dec hl 


— here: ON <expression> GOTO or GOSUB 
@ C7FO’ C804° 


C7F7 OD dec c 

C7F8 78 ld a,b =token 

C7F9 CA AB DD jp z,DDAB look for other tokens 

C’FC CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 

C’FF CD EL CE call CEEl get line# into <de> 

c802 FE 2C cp 2C 28 

Cc804 28 Fl jr z,C7F7 here: ON <expression> GOTO or GOSUB 
c806 CI ret 


huslik, cpc464 inside out ON 217 


C806 


-_-- there is a higher priority 


@ DD82! 
C807 AF xor a reset flag 
c808 32 30 AC ld (AC30),a used by ON 
C80B CD FB BC call BCFB KL NEXT SYNC, =(hl), =<a> prev. prio, =carry 
C80E 30 1D jr nc,C82D no more event 
c810 47 ld b,a 
c8ll 3A 30 Ac ld a,(AC30) used by ON 
c81l4 E6 7F and 7F clear bit 7 
c8l6 32 30 AC ld (AC30),a used by ON 
c819 cC5 push bc 
C8lA ES push hl 
C8lB CD FE BC call BCFE KL DO SYNC, perform SYNC EVENT block (hl) 
C8ölE EL pop hl 
celF cl pop bc 
c820 3A 30 AC Id a,(AC30) used by ON 
c823 17 rla 
c824 F5 push af 
c825 78 ld a,b 
C826 D4 Ol BD call nc,BDOLl KL DONE SYNC, (hl)=block, <a>=prev. priority 
c829 Fl pop af 
c82A 17 rla 
Cc82B 30 DE jr nc,C808B next 
C82D 3A 30 AC ld a, (AC30) used by ON 
c830 E6 04 and 04 mask out 
0832 C4 53 C4 call nz,C453 establish BREAK EVENT 
0835 2A 34 AE ld hl, (AE34) program counter on RUN 
c838 3A 30 AC ld a, (AC30) used by ON 
C83B E6 03 and 03 mask out 
c83D C8 ret z 
C83E IF rra 
C83F DA 6B CB jp c,CB6B perform a RREAK 
c842 23 inc hl 
c843 Fl pop af 
0844 C3 93 DD jp DD93 RUN LOOP, part 2 
u event routine BREAK, part 2 
@ C46C 
C847 22 36 AC ld (AC36),hl save for Basic PC on BREAK (within event blo 
C84A 3E 04 ld a,04 =4. 
c84c 30 50 jr nc,C89E ... 
C84E 2A 34 AC ld h1,(AC34) line# for ON BREAK GOSUB 
c851 7C ld a,h 
Cc852 B5 or 1 
c853 C4 D6 DD call nz,DDD6 get BASIC linef# at PC in <hl>, =carry 
C856 3E 41 ld a,4l =65, 
c858 30 44 jr nc,C89E ... 
c85A 11 31 AC ld de,AC31 ... 
c85D OE 02 ld c,02 =2. 
c85F 18 25 jr C886 ... 


-.- save subroutine addr @ queue+tl0. 
@ c952! c993! 


C86l D5 push de 

C862 CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
C865 9F [GOSUB] 

C866 CD 67 E7 call E767 get address VAL into <de> 
c869 42 ld b,d 

C86A 4B ld c,e bc=de 

C86B CD 61 DD call DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
C86E DI pop de 

C86F E5 push hl 

c870 21 0A 00 ld h1,000A =10. 

c873 19 add hl,de 

0874 71 ld (hl),c 
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inc hl 

ld (hl),b 
pop hl 
ret 


= event routine TIMER 
@ AC66: AC78: AC80: AC92: C928: 


store SUBROUTINE address 


get BASIC line# at PC in <hl>, =carry 
=64. 


=1. 


save PC and register <c>,<de> on BASIC STACK 
program counter on RUN 


program counter on RUN 
=194. 


used by ON 


-=-9 


KL DONE SYNC, (hl)=block, <a>=prev. priority 


do the RUN LOOP 


‚save for Basic PC on BREAK (within event blo 


--4 


KL DONE SYNC, (hl)=block, <a>=prev. priority 
establish BREAK EVENT 


... 


c879 23 inc hl 
C87A 23 inc hl 
c87B 23 inc hl 
C87C EB ex de,hl 
C87D CD D6 DD call DDD6 
c880 3E 40 ld a,40 
c882 30 1A jr nc,C89E 
c884 OE Ol ld c,0l 
c886 D5 push de 
c887 CD F6 C6 call C6F6 
C88A 2A 34 AE ld hl, (AE34) 
C88D EB ex de,hl 
C88E El pop hl 
c88F 70 ld (hl),b 
c890 23 inc hl 
c89lL 73 ld (hl),e 
0892 23 inc hl 
0893 72 ld (hl),d 
c894 23 inc hl 
c895 5E ld e,(hl) 
c896 23 inc hl 
c897 56 ld d,(hl) 
c898 EB ex de,hl 
c899 22 34 AE ld (AE34),hl 
c89C 3E C2 ld a,C2 
@ C84C’ C858° C882’ 
C89E 21 30 AC ld h1,AC30 
C8Al B6 or (hl) 
c8A2 77 ld (hl),a 
c8A3 CI ret 
rn perform RETURN from EVERY/AFTER 
@ c728 
C8A4 TE ld a,(hl) 
C8A5 23 inc hl 
C8A6 5E ld e,(hl) 
C8A7 23 inc hl 
C8A8 56 ld d,(hl) 
Cc8A9 D5 push de 
Cc8AA O1 F7 FF ld be,FFF7 
C8AD 09 add hl,bce 
C8AE CD Ol BD call BDOl 
C8Bl EI pop hl 
C8B2 Fl pop af 
C8B3 C3 74 DD jp DD74 
—— perform normal RETURN, part 2 
@ C72B 
C8B6 7E ld a,(hl) 
C8B7 2A 36 AC ld hl, (AC36) 
C8BA Ol FC FF ld bce,FFFC 
C8BD 09 add hl,bc 
C8BE CD Ol BD call BDOl 
c&c1 CD 53 C4 call C453 
C8C4 2A 32 AC ld h1, (AC32) 
c8c7 Fl pop af 
c8C8 C3 74 DD jp DD74 
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do the RUN LOOP 


ON 219 cC8c8 


command: ON BREAK 

@ DE67 

FE CE cp CE 

11 00 00 ld de,0000 
28 08 jr z,C8DA 
CD 37 DD call DD37 
9F [GOSUB] 

CD 67 E7 call E767 
2B dec hl 

ED 53 34 AC 1d (AC34),de 
c3 3F DD jp DD3F 
command: DI 

@ DEB7 

E5 push hl 

CD 04 BD call BDO4 
El pop hl 

c9 ret 
command: EI 

@ DEB9I 

E5 push hl 

CD 07 BD call BDO? 
El pop hl 

c9 ret 


set up all default events 


@ c180! 

CD A7 BC call BCA7 
21 5C AC ld h1,AC5C 
06 04 ld b,04 

E5 push hl 

CD EC BC call BCEC 
El pop hl 

11 12 00 ld de,0012 
19 add hl,de 
10 F5 djnz C8F5 
CD 43 BB call BB48 
CD F5 BC call BCF5 
21 00 00 ld h1,0000 
22 34 AC ld (AC34),hl 
cD 53 C4 call C453 
21 38 AC ld h1,AC38 
11 05 03 ld de,0305 
01 00 08 ld bc,0800 
CD 24 C9 call C924 
21 62 AC ld h1,AC62 
11 0B 04 ld de,040B 
01 01 02 ld bc,0201 


initialise all event blocks 


@ c918! C93D 


Cc5 push bc 

D5 push de 

0OE FD ld c,FD 
11 79 C8 ld de,C879 
CD EF BC call BCEF 
Dl pop de 

D5 push de 

16 00 ld d,00 
19 add hl,de 
Dl pop de 

cl pop bc 

79 ld a,c 

B7 or a 

220 ON 


[STOP] 

reset line# to 0000 

ON BREAK STOP 

CHRNEXT <a>, nz=Error; CHRGET 


get address VAL into <de> 


line# £or ON BREAK GOSUB 
CHRGET <a>, skip blank, cp Ol 


KL EVENT DISABLE 


KL EVENT ENABLE 


SOUND RESET 
TIMER, block #0 (4 blocks total) 
count of blocks to remove 


KL DEL TICKER, remove block (hl) from tick 1 
displacement to next entry 


delete next ticker 

KM DISARM BREAK 

KL SYNC RESET, clear synchronous event queue 
reset linef# 

line# for ON BREAK GOSUB 

establish BREAK EVENT 

sound chan 1 (bit 0) 

<d>=3 sound events (3 sound channels) 
<b>=class for SOUND event 

initialise all event blocks 

timer #0 +6= event block timer #0 
<d>=4 timers 

<b>=class for TIMER event #0 


enable upper, disable lower ROM 
event routine TIMER 
KL INIT EVENT BLOCK (hl)=block, <b>=class, < 


<e>=displacement to next block 
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c937 28 03 jr z,C93C do not change priority for sound chan 
c939 78 ld a,b 


C93A 87 add a,a <b>=2%*<b>; increase timer priority 
c93B 47 ld b,a 

c93C 15 dec d <d>=count nf blocks 

c93D 20 E5 jr.nz,C924 next block 

c93F CI ret 


— command: ON SQ(<sound channnel>) GOSUB 


@ DE6B 
c940 CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
c943 28 Ri 
C944 CD 67 CE call CE67 get byte VAL(expression) in <de> 
c947 F5 push af 
Cc948 CD 5D C9 call C95D check for legal SOUND chan 
C94B B7 or a - 
c94C 20 1E jr nz,C96C Error: Improper argument 
C94E CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
c951 29 ) 
c952 CD 61 C8 call C861 save subroutine addr @ queuetl0. 
c955 Fl pop af 
c956 ES push hl 
Cc957 EB ex de,hl 
c958 CD BO BC call BCBO SOUND ARM EVENT, <a>=channels, (hl)=event bl 
c95B EI pop hl 
c95C CI ret 
— check for legal SOUND chan 
@ C948! 
c95D IF rra 
C95E 11 38 AC ld de,AC38 sound chan 1 (bit 0) 
c961 DE ret c 
c962 IF rra 
C963 11 44 AC ld de,AC44 sound chan 2 (bit 1) 
Cc966 DE ret c 
c967 IF rra 
Cc968 11 50 AC ld de,AC50 sound chan 3 (bit 2) 
C96B D8 ret c 
—_— Error: Improper argument 
c96C IE 05 ld e,05 Improper argument 
CI96E CI 94 CA jp CA94 perform ERROR <e> routine 
----- command: AFTER <time period> [,<timer>] GOSUB <line#> 
@ DEOL 
c971 CD 7C CE call CE7C get integer VAL of expression, neg=error 
c974 01 00 00 ld bc,0000 
c977 18 05 jr C97E 
.-- command: EVERY <time period> [,<timer>] GOSUB <line#> 
@ DE3B 
c979 CD 7C CE call CE7C get integer VAL of expression, neg=error 
c97C 42 ld b,d 
c97D 4B ld c,e bc=de 
C97E D5 push de 
C97F C5 push bc 
c980 cD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
c983 11 00 00 ld de,0000 default timer O0 
Cc986 DC 86 CE call c,CE86 get integer VAL(expression) in <de> 
c989 EB ex de,hl 
C98A CD Bl C9 call C9Bl get address of TIMER BLOCK 
Cc98D ES push hl 
C98E O1 06 00 ld bc,0006 len of TICKER data 
c991 09 add hl,be 
c992 EB ex de,hl 
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c993 CD 61 C8 call C861 save subroutine addr @ queuetl0. 


c996 DL pop de 
c997 cl pop bc 
c998 E3 ex (sp),hl 
Cc999 EB ex de,hl 
C99A CD EI BC call BCE9I KL ADD TICKER, (hl)=tick block, <de>=initial 
c99D EI pop hl 
c99E CI ret 
.- function: REMAIN(<timer>) 
@ DID4 
C99F CD 8D FE call FE8D function: CINT(<num expression>) in <hl> 
C9A2 CD Bl CI call C9Bl get address of TIMER BLOCK 
C9A5 CD EC BC call BCEC KL DEL TICFER, remove block (hl) from tick 1 
C9A8 38 03 jr c,C9AD result valid 
C9AA 11 00 00 ld de,0000 timer not initialised 
C9Y9AD EB ex de,hl 
C9AE C3 OD FF jp FFOD set FAC to <hl> and mark integer 


— get address of TIMER BLOCK 
@ CI8A! CYA2I 


C9Bl 7C ld a,h 
C9B2 B7 or a test <h> for zero 
C9B3 20 B7 jr nz,C96C Error: Improper argument 
C9B5 7D ld a,l 
C9B6 FE 04 cp 04 max VAL =3 
C9B8 30 B2 jr nc,C96C Error: Improper argument 
C9BA 87 add a,a 
CY9BB 87 add a,a 
CY9BC 87 add a,a 
C9BD 85 add a,l 
CYHBE 87 add a,a <1>=<1>%*18 
CI9BF 6F ld 1,a 
c9c0O 01 5C AC ld be,AC5C TIMER, block #0 (4 blocks total) 
c9c3 09 add hl,bc add displacement 
c9c4 CI ret 
._- check whether FOR/NEXT match 
@ c52F! 
C9C5 EB ex de,hl 
C9C6 CD D2 DD call DDD2 get BASIC rrogram counter in <hl> 
C9C9 EB ex de,hl 
C9ICA 2B dec hl 
CICB 06 Ol ld b,01 
C9CD OE 1A ld c,1A NEXT missing 
CICF CD 23 EI call E923 test line for ELSE or THEN; error if pgm end 
C9D2 ES push hl 
C9D3 CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
C9D6 FE BO cp BO [NEXT] 
C9D8 28 08 jr z,C9E2 found 
C9DA EL pop hl 
C9DB FE 9E cp 9E [FOR] 
C9DD 20 EE jr nz,C9CD no, it’s not [FOR] 
CI9DF 04 inc b inc count for [FOR] 
C9EO 18 EB jr C9CD continue check 
C9E2 Fl pop af 
C9E3 EB ex de,hl 
C9E4 ES push hl 
C9E5 CD D2 DD call DDD2 get BASIC program counter in <hl> 
C9ES E3 ex (sp),hl 
C9E9 CD CE DD call DDCE set BASIC program counter to <hl> 
C9EC EB ex de,hl 
C9ED 05 dec b 
CIEE 28 24 jr z,CAl4 FOR/NEXT match, return 
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CD D2 DD 


CD CE DD 


18 B9 


Dl 
c3 3F DD 


called from 
@ C748! 
2B 

EB 

CD D2 DD 
EB 

06 00 

04 

0E ID 
CD 23 EI 
E5 

CD 3F DD 
El 

FE D6 

28 Fl 

FE D5 

20 EE 

10 EC 

CD 3F DD 
c3 3F DD 


call DD3F 
jr z,CA03 
push bc 

push de 

call D686 

pop de 
pop bc 
call DD55 
jr nc,CA03 
djnz C9F5 
dec hl 

ld a,b 

or a 

jr z,CAl4 
ex de,hl 
call DDD2 
ex (sp),hl 
call DDCE 
pop hl 
ex de,hl 
jr CICD 


pop de 
jp DD3F 


WHILE 


dec hl 

ex de,hl 
call DDD2 
ex de,hl 
ld b,00 
inc b 

ld c,1D 
call E923 
push hl 
call DD3F 
pop hl 

cp D6 

jr z,CA20 
cp D5 

jr nz,CA2l 
djnz CA21 
call DD3F 
jp DD3F 


CHRGET <a>, skip blank, cp Ol 
end of statement 


get address of VARIABLE or subscript 


CHRBACK comma?; if=:CHRGET <a>, sc£ 
not a comma 
get next variable 


FOR/NEXT match, return 
get BASIC program counter in <hl> 


set BASIC program counter to <hl> 


check next line 


CHRGET <a>, skip blank, cp Ol 


get BASIC program counter in <hl> 
init counter for WHILE and WEND 


WEND missing 
test line for ELSE or THEN; error if pgm end 


CHRGET <a>, skip blank, cp Ol 


[WHILE] 

WHILE found, increment count 
[WEND] 

not a WEND, try next 

WEND found, decrement count 
CHRGET <a>, skip blank, cp Ol 
CHRGET <a>, skip blank, cp Ol 


put 0 in edit buffer and read a line 


@ COBO! C119! D568! DBAD! 


21 A4 AC 
36 00 
Cc3 3A BD 


1d h1,ACA4 
1d (h1),00 
jp BD3A 


EDIT BUFFER 
=0. 
EDI LINE EDITOR (hl) 


keyboard edit line in edit buffer 


@ CO5F! 

21 A4 AC 
CD 3A BD 
C3 4E C3 


ld h1,ACA4 
call BD3A 
jp C34E 


EDIT BUFFER 
EDI LINE EDITOR (hl) 
output °LF to channel 


read a line from tape to edit buffer 


@ EBFS! 
c5 

D5 

21 A4 AC 


push bc 
push de 
ld h1,ACA4 
push hl 
ld b,01 
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EDIT BUFFER 
char count for input 
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CA54 OE 00 ld c,00 =0. 


cA56 CD 80 BC call BC80 CAS IN CHAR from input file 
CA59 CA 6B CB jp z,CB6B perform a BREAK 
CA5C 30 22 jr nc,CA80 nothing on 
CASE 77 ld (hl),a store char in buffer 
CASF FE 0D cp OD CR (mM) 
CA6l 28 17 jr z,CA7A it is a ’CR, replace by 0 
CA63 OE 00 ld c,00 
CA65 FE 0A cp 0A "LF (I) 
CA67 20 06 jr nz,CA6F not a linefeed 
CA69 78 ld a,b get count 
CA6A 3D dec a 
CA6B 28 E7 jr z,CA54 count =1 before, ignore line feed 
CA6D OE FF ld c,FF 
CA6F 78 ld a,b get count 
CA7O B7 ora 
CAT 1E 17 ld e,17 Line too long 
CA73 CA 94 CA jp z,CA94 per£form ERROR <e> routine 
CA76 23 inc hl point to next buffer location 
CcA77 04 inc b ine count 
CA78 18 DC jr cA56 next char 
CA7TA 79 ld a,c 
CATB B7 ora 
CA7C 20 D8 jr nz,CA56 next char 
CATE 77 ld (hl),a store in buffer 
CA7F 37 sc£f 
CA8BO EI pop hl 
CA8l DI pop de 
CcAB2 CL pop bc 
CA83 C9 ret 
.— reset last error# to 0 
@ co2B! 
CAB4 AF xor a =0 
.—— store error# and error address 
@ CA9B! 
CA85 32 AA AD ld (ADAA),a last Basic ERROR number 
CA88 CD D2 DD call DDD2 get BASIC program counter in <hl> 
CA8B 22 A6 AD ld (ADA6),hl ERROR ADDRESS (addr where error occurred) 
CABE CI ret 
-- command: ERROR <error#> 
@ DE39 
CABF CD 6D CE call CE6D <a>=next VAL, O=error 
cA92 CO ret nz 
CA93 5F ld e,a 


——. perform ERROR <e> routine 
@ c207 C570 C5F8 C6AE C744 C77D CI6E CA73 CBO2 CB84 CBC8 
@ CC3l CEAD CFEF DO7D D122 DI3E D267 D282 D34B D4AB D516 
@ D64C DIYDD DBDO DC44 DDO8 DD28 DDC8 DF2D E310O E757 E7AO 
@ E8EC E92D EB45 EBB5 ECO6 EC3A FI1B7 F348 F34D F5E3 F72B 
@ F740 F86B F89E FBCD FD55 FED4 FF42 


CA94 CD 04 AC call ACO4 Indirection: ERROR MESSAGE 

CA97 TB ld a,e 

CA98 CD 85 CA call CA85 store error# and error address 

CA9B 2A 34 AE ld h1,(AE34) program co'mnter on RUN 

CA9E 22 AS AD ld (ADA8),hl program counter on error break 

CAAl CD BO CB call CBBO save pointers if program isn’t ended 
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—— perform ERROR <e> routine, part 2 


@ ccoo 
CAA4 31 00 CO ld sp,c000 init stack pointer 
CAA7 2A 32 AE ld hl, (AE32) temp storage BASIC STACK pointer 
CAAA CD AC F5 call F5AC set BASIC STACK pointer to <hl> 
CAAD CD B3 FB call FBB3 reset string stack 
CABO CD FD D9 call DIFD reset FN pointers as not used 
CAB3 CD DF CA call CADF get next line after error <hl>, if none <hl> 
CAB6 2A AF AD ld hl, (ADAF) ON ERROR address 
CAB9 EB ex de,hl 
CABA 21 Bl AD ld h1,ADBl flag ON ERROR 
CABD 30 0C jr nc,CACB this is an error 
CABF 7A ld a,d 
CACO B3 or e 
CACl 28 08 jr z,CACB this is an error 
CAC3 A6 and (hl) 
CAC4 20 05 jr nz,CACB this is an error 
CAC6 35 dec (hl) 
CAC7 EB ex de,hl get ON ERROR address 
CAC8 C3 93 DD jp DD93 RUN LOOP, part 2 
u this is an error 
CACB 36 00 ld (h1),00 reset ON ERROR flag 
CACD 3A AA AD ld a, (ADAA) last Basic ERROR number 
CADO CD 45 CC call CC45 get error message text (hl) 
CAD3 2A A6 AD ld hl, (ADA6) ERROR ADDRESS (addr where error occurred) 
CAD6 CD CE DD call DDCE set BASIC program counter to <hl> 
CAD9 CD 36 CB call CB36 print text (de); if RUN: ’in <linef#> 
CADC C3 64 CO jp C064 reset Basic 


— get next line after error <hl>, if none <hl>=0000 
@ CO8A! CAB3! DOEF! 


CADF 2A A6 AD ld hl, (ADA6) ERROR ADDRESS (addr where error occurred) 
CAE2 CD DI DD call DDD9I is there a linef#? 

CAE5 D8 ret c 

CAE6 21 00 00 ‚ld h1,0000 0000 

CAE9 C9I ret when there is no further line 


— Error: Division by zero 
@ D50OE FD31l 


CAEA D5 push de 

CAEB ES push hl 

CAEC 21 13 CD ld h1,CD13 Error message: Division by zero 
CAEF IE OB ld e,OB Division by zero 

CAFl 18 07 jr CAFA 


----- Error: Overflow 
@ D5Sl1l ECD9 ED4l FCDE FD34 


CAF3 D5 push de 

CAF4 ES push hl 

CAF5S 21 BI CC ld h1,CCB9 Error message: Overflow 
CAF8 IE 06 ld e,06 Overflow 

CAFA F5 push af 

CAFB ES push hl 

CAFC 2A AF AD ld h1,(ADAF) ON ERROR address 

CAFF 7C ld a,h 

CBOO B5 or 1 ON ERROR address present? 
CBOl EI pop hl 

CcBO2 C2 94 CA jp nz,CA94 perform ERROR <e> routine 
CBO5S AF xor a a=0 

CBO6 CD A2 Cl call C1A2 set output channel to <a>, a= old channel 
CBO9 F5 push af 

CBOA CD 41 C3 call C341 output text (hl) to channel 
CBOD CD 4E C3 call C34E output °LF to channel 

CBlO Fl pop af restore old channel 
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cD A2 ci call C1A2 
Fl pop af 

El pop hl 

D1 pop de 

c9 ret 


set output channel to <a>, a= old channel 


print ’undefined line <line#> in <line#> 


@ E899! 

CD 86 C3 call C386 
21 23 CB ld h1,CB23 
CD 48 CB call CB48 
18 1D jr CB40 


“Undefined line 


set chan 0, print char <a> at a new line 
“Undefined line 

print text (hl) and line# <de> 

if from RUN mode print ’in <linef#> 


55 6E 64 65 66 69 6E 65 64 20 6C 69 6E 65 20 00 “Undefined line . 


print ’BREAK’; if RUN: ’in <linef#> 


@ CB5C! CB6B! 
ll 4F CB ld de,CB4F 


"Break 


print text (de); if RUN: ’in <linef#> 


@ cAD9! 

CD m Ci call C19D 
CD 86 C3 call C386 
EB ex de,hl 
CD 41 cC3 call C341 


set in/out channel to 0 
set chan O0, print char <a> at a new line 


output text (hl) to channel 


if from RUN mode print ’in <line#> 


CD D6 DD call DDD6 
DO ret nc 

EB ex de,hl 
21 55 CB ld h1,CB55 


get BASIC line# at PC in <hl>, =carry 


‘in 


print text (hl) and line# <de> 


@ CBILE! 
CD 41 C3 call C341 
EB ex de,hl 


c3 79 EE jp EE79 


"Break 
42 72 65 61 6B 00 


* in 
20 69 6E 20 00 


command: STOP 


@ DE9D 

co ret nz 

E5 push hl 
CD 33 CB call CB33 
El pop hl 

CD 93 CB call CB93 
18 2B jr CB9O 
command: END 

@ DE31 

co ret nz 

CD 93 CB call CB93 
18 IC jr CB87 


perform a BREAK 


@ C4ll C449 C83F CA59 


CD 33 CB call CB33 


2A 34 AE ld h1,(AE34) 


CD BO CB call CBBO 
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output text (hl) to channel 


print line# 


print ’BREAK’; if RUN: ’in <linef#> 


save pointers on STOP or END 
reset Basic 


save pointers on STOP or END 


D27B D2A5 D56B DBBO EA0O8 ECB2 
print ‘BREAK’; if RUN: ’in <linef#> 
program counter on RUN 
save pointers if program isn’t ended 
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CB74 18 


1A 


@ DDAB 


CB76 CD 


CB90 C3 


reset 


D6 DD 
12 

AB CB 
Bl AD 


13 

94 CA 
98 D2 
Al D2 
CB DD 


64 c0 


jr CB9O 


perform an error break 


call DDD6 
jr nc,CB8D 
call CBAB 
ld a,(ADBl) 
or a 

ld e,13 

jp nz,CA94 
call D298 
call D2Al 
call DDCB 


jp C064 


save pointers on STOP or END 


@ CB60! CB66! 


CB93 EB 
CB94 CD 
CB97 EB 
CB98 DO 
CB99 TE 
CB9A FE 
CBIC 28 


D6 DD 


ol 
OB 


07 


CE DD 


05 


ex de,hl 
call DDD6 
ex de,hl 
ret nc 

ld a,(hl) 
cp Ol 

jr z,CBA9 
inc hl 

ld a,(hl) 
inc hl 

or (hl) 
jr z,CBAB 
inc hl 
call DDCE 
inc hl 

jr CBBO 


reset CONTinue pointer 


@ C17D! CB7B! CBA2” 


CBAB 21 
CBAE 18 


00 00 
0C 


1d h1,0000 
jr CBBC 


@ CAAl! CB7L! CBA9” 


D6 DD 


AB AD 


11 
94 CA 


AD AD 
CE DD 
BI BC 


ex de,hl 
call DDD6 
ret nc 

call DDD2 

ld (ADAD),hl 
ex de,hl 

ld (ADAB),hl 
ret 


command: CONT 


ret nz 
ld hl, (ADAB) 
ld a,h 
or 1 
ld e,1l 
jp z,CA94 
push hl 
ld hl, (ADAD) 
call DDCE 
call BCB9 


huslik, cpc464 inside out 


reset Basic 


get BASIC line# at PC in <hl>, =carry 
no further line 

reset CONTinue pointer 

flag ON ERROR 


RESUME missing 
perform ERROR <e> routine 
command: CLOSEIN 


command: CLOSEOUT 
reset BASIF program counter 


reset Basic 


get BASIC line# at PC in <hl>, =carry 


<statement end> 
line not ended (’:) 


reset CONTinue pointer 
set BASIC program counter to <hl> 


save pointers if program isn’t ended 


save pointers if program isn’t ended 


get BASIC line# at PC in <hl>, =carry 


get BASIC program counter in <hl> 
save Basic PC on STOP or END 


CONTinue pointer 


CONTinue pointer 


Cannot CONTinue 
perform ERROR <e> routine 


save Basic PC on STOP or END 
set BASIC program counter to <hl> 
SOUND CONTINUE stopped sounds 


ERROR HANDLING 227 


CBD2 


CBD5S EI pop hl 


CBD6 C3 74 DD jp DD74 do the RUN LOOP 
- reset ON ERROR FLAG and ADDRESS 
@ C17A! 
CBD9I AF xor a 
CBDA 32 Bl AD ld (ADBl),a flag ON ERROR 
— reset ON ERROR ADDRESS 
@ CBF8! 
CBDD 11 00 00 ld de,0000 
CBEO ED 53 AF AD ld (ADAF),de ON ERROR address 
CBE4 CI ret 
-_—- here: ON ERROR 
@ C7E5 
CBE5S CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
CBEß CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
CBEB AO [GOTO] 
CBEC CD El CE call CEEl get line# into <de> 
CBEF ES push hl 
CBFO CD 9A E7 call E79A search line# <de> from start, <hl>=addr, nc= 
CBF3 22 AF AD ld (ADAF),hl ON ERROR ardress 
CBF6 EI pop hl 
CBF7 CI ret 
— command: ON ERROR 
@ DE69 
CBF8 CD DD CB call CBDD reset ON ERROR ADDRESS 
CBFB 3A Bl AD ld a, (ADBLl) flag ON ERROR 
CBFE B7 or a 
CBFF C8 ret z 1f flag not set 
CcC00 C3 A4 CA jp CAA4 perform ERROR <e> routine, part 2 
-_ command: RESUME [<line#>] or RESUME NEXT 
@ DE9L 
Ccc03 28 14 jr z,Cc19 no argument present 
Cc05 FE BO cp BO [NEXT] 
CC07 28 17 jr z,CC20 command: RESUME NEXT 
CC09 CD 67 E7 call E767 get address VAL into <de> 
CCOC CD 4A DD call DD4A CHRGOT <a>; end of statement? else syntax er 
CCOF D5 push de 
ccC10O CD 2B CC call CC2B try to resume after error break 
cc13 El pop hl 
Ccl4 23 inc hl 
cc15 Fl pop af 
ccC16 C3 93 DD _jp DD93 RUN LOOP, part 2 
Cc19 CD 2B CC call CC2B try to resume after error break 
cclc Fl pop af 
CciD cC3 74 DD jp DD74 do the RUN LOOP 
.— command: RESUME NEXT 
cc20 CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
cc23 co ret nz 
Ccc24 CD 2B CC call CC2B try to resume after error break 
cc27 23 inc hl 
Ccc28 C3 EF E8 jp E8EF command: DATA <list of<data>> (skip this 1 


erg try to resume after error break 
@ cc10! Cc19! Cc24! 


CC2B 3A Bl AD ld a,(ADBl) flag ON ERROR 

CC2E B7 or a 

cc2F IE 14 ld e,14 Unexpected RESUME 

cc3l CA 94 CA jp z,CA94 perform ERROR <e> routine 
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huslik, cpc464 


AF xor a 

32 AA AD ld (ADAA),a 
32 Bl AD ld (ADBl),a 
2A A6 AD ld hl, (ADA6) 
CD CE DD call DDCE 

2A A8 AD ld hl, (ADA8) 
c9 ret 


get error message text (hl) 
@ CADO! CC58” 

11 5B CC ld de,CC5B 
cp IF 

ret nc 

or a 

ret z 

ld b,a 

ld a,(de) 
inc de 

or a 

jr nz,CC4E 
dec b 

jr nz,CC4E 
ld a,(de) 
ora 

jr z,CC45 
ret 


FB 


F& 


EB 


"ERROR MESSAGES 
6E 6B 6E 6F 
65 70 


inside out 


reset 
last Basic ERROR number 
flag ON ERROR 


ERROR ADDRESS (addr where error occurred) 
set BASIC program counter to <hl> 
program counter on error break 


"ERROR MESSAGES 
max = 30. 
unknown error 
unknown error 
error# 

char from text 


end of text? 
skip over text 


skip over this entry 


get error message text (hl) 


00 


52 


6E 


78 
66 
69 
6F 


63 


6C 


00 
6F 


00 
6E 
4D 
66 


00 


ERROR HANDLING 


"Unknown error. 
“Unexpected NEXT. 
“Syntax error. 
“Unexpected RETUR 
"N 

"DATA exhausted. 
*Improper argumen 
't. 

‘Overflow. 
‘Memory full. 
‘Line does not ex 
"ist. 

"Subscript out of 
* range. 

"Array already di 
"mensioned. 
‘Division by zero 


"Invalid direct c 
“ommand. 

‘Type mismatch. 
"String space ful 
Ls 

“String too long. 
"String expressio 
"n too complex. 
‘Cannot CONTinue. 
“Unknown user fun 
“ction. 

“RESUME missing. 
“Unexpected RESUM 
’E 

‘Direct command f 
“ound. 

‘Operand missing. 
"Line too long. 
’EOF met. 


229 CEO3 


CEOB 46 69 6C 65 20 74 79 70 65 20 65 72 72 6F 72 00 "File type error. 


CElB 4E 45 58 54 20 6D 69 73 73 69 6E 67 00 “NEXT missing. 
CE28 46 69 6C 65 20 61 6C 72 65 61 64 79 20 6F 70 65 ‘File already ope 
CE38 6E 00 nn 

CE3A 55 6E 6B 6E 6F 77 6E 20 63 6F 6D 6D 61 6E 64 00 “Unknown command. 
CE4A 57 45 4E 44 20 6D 69 73 73 69 6E 67 00 "WEND missing. 
CE5S7 55 6E 65 78 70 65 63 74 65 64 20 57 45 4E 44 00 ‘Unexpected WEND. 


— get byte VAL(expression) in <de> 


@ CIFE! C7ES! D2CO! D317! D3D2! D459! D489! F167! F189! FL9D F6Al! 
@ F6AB! F8D8! FYF5! FAO5! FA36! 


CE67 CD 86 CE call CE86 get integer VAL(expression) in <de> 
CE6A F5 push af 
CE6B 18 08 jr CE75 


_— <a>=next VAL, O=error 
@ c330! C3E3! CA8F! D34E! D4AF! DAB7! FIF6! FIAT! 


CE6D CD 86 CE call CE86 get integer VAL(expression) in <de> 
CE70 F5 push af 

CE71L 7A ld a,d 

CE72 B3 or e 

CE73 28 36 jr z,CEAB Error: improper argument 
CET5 7A ld a,d 

CE76 B7 or a 

CE77 20 32 jr nz,CEAB Error: improper argument 
CE79 Fl pop af 

CE7A 7B ld a,e 

CE7TB C9 ret 


— get integer VAL of expression, neg=error 
@ C971! C979! D864! 


CE7C CD 86 CE call CE86 get integer VAL(expression) in <de> 
CE7F F5 push af 

CE8O 7A ld a,d 

CE8ßl 17 rla 

CE8ß2 38 27 jr c,CEAB Error: improper argument 

CE8S4 Fl pop af 

CE85 CI ret 


.— get integer VAL(expression) in <de> 
@ C51lA! C522! C986! CE67! CE6D! CE7C! D225! D2D7! D341! DIFF! F6DO! 


CE86 CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
CE8I F5 push af 

CE8A EB ex de,hl 

CESB CD 8D FE call FE8D function: CINT(<num expression>) in <hl> 
CE8SE EB ex de,hl 

CESF Fl pop af 

CE9O CI ret 


— get unsigned-integer VAL(expr) in <de> 
@ D37B EA24! EA56! EC62! EC6A! EC74! FL5F! F194! FIBA! FID2! FAF2! 


CE91 CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
CE94 F5 push af 

CE95S C5 push bc 

CEI6 ES push hl 

CE97 CD C2 FE call FEC2 function: UNT(<address expression>) 
CE9A EB ex de,hl 

CE9B EI pop hl 

CEIC CI pop be 

CE9D Fl pop af 

CE9E C9I ret 
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- evaluate expression, release string again 
@ D273! D447! F8F8! FAC3! 
CE9F CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
CEA2 C3 DA FB jp FBDA try to release string (FAC); <a>=1len, z=zero 


---- evaluate (string expression) 

@ F2C7! F9E9! FAB7! 
CEA5S CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
CEA8 C3 3C FF jp FF3C test VARTYPE for string, else error 


— Error: improper argument 
@ CE73° CE77° CE82° DOFD DIAA D238 
CEAB IE 05 ld e,05 Improper argument 
CEAD C3 94 CA jp CA94 perform ERPOR <e> routine 


._-- get line#’s, default <bce>=1, <de>=65535. 
@ EOF7! E737! 


CEBO 01 01 00 ld bc,0001 =] 

CEB3 11 FF FF ld de,FFFF =65535. 

CEB6 CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, sc£ 
CEB9 D4 51 DD call nc,DD51 CHRGOT <a>; end of statement? =carry 
CEBC D8 ret c return with default values 

CEBD FE 23 cp 23 4 

CEBF C8 ret z 

CECO FE F5 cp F5 [-] 

CEC2 28 0A jr z,CECE only one argument 

CEC4 CD El CE call CEELl get line# into <de> 

CEC7 42 ld b,d 

CEC8 4B ld c,e bc=de 

CEC9I CB ret z 

CECA CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, sc£ 
CECD D8 ret c 

CECE CD 37 DD call DD37 get next argument 

CEDlL F5 [-] 

CED2 11 FF FF ld de,FFFF 65535. 

CED5 C8 t ret z 

CED6 CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
CED9 D8 ret c 

CEDA CD El CE call CEEl get line# into <de> 

CEDD C4 55 DD call nz,DD55 CHRBACK comma?; if=:CHRGET <a>, sc£f 
CEEO C9 ret 


.--- get line# into <de> 
@ C052! COE6! COFO! C7FF! CBEC! CEC4! CEDA! DCDB! E7E6! E7F4! E7FE! 


CEEl T7E ld a,(hl) 

CEE2 23 inc hl 

CEE3 5E ld e,(hl) 

CEE4 23 inc hl de = linef 

CEE5S 56 ld d,(hl) 

CEE6 FE IE cp IE line# next? 

CEE8 28 OE jr z,CEF8 yes 

CEEA FE 1D cp 1D line address next? 

CEEC C2 7B DO jp nz,DO7B Error: Syntax error 
CEEF ES push hl 

CEFO EB ex de,hl 

CEFl 23 inc hl hl = line address 

CEF2 23 inc hl 

CEF3 23 inc hl 

CEF4 S5E ld e,(hl) get number of this line 
CEF5 23 inc hl 

CEF6 56 ld d,(hl) 

CEF7 El pop hl 

CEF8 C3 3F DD jp DD3F CHRGET <a>, skip blank, cp Ol 
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=--- evaluate (expression), CHRGET, cp Ol 
@ C5BO! C6C7! C7AL! CE86! CEYL! CEYF! CEA5! D070! D157! DIFO! DIFB! 


CEFB 
CEFC 
CEFD 
CEFF 
CFO2 


@ D219! D55B! D58C! F233! F2D7! F300! F484! FSCE! FA3E! 


c5 

2B 

06 00 

CD 07 CF 
cl 

2B 

c3 3F DD 


push bc 
dec hl 
ld b,00 
call CF07 
pop bc 
dec hl 
jp DD3F 


FAAL! 


priority of operation 
evaluate (expression); <b> priority 


CHRGET <a>, skip blank, cp Ol 


evaluate (expression); <b> priority 
@ CEFF! CF49! CF72! CFBC! CFC5! 


c5 push bc 

CD CB CF call CFCB 
E5 push hl 

El pop hl 

cl pop bc 

7E ld a,(hl) 

FE EE cp EE 

D8 ret c 

FE FE cp FE 

DO ret nc 

FE F4 cp F4 

38 40 jr c,CF59 
CC 45 FF call z,FF45 
20 12 jr nz,CF30 
c5 push be 

E5 push hl 

2A C2 BO ld h1,(BOC2) 
E3 ex (sp),hl 
CD CB CF call CFCB 
CD 3C FF call FF3C 
E3 ex (sp),hl 
CD 63 F8 call F863 
18 DC jr CFOC 
numeric expression 

7E ld a,(hl) 

D6 F4 sub F4 

87 add a,a 

87 add a,a 

c6 81 add a,8l 

5F ld e,a 

CE CF adc a,CF 

93 sub e 

57 ld d,a 

EB ex de,hl 

78 ld a,b 

BE cp (hl) 

EB ex de,hl 

DO ret nc 

c5 push bc 

cD 53 FF call FF53 
D5 push de 

c5 push bc 

1A ld a,(de) 
47 ld b,a 

cD 07 cF call CFO7 
cl pop bc 

E3 ex (sp),hl 
23 inc hl 

EB ex de,hl 
79 ld a,c 

CD AO F5 call F5AO 
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get next char, skip blank, cp Ol 


get operator from Basic text 
[>] 

not an operator 

[NOT] 

+] 

it is a relational operator 
get VARTYPE <a>; cp string 
numeric expression 


Floating point ACU, FAC 


get next char, skip blank, cp Ol 
test VARTYPE for string, else error 


append string (hl) to string (FAC) 
perform next argument 
get the operator 


[+] 


<de>=<a>*4+CF8l 


get VARTYPE, copy FAC to BASIC STACK 


get old priority 


evaluate (expression); <b> priority 


decrement BASIC STACK pointer by <a> 
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CF54 CD FB FF call FFFB 
CF57 18 B3 jr CFOC 
-— it is a relational operator 
CcF59 78 ld a,b 
CF5SA FE 0A cp 0A 
CF5C DO ret nc 
CF5D C5 push bc 
CF5E 7E ld a,(hl) 
CF5F D6 ED sub EN 
CF61l 47 ld b,a 
CF62 CD 45 FF call FF45 
CF65 11 AI CF ld de,CFA9 
CF68 20 D8 jr nz,CF42 
CF6A E5 push hl 
CF6B 2A C2 BO ld h1,(BOC2) 
CF6E E3 ex (sp),hl 
CF6F C5 push bc 
CF70 06 0A ld b,0A 
CF72 CD 07 CF call CFO7 
CcF75 cl pop bc 
CF76 E3 ex (sp),hl 
CF77 cC5 push bc 
CF78 CD 97 F8 call F897 
CF7TB Cl pop bc 
CF7C CD AF CF call CFAF 
CF7F 18 8B jr CFOC 
— table of 

@ CF38 
CF8l O0C =12. 
CcF82 C3 CC FC jp FCcC 
CF85 0C =12. 
CF86 C3 El FC jp FCEL 
CF89 12 =18. 
CF&A C3 F5 FC jp FCR5 
CcF8D 12 =18, 
CF8E C3 12 FD jp FDI2 
cFr9l 16 =22. 
CF92 C3 FA D4 jp D4F4 
cF95 10 =16. 
CF96 C3 37 FD jp FD37 
cF99 06 =6. 
CF9A C3 58 FD jp FD58 
CF9D OE =14. 
CF9E C3 49 FD jp FD49 
CFAl 04 =4. 
CFA2 C3 63 FD jp FD63 
CFA5 02 =2. 
CFA6 C3 6D FD jp FD6D 


— perform comparsion <hl>=<de>? 


@ CF65: 
CFA9 OA 
CFAA C5 
CD 09 FD 


ld a,(bc) 
push bc 
call FDO9 
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jp(de) 
evaluate next element 


priority of operation 
it’s not a relation, it’s a calculation 


get operator 
transfom [>] =1 ... 


get VARTYPE <a>; cp string 
perform comparsion <hl>=<de>? 
it’s a numeric variable 
Floating point ACU, FAC 


priority 
evaluate (expression); <b> priority 


compare string (hl) with string (de) 


provide result of comparsion, -1,0,+l 
perform next argument 


arithmetic functions, <priority>,<jp addr> 


priority of operation 
perform [+! (plus) 


perform [-) (minus) 


perform [*) (multiply) 


perform [/] (devide) 


perform [”]) (power) 


perform [\] (devide=integer) 


perform <hl> [AND] <de> 


perform <hl> [MOD] <de> 


perform <hl> [OR] <de> 


perform <h1> [XOR] <de> 


compare two numbers (int or real) 
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CFAB 


DOOD 


set FAC to (-1, 0, +1); <a> was FF,00,01 


=20. 
evaluate 


... 


=8. 
evaluate 


(expression); <b> priority 


(expression); <b> priority 


perform [NOT] <hl> 


CHRGET <a>, skip blank, cp Ol 


Error: Operand missing 
is it a variable? 


perform plus [+] VARIABLE 

is it a constant 0-9 or byte VAL? 
perform plus [+] constant 0-9 

‚" 


[+]"text"; calculate len; copy temp to stack 
[TOKEN SWITCH] 
proceed with token after SWITCH 


TOKEN - + ( NOT ERL FN MID$ @ 
search <a> in table(hl); hl=address 
returns to the function addr found 
CHRGET <a>, skip blank, cp Ol 


Operand missing 
perform ERROR <e> routine 


Indirection: Syntax error 

call if TOKEN [-] <expression> 
call if TOKEN [+] <expression> 
call if °( 

call if TOKEN [NOT] <expression> 


function: 
function: 
function: 


function 


cl pop be 

provide result of comparsion, -1,0,+1 
@ cr7c! 

c6 01 add a,0l 

8F adc a,a 

AO and b 

C6 FF add a,FF 

9F sbc a,a 

c3 05 FF jp FFO5 

call if TOKEN [-] <expression> 
@ CFF5 

2B dec hl 

06 14 ld b,14 

cD 07 CF call CFO07 

c3 89 FD jp FD89 

call if TOKEN [NOT] <expression> 
@ CFFE 

2B dec hl 

06 08 ld b,08 

cD 07 CF call CFO7 

c3 77 FD jp FD77 

get next char, skip blank, cp Ol 
@ CFO8! CF24! 

CD 3F DD call DD3F 

call if TOKEN [+] <expression> 
@ CFF8 

28 1D jr z,CFED 

FE OE cp 0E 

38 39 jr c,DOOD 

FE 20 cp 20 

38 54 jr c,DO2cC 

FE 22 cp 22 

CA CB F7 jp z,F’7CB 

FE FF cp FF 

CA 80 DO jp z,D080 

E5 push hl 

21 F2 CF ld h1,CFF2 

cD 93 FF call FF93 

E3 ex (sp),hl 

c3 3F DD jp DD3F 

Error: Operand missing 

lE 16 ld e,16 

c3 94 CA jp CA94 

TOKEN - + ( NOT ERL FN MID$ @ 
@ CFE3: 

08 78 DO DO78 [FIX] 

F5 BI CF CFB9 [-] 

F4 CE CF CFCE [+] 

28 70 DO D070 *( 

FE C2 CF CFC2 [NOT] 

E3 EE DO DOEE [ERL] 

E4 30 DI D130 [FN] 

AC 4B F9 F94B [MIDS$] 

40 FA DO DOFA ’@ 
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ERL 

FN<name>(<list of<arguments>>) 
MID$(<string expression>,<position 
@<used VARIABLE name>, =addr of ent 


huslik, cpc464 inside out 


_--- perform plus [+] VARIABLE 


get variable entry 
initialise variable value 
<string VAR$> 

set FAC to <de> 


set VARTYPE <a>, copy VARIABLE (hl) to FAC 


<string VAR$> 
set FAC to all zeroes 
dummy string descriptor, zero len 


Floating point ACU, FAC 


<const 9> 
<10.? 
set FAC to <a>, mark integer, CHRGET 


(19) 

next byte 

(1d) 

next 2 bytes are integer (linef) 
(1£) 

next 5 bytes are real VAL 

Error: Syntax error 

real 


set VARTYPE <a>, copy VARIABLE (hl) to FAC 


CHRGET <a>, skip blank, cp Ol 


hi byte =0 


set FAC to <hl> and mark integer 


DOOD CD 90 D6 call D690 
DO1O 30 0B jr nc,DOlD 
DOl2 FE 03 cp 03 
DOl4 28 OF jr z,D025 
DOl6 ES push hl 
DO1l7 EB ex de,hl 
DO1l8 CD 4B FF call FF4B 
DOlB EI pop hl 
DOlC c9 ret 
.— initialise variable value 
DOlID FE 03 cp 03 
DOlF C2 F3 FE jp nz,FEF3 
D022 11 2B DO ld de,DO2B 
.— set FAC to <de> 
@ DOl4’ 
DO25 EB ex de,hl 
D026 22 .C2 BO ld (BOC2),hl 
DO29 EB ex de,hl 
DO2A CI ret 
-— dummy string descriptor, zero len 
@ DO22: 
DO2B 00 
—— perform plus [+] constant 0-9 
@ CFD6’ 
DO2C D6 0E sub 0E 
DO2E FE OA cp 0A 
D030 38 1D jr c,DO4F 
D032 23 inc hl 
D033 FE OB cp OB 
D035 28 17 jr z,DO4E 
D037 FE OF cp OF 
D039 38 OE jr c,D049 
DO3B FE 11 cp 11 
DO3D 38 1A jr c,D059 
DO3F 20 3A jr nz,DO7B 
DO4l 3E 05 ld a,05 
DO43 CD 4B FF call FF4B 
D046 2B dec hl 
D047 18 24 jr DO6D 
.—— set FAC to VAL of next 2 bytes 
D049 5E ld e,(hl) 
DO4A 23 inc hl 
DO4B 56 ld d,(hl) 
DO4C 18 04 jr D052 
.— set FAC to VAL of next byte 
DO4E 7E ld a,(hl) 
— set FAC to <a>, mark integer, CHRGET 
DO4F 5F ld e,a 
D050 16 00 ld d,00 
DO52 EB ex de,hl 
D053 CD OD FF call FFOD 
DO056 EB ex de,hl 
D057 18 14 jr DO6D 
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CHRGET <a>, skip blank, cp Ol 
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D057 


----- get line# in <hl> 


D059 5E ld e,(hl) 
DO5A 23 inc hl 
DO5B 56 ld d,(hl) 
DOSC ES push hl 
DO5SD FE OF cp OF OF+0OE=1D, =line address? 
DO5F 20 07 jr nz,D068 not an address 
DO61 13 inc de 
D062 EB ex de,hl 
D063 23 inc hl 
DO64 23 inc hl 
D065 5E ld e,(hl) 
D066 23 inc hl 
D067 56 ld d,(hl) 
D068 EB ex de,hl 
D069 CD 60 FE call FE60 convert unsigned integer (hl) to real 
DO6C EL pop hl 
— CHRGET <a>, skip blank, cp Ol 
DO6D C3 3F DD _jp DD3F CHRGET <a>, skip blank, cp Ol 
_--- call if °( 
@ CFFB DOAO! 
D070 CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
D073 CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
D076 29 *) 
D077 c9 ret 
.— Indirection: Syntax error 
@ CFF2 
D078 CD OD AC call ACOD Indirection: Syntax error 
m Error: Syntax error 
DO7B IE 02 ld e,02 Syntax error 
DO7D cC3 94 CA jp CA94 perform ERROR <e> routine 
— proceed with token after SWITCH 
@ CFDF 
D080 23 inc hl 
DO81 4E ld c,(hl) 
D082 CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
D085 79 ld a,c 
D086 FE 40 cp 40 
D088 38 05 jr c,DO8F token < 40 
DO8A FE 49 cp 49 token < 49? 
DO8SC DA BB DO jp <,DOBB call function routine, a=TOKEN 
DO8SF CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
D092 28 « 
D093 79 ld a,c token 
D094 87 add a,a 
D095 C6 IE add a,lE token * 2 + lE 
D097 4AF ld c,a 
D098 FE 59 cp 59 
DO9A 30 0D jr nc,DOA9 jp Unknown token after switch 
DO9C FE 1D cp 1D <next ADDRESS> 
DO9E 38 0E jr c,DOAE call function routine, c=TOKEN 
DOAO CD 70 DO call DO70 call if °( 
DOA3 ES push hl 
DOA4 CD AE DO call DOAE call funct?on routine, c=TOKEN 
DOA7 EI pop hl 
DOA8 C9I ret 
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. jp Unknown token after switch 


DOA9I CD 0A AC 
DOAC 18 CD 


call ACOA 
jr DO7B 


Indirection: Undefined token after switch 
Error: Syntax error 


.--- call function routine, c=TOKEN 


@ DOIE’ DOAA! 


priority 
list o£ function routines 


to function 


priority 
DOCA-80= addr list of functions 


to function 


function: EOF 

function: ERR 

function: HIMEM 

function: INKEY$ 

function: PI 

function: RND [(<argument>)] 
function: TIME 

function: YXPOS 

function: YPOS 


last Basic ERROR number 
set FAC to <a> and mark integer 


KL TIME PLEASE in <de,hl> 
set FAC to <hl,de> and normalise to real 


DOAE ES push hl 
DOAF 06 00 ld b,00 
DOBl 21 90 DI ld h1,D190 
DOB4 09 add hl,bc 
DOB5 7E ld a,(hl) 
DOB6 23 inc hl 
DOB7 66 ld h, (hl) 
DOB8 6F ld 1,a 
DOB9 E3 ex (sp),hl 
DOBA C9 ret 
-— call function routine, a=TOKEN 
@ DOSC 
DOBB E5 push hl 
DOBC 4F ld c,a 
DOBD 06 00 ld b,00 
DOBF 21 4A DO ld h1,DO4A 
DOC2 09 add hl,bc 
D0C3 09 add hl,bc 
DOC4 T7E ld a,(hl) 
DOC5 23 inc hl 
DOC6 66 ld h, (hl) 
DOC7 6F ld 1,a 
DOC8 E3 ex (sp),hl 
D0C9 CI ret 
—— list of function routines 
DOCA 17CA C417 
DOCC DC DO DODC 
DOCE F4 DO DOF4 
DODO 24 FA '  FA24 
DOD2 DB D4 D4DB 
DOD4 84 D5 D584 
DOD6 E5 DO DOE5 
DOD8 07 DL D107 
DODA 0E DI D1OE 
.— function: ERR 
@ DOCC: 
DODC ES push hl 
DODD 3A AA AD ld a, (ADAA) 
DOEO CD OA FF call FFOA 
DOE3 EI pop hl 
DOE4 C9 ret 
--- function: TIME 
@ DOD6 
DOES ES push hl 
DOE6 CD OD BD call BDOD 
DOE9 CD 7C FE call FE7C 
DOEC EI pop hl 
DOED C9 ret 


— function: ERL 


@ DOOL 
DOEE ES push hl 
DOEF CD DF CA call CADF 
DOF2 18 OE jr D102 
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get next line after error <hl>, if none <hl> 
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function: 
@ DOCE: 
E5 

2A 7B AE 
18 08 


HIMEM 


push hl 


ld h1,(AE7B) 


jr D102 


himem for Basic pointer 


function @<used VARIABLE name>, =addr of entry 


function: 
@ DOD8: 
E5 

CD C6 BB 


function: 
@ DODA: 
E5 

CD C6 BB 
CD OD FF 
El 

c9 


call D690 
jp nc,CEAB 
push hl 
ex de,hl 
call FE60 
pop hl 
ret 


XPOS 


push hl 
call BBC6 
ex de,hl 
jr DI12 


YPOS 


push hl 
call BBC6 
call FFOD 

pop hl 

ret 


get variable entry 
Error: improper argument 


convert unsigned integer (hl) to 


GRA ASK CURSOR, <de>=x, <hl>=y 


GRA ASK CURSOR, <de>=x, <hl>=y 
set FAC to <hl> and mark integer 


real 


command: DEF FN<name> [(<argument>)]=<expression [using argument]> 


@ DEIB 
CD 37 DD 
E4 


CD D6 DD 
1E 0C 


D2 94 CA 
CD A2 D6 


Cc3 EF E8 


call DD37 
[FN] 

ex de,hl 
call DDD6 
ex de,hl 
ld e,0C 
jp nc,CA94 
call D6A2 
ex de,hl 
ld (hl),e 
inc hl 

ld (hl),d 
ex de,hi 
jp ESEF 


CHRNEXT <a>, nz=Error; CHRGET 


get BASIC line# at PC in <hl>, =carry 


Invalid direct command 
per£form ERROR <e> routine 
used by DEF FN and FN only ?? 


command: DATA «list of<data>> 


function: FN<name>(<list of<arguments>>) 


@ D004 
CD A2 D6 
c5 


lE 12 
CA 94 CA 
cD 07 DA 
FE 28 
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call D6A2 
push bc 
push hl 
ex de,hl 
ld e,(hl) 
inc hl 
ld d,(hl) 
ex de,hl 
ld a,h 
or 1 
ld e,12 
jp z,CA94 
call DA07 
id a,(hl) 
cp 28 


FUNCTION SUBROUTINES 


used by DEF FN and FN only ?? 


Unknown user function 
perform ERROR <e> routine 


... 


« 


(skip this 1 
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D147 
D149 
DL4C 
D14D 
D150 
D151 
D152 
D155 
D156 
D157 
D15A 
D15B 
DL5C 
DI5F 
D160 
D163 
D165 
D166 
D169 
D16A 


D16C 
DI6F 
D170 
D171 
D174 
D175 
D178 
D17B 
DI7C 
D17F 
D182 
D185 
D188 
D18B 
DI8C 
D18D 


DD 


DD 


DA 


CE 


D6 


DD 


DD 


DD 


FE 


jr nz,D175 
call DD3F 
ex (sp),hl 
call DD37 
« 
ex (sp),hl 
call DA4B 
ex (sp),hl 
push de 
call CEFB 
ex (sp),hl 
ld a,b 
call D666 
pop hl 
call DD55 
jr nc,D16C 
ex (sp),hl 
call DD37 


’ 
jr D152 


call DD37 
”) 

ex (sp),hl 
call DD37 


call DA27 
call DD37 
[=] 
call CEFB 
jp nz,DO7B 
call DA30 
call FF45 
call z,FB49 

pop hl 

pop af 

jp FED7 
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CHRGET <a>, skip blank, cp Ol 


CHRNEXT <a>, nz=Error; CHRGET 


evaluate (expression), CHRGET, cp Ol 


adjust VARTYPE, copy result to variable 


CHRBACK comma?; if=:CHRGET <a>, scf 


CHRNEXT <a>, nz=Error; CHRGET 


CHRNEXT <a>, nz=Error; CHRGET 


CHRNEXT <a>, nz=Error; CHRGET 


reset FN subprogramm pointers to ze 
CHRNEXT <a>, nz=Error; CHRGET 


ro len 


evaluate (expression), CHRGET, cp Ol 


Error: Syntax error 
get VARTYPE <a>; cp string 


test <a>=VARTYPE? if not CINT,CREAL 
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---- list of function routines 


@ DOBl: 
D190 BA F8 F8BA function: BIN$(<unsigned integer>[,<digits>] 
D192 EA F& F8EA function: DEC$(<num VAR>,<string VAR>) 
D194 CA F8 F8C4 function: HEX$(<unsigned integer>[,<digits>] 
D196 AI FA FAAl function: INSTR([<start >,]<string expr>,<se 
D198 3C F9 F93C function: LEFT$(<string expression>,<len>) 
DI9A EE DL DIEE function: MAX(<list of<arguments>>) 
D19C EA DL DIEA function: MIN(<list of<arguments>>) 
DI9E 76 C2 C276 function: POS(#<device>) 
DIAO 43 F9 F943 function: RIGHT$(<string expression>,<len>) 
DIA2 19 D2 D219 function: ROUND (<expression>[,<digits>]) 
DIA4 36 FA FA36 function: STRING$(<repeat>,<character>) 
DlA6 E9ICA C4E9 £unction: TESTR(<xd>,<yd>) 
DIA8 EE CA C4EE function: TEST (<x>,<y>) 
DIAA AB CE CEAB Error: improper argument 
DIAC 62 C2 C262 function: VPOS(#<device>) 
DIAE 85 FD FD85 function: ABS(<num expression>) 
D1BO 10 FA FAILO function: ASC(<string expression>) 
D1B2 3E D5 D53E function: ATN(<argument>) 
DIB4 16 FA FA16 function: CHR$(<byte value>) 
D1B6 8D FE FE8D function: CINT(<num expression>) in <hl> 
D1B8 34 D5 D534 function: COS (<argument>) 
DI1BA EC FE FEEC function: CREAL(<numeric expression>) 
DIBC 20 D5 D520 function: EXP (<argument>) 
DIBE ES FD FDE8 function: FIX(<numeric expression>) 
DICO 2D FC FC2D function: FRE(0), or FRE('"") 
DIC2 09 D4 D409 function: INKEY(<key#>) in <hl> 
DIC4 6D Fl F16D function: INP (<I/O address>) 
DIC6 ED FD FDED function: INT(<numeric expression>) 
DIC8 23 D4 D423 function: JOY(<stick#>) in <hl> 
DICA 0A FA FAOA function: LEN(<string expression>) 
DICC 2A D5 D52A function: LOG (<argument>) 
DICE 25 D5 D525 function: LOGl0(<argument>) 
D1DO 34 F8 F834 function: LOWER$(<string expression>) 
DID2 58 Fl F158 function: PEEK (<address>) 
D1D4 9F C9 CIIF function: REMAIN(<timer>) 
D1D6 02 FF FFO2 function: SGN(<numeric expression>) 
D1ID8 2F D5 D52F function: SIN(<argument>) 
DIDA 57 FA FA57 function: SPACE$(<# of spaces>) 
DIDC 29 D3 D329 function: SQ(<sound channel>) 
DIDE EF D4 D4EF function: SQR(<argument>) 
DIEO IE F9 FILE function: STR$(<numeric expression>) 
DIE2 39 D5 D539 function: TAN(<argument>) 
DIE4 C2 FE FEC2 function: UNT(<address expression>) 
DIE6 42 F8 F842 function: UPPER$(<string expression>) 
DIE8 77 FA FA77 function: VAL(<string expression>) 
-— function: MIN(<list of<arguments>>) 

@ D19C 
DIEA 06 FF ld b,FF priority for evaluation 
DIEC 18 02 jr DIFO 
.— function: MAX(<list of<arguments>>) 

@ D19A 
DIEE 06 01 ld b,01 priority for evaluation 
DIFO CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
DIF3 CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
DIF6 30 IC jr nc,D214 no more arguments 
DIF8 CD 53 FF call FF53 get VARTYPE, copy FAC to BASIC STACK 
DIFB CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
DIFE ES push hl 
DIFF 79 ld a,c 
D200 CD AO F5 call F5AO decrement BASIC STACK pointer by <a> 
D203 C5 push bc 
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E5 push hl 

CD 09 FD call FD09 
El pop hl 

cl pop bc 

B7 or a 

28 04 jr z,D2ll 
B8 cp b 

C4 4E FF call nz,FF4E 
El pop hl 

18 DF jr DIF3 

cD 37 DD call DD37 

29 6) 

c9 ret 


compare two numbers (int or real) 


this argument does not change the result 


copy VARIABLE (hl) to FAC 
get next argument 


CHRNEXT <a>, nz=Error; CHRGET 


function: ROUND (<expression>[,<digits>]) 


@ DIA2 

CD FB CE call CEFB 

CD 53 FF call FF53 

cD 55 DD call DD55 

11 00 00 ld de,0000 
DC 86 CE call c,CE86 
CD 37 nD call DD37 

29 5 

E5 push hl 

D5 push de 

21 27 00 ld h1,0027 
19 add hl,de 
1l 4F 00 ld de,0OO4F 
CD B8 FF call FFB3 
D2 AB CE jp nc,CEAB 
DI pop de 

79 ld a,ce 

CD AO F5 call F5AO 
43 ld b,e 

CD AF FD call FDAF 
El pop hl 

c9 ret 

command: CAT, list filenames 
@ DEOI 

co ret nz 

E5 push hl 

CD AD D2 call D2AD 
cD 37 F6 call F637 
CD 9B BC call BC9B 
CcD 71 F6 call F671 
El pop hl 

c9 ret 


command: OPENOUT <filename> 
@ DE6F ECOC! 


cD 73 D2 call D273 

CD 37 F6 call F637 

c3 8C BC jp BC8C 
command: OPENIN <filename> 
@ DE6D 

CD 6A D2 call D26A 

FE 16 cp 16 

c8 ret z 

1E 19 ld e,19 

Cc3 94 CA  jp CA94 


huslik, cpc464 inside out 


evaluate (expression), CHRGET, cp Ol 
get VARTYPE, copy FAC to BASIC STACK 
CHRBACK comma?; if=:CHRGET <a>, scf 


get integer VAL(expression) in <de> 
CHRNEXT <a>, nz=Error; CHRGET 


more than 39. digits? 
=79. 


test HL=DE? (try hl-de) 
Error: improper argument 


decrement BASIC STACK pointer by <a> 


£rom TAPE 


CAS in/out abandon, release 1/O buffers 


allocate a tape buffer for output 
CAS CATALOG, (de)= 2k buffer to use 
release tape output buffer 


get <filename> argument from Basic text 


allocate a tape buffer for output 


CAS OUT OPEN, (hl)=filename, <b>=len, (de)=2 


get <filename>, allocate buff, OPENIN 
[SPACE$] 


File type error 
perform ERROR <e> routine 
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get <filename>, allocate buff, OPENIN 


@ D25F! EB92! 

cD 73 D2 call D273 
CD 32 F6 call F632 
c3 77 BC jp BC77 


get <filename> argument from 


@ D256! D26A! 


CD 9F CE call CE9F 
E3 ex (sp),hl 
EB ex de,hl 
CD 85 D2 call D285 
CA 6B CB jp z,CB6B 
El pop hl 

D8 ret c 

lE 1B ld e,1B 

c3 94 CA jp CA94 
check for °!’” in filename 
@ D278! 

D5 push de 

0E 00 ld c,00 
78 ld a,b 

B7 ora 

28 08 jr z,D294 
7E ld a,(hl) 
FE 21 cp 21 

20 03 jr nz,D294 
23 inc hl 

05 dec b 

OD dec c 

79 ld a,c 

c3 6B BC jp BC6B 
command: CLOSEIN 

@ CB87! DElL EBEC EBF8 
E5 push hl 

CD 7A BC call BC7A 
CD 6D F6 call F66D 
El pop hl 

c9 ret 


command: CLOSEOUT 
@ CB8A! DEL3 ECIE! 


E5 push hl 

CD 8F BC call BC8F 
CA 6B CB jp z,CB6B 
cD 71 F6 call F671 
El pop hl 

c9 ret 


get <filename> argument from Basic text 
allocate tape buffer for input 


(hl)=filename, <b>=len, (de)=2k 


CAS IN OPEN, 


Basic text 


evaluate expression, release string again 


.. 


check for in filename 
perform a BREAK 


File already open 
perform ERROR <e> routine 


reset flag ENABLE prompt 
do not check for ’! if b=0 


’ 

not in 

skip over ’! 
b= -1 

set flag FF, disable prompt 


CAS NOISY, enable or disable prompt messages 


CAS IN CLOSE 
release tape input buffer 


CAS OUT CLOSE 
perform a BREAK 
release tape output buffer 


CAS in/out abandon, release I/O buffers 


@ C15B! D248! E9E4! EB3B! 
c5 push bc 

D5 push de 

E5 push hl 

CD 7D BC call BC7D 
CD 6D F6 call F66D 
CD 92 BC call BC92 
CD 71 F6 call F671 
El pop hl 

D1 pop de 

cl pop bc 

c9 ret 
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EB8F! 


ECO9! 


CAS IN ABANDON 
release tape input buffer 
CAS OUT ABANDON 
release tape output buffer 
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command: SOUND <stat>,<period>,<tim>,<vol>,<v-env>,<t-env>,<noise> 
@ DE9II 


CD 67 CE call CE67 get byte VAL(expression) in <de> 

32 B2 AD ld (ADB2),a SOUND chan-stat 

CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 

2C er 

CD FF D3 call D3FF get integer, >15. =error 

ED 53 B5 AD 1d (ADB5),de SOUND period 

cD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 

11 14 00 ld de,0014 default=20. 

DC 86 CE call c,CE86 get integer VAL(expression) in <de> 

ED 53 B9 AD 1d (ADBI9),de SOUND time 

01 0C 10 ld bc,100C max =16., default =12. 

cD OD D3 call D30D default <a>=<c>; if comma, get byte <a> 
32 B8 AD ld (ADB8),a SOUND volume 

0E 00 ld c,00 default =0 

CD OD D3 call D30D default <a>=<c>; if comma, get byte <a> 
32 B3 AD ld (ADB3),a SOUND vol-env 

CD OD D3 call D30D default <a>=<c>; if comma, get byte <a> 
32 B4 AD ld (ADB4),a SOUND ton-env 

06 20 ld b,20 max =32. 

cD OD nD3 call D30D default <a>=<c>; if comma, get byte <a> 
32 B7 AD ld (ADB7),a SOUND noise 

CD 4A DD call DD4A CHRGOT <a>; end of statement? else syntax er 
E5 push hl 

21 B2 AD ld h1,ADB2 SOUND chan-stat 

CD AA BC call BCAA SOUND QUEUE, add a sound, (hl)=sound program 
El pop hl 

D8 ret c 

Fl pop af 

c3 71 DD jp DD’ get the program counter and RUN 


default <a>=<c>; if comma, get byte <a> 
@ D2ELl! D2E9! D2EF! D2F7! 


CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
79 ld a,c 

DO ret nc no more argument 

7E ld a,(hl) 

FE 2C cp 2C Kr 

79 ld a,c 

c8 ret z 


CNEXT byte VAL; cp b; ret c; syntax error 
@ D320! D371! D380! D3C2! D43F! D467! D4C8! 


CD 67 CE call CE67 get byte VAL(expression) In <de> 
B8 cp b 

D8 ret c 

18 2B jr D349 Error: Improper argument 
command: RELEASE <channels> 

@ DE89 

06 08 ld b,08 maximum 7 

CcD 17 D3 call D317 GNEXT byte VAL; cp b; ret c; syntax error 
E5 push hl 

CD B3 BC call BCB3 SOUND RELEASE, <a>=channel(s) 

El pop hl 

c9 ret 


function: SQ(<sound channel>) 


@ DIDC 

CD 8D FE call FE8D function: CINT(<num expression?) in <hl> 
7D ld a,l 

B7 or a 

IF rra test bit 0 

38 06 jr c,D337 
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D331 IF rra test bit 1 


D332 38 03 jr c,D337 
D334 IF rra test bit 2 
D335 30 12 jr nc,D349 Error: Improper argument 
D337 B4 or h highbyte or rest of <a> not 0? 
D338 20 OF jr nz,D349 Error: Improper argument 
D33A 7D ld a,l restore argument 
D33B CD AD BC call BCAD SOUND CHECK for space in <a>, <a>=status 
D33E C3 OA FF jp FFOA set FAC to <a> and mark integer 
-—— get integer VAL in <de>, O=error 
@ D385! D3CA! 
D341 CD 86 CE call CE86 get integer VAL(expression) in <de> 
D344 7B ld a,e 
D345 87 add a,a 
D346 9F sbc a,a 
D347 BA cp d 
D348 c8 ret z 
Ja Error: Improper argument 
D349 1E 05 ld e,05 Improper argument 
D34B C3 94 CA jp CA94 perform ERROR <e> routine 
- command: ENV <sequence#> [,<steps>,<step>,<pause>] 
@ DE35 
D34E CD 6D CE call CE6D <a>=next VAL, O=error 
D351 FE 10 cp 10 sequence# > 15. ? 
D353 30 F4 jr nc,D349 Error: Improper argument 
D355 F5 push af 
D356 11 67 D3 ld de,D367 get the sequence arguments 
D359 CD D8 D3 call D3D8 set up env sequence <steps>,<step>,<pause> 
D35C Fl pop af 
D35D ES push hl 
D35E 21 BB AD ld h1,ADBB envelope table address 
D361 71 ld (hl),c 
D362 CD BC BC call BCBC SOUND set AMPL ENVELOPE, <a>=env#, (hl)=data 
D365 EI pop hl 
D366 C9 ret 
----- get the sequence arguments 
@ D356: 
D367 7E ld a,(hl) 
D368 FE EF cp EF [=] 
D36A 20 12 jr nz,D37E ... 
D36C CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
D36F 06 10 ld b,10 maximum 15. 
D371 CD 17 D3 call D317 GNEXT byte VAL; cp b; ret c; syntax error 
D374 F6 80 or 80 set bit 7 
D376 4F ld c,a 
D377 CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
D37A 2C 5 
D37B C3 91 CE jp CE9L get unsigned-integer VAL(expr) in <de> 
D37E 06 80 ld b,80 maximum 127. 
D380 CD 17 D3 call D317 GNEXT byte VAL; cp b; ret c; syntax error 
D383 18 40 jr D3C5 ... 
-_--- command: ENT <sequence#> [,<steps>,<step>,<pause>] 
@ DE33 
D385 CD 41 D3 call D341 get integer VAL in <de>, O=error 
D388 7A ld a,d 
D389 B7 or a 
D38A 7B ld a,e 
D38B 28 02 jr z,D38F ... 
D38D 2F cpl make it positiv 
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D38E 3C inc a 


D38F 5F ld e,a 
D390 B7 or a 
D391 28 B6 jr z,D349 Error: Improper argument 
D393 FE 10 cp 10 max 15. 
D395 30 B2 jr nc,D349 Error: Improper argument 
D397 D5 push de 
D398 11 AE D3 ld de,D3AE get the sequence arguments 
D39B CD D8 D3 call D3D8 set up env sequence <steps>,<step>,<pause> 
D39E DI pop de 
D39F E5 push hl 
D3AO 21 BB AD ld h1,ADBB envelope table address 
D3A3 7A ld a,d 
D3A4 E6 80 and 80 set bit 7 
D3A6 Bl or c 
D3A7 77 ld (hl),a 
D3A8 7B ld a,e 
D3A9 CD BF BC call BCBF SOUND set TONE ENVELOPE, <a>=env#, (hl)=data 
D3AC EL pop hl 
D3AD C9I ret 
m get the sequence arguments 
@ D398: 
D3AE 7E ld a,(hl) 
D3AF FE EF cp EF Centronics latch 
D3Bl 20 OD jr nz,D3C0 
D3B3 CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
D3B6 CD FF D3 call D3FF get integer, >15. =error 
D3B9 7A ld a,d 
D3BA C6 FO add a,FO =240. 
D3BC 4F ld c,a 
D3BD 43 ld b,e 
D3BE 18 OE jr D3CE 
D3C0O 06 FO ld b,FO maximum 239. 
D3C2 CD 17 D3 call D317 GNEXT byte VAL; cp b; ret c; syntax error 
D3C5 4F ld c,a 
D3C6 CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
D3C9 2C .r 
D3CA CD 41 D3 call D341 get integer VAL in <de>, O=error 
D3CD 43 ld b,e 
D3CE CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
D3D1 2C es 
D3D2 CD 67 CE call CE67 get byte VAL(expression) in <de> 
D3D5 57 ld d,a 
D3D6 58 ld e,b 
D3D7 c9 ret 


. set up env sequence <steps?>,<step>,<pause> 
@ D359! D39B! 


D3D8 01 00 05 ld bc,0500 max count of sequences = 5 
D3DB CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
D3DE 30 IC jr nc,D3FC no more sequence 

D3EO D5 push de 

D3ElL C5 push be 

03E2 CD FB FF call FFFB jp(de) 

D3E5 79 ld a,c sequence# 

D3E6 CI pop bc 

D3E7 C5 push bc 

D3E8 ES push hl 

D3E9 21 BC AD ld h1,ADBC SOUND envelope address ?? 
D3EC 06 00 ld b,00 clear high part 

D3EE 09 add hl,bc 

D3EF 09 add hl,bc 

D3FO 09 add hl,bc step to sequencef# 
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ld (hl),a 
inc hl 
ld (hl),e 
inc hl 
ld (hl),d 
pop hl 
pop be 
ine c 
pop de 
djnz D3DB 
jp DD4A 


get integer, >15. =error 
@ D2CA! D3B6! 


CD 86 CE 
7A 

E6 FO 

C2 49 D3 
c9 


call CE86 
ld a,d 

and FO 

jp nz,D349 
ret 


store <step>,<steps>,<pause> 


next sequence 
is there another sequence 
no more sequence 


get integer VAL(expression) in <de> 


is it > 15.? 
Error: Improper argument 


function: INKEY(<key#>) in <hl> 


@ DIc2 
CD 8D FE 
11 50 00 
CD B8 FF 
30 22 

7D 

CD lE BB 
2l FF FF 
28 03, 
69 

26 00 
C3 OD FF 


function: 


7A 
CA 0A FF 


call FE8D 
ld de,0050 
call FFB8 
jr nc,D436 
ld a,l 
call BBIE 
ld h1,FFFF 
jr z,D420 
1d 1,c 

ld h,00 
jp FFOD 


function: CINT(<num expression>) in <hl> 
max key# = 79. 

test HL=DE? (try hl-de) 

Error: Improper argument 


KM TEST if KEY #<a> is pressed 
-l if no key pressed 
no key 


clear hi part 
set FAC to <hl> and mark integer 


JOY(<stick#>) in <hl> 


call BB24 
ex de,hl 
call FE8D 
ld a,h 

or 1 

jr z,D430 
ld d,e 
dec hl 

ld a,h 

or l 

ld a,d 

jp z,FFOA 


Error: Improper argument 


c3 49 D3 


jp D349 


KM GET JOYSTICKs 1=<h>, 2=<1> 


function: CINT(<num expression>) in <hl> 


stick# 0 was asked 


set FAC to <a> and mark integer 


Error: Improper argument 


command: KEY <expansion code>,<string expression> 


@ DE49 
FE 8D 

28 19 

3E 20 

cD 17 D3 
F5 

CD 37 DD 
2C 

CD 9F CE 
48 

Fl 

47 


cp 8D 

jr z,D456 
ld a,20 
call D317 

push af 
call DD37 


’ 
call CE9F 
ld c,b 
pop af 
ld b,a 
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“F13 

command: KEY DEF <key#>,<repeat>[,<nornmal>[, 
maximum 31. 

GNEXT byte VAL; cp b; ret c; syntax error 
CHRNEXT <a>, nz=Error; CHRGET 


evaluate expression, release string again 


huslik, cpc464 inside out 


_—- command: 


D456 CD 
D459 CD 
D45C 4F 
D45D FE 
D45F 30 
D461 CD 
D464  2C 
D465 06 
D467 CD 
D46A IF 


3F DD 
67 CE 


37 DD 


17 D3 


39 BB 


push hl 
ex de,hl 
call BBOF 
pop hl 
jr nc,D436 
ret 


KM SET EXPANSION string 


Error: Improper argument 


KEY DEF <keyi#>,<repeat>[,<normal>[,<shift>[,<control>]]] 


call DD3F 

call CE67 

ld c,a 

cp 50 

jr nc,D436 
call DD37 


’ 
ld b,02 
call D317 
rra 
sbc a,a 
ld b,a 
push bc 
push hl 
ld a,c 
call BB39 
pop hl 
pop bc 
ld de,BB27 
call D484 
ld de,BB2D 
call D484 
ld de,BB33 


CHRGET <a>, skip blank, cp Ol 
get byte VAL(expression) in <de> 


max keyi = 79. 
Error: Improper argument 
CHRNEXT <a>, nz=Error; CHRGET 


maximum 1 
GNEXT byte VAL; cp b; ret c; syntax error 


KM SET REPEAT keyi <a>, <b>=0 = not 


KM SET TRANSLATE entry, <a>=key#, <b>=new tr 
set entry, if argument present 
KM SET SHIFT entry, <a>=keyf, <b>=new transl 
set entry, if argument present 
KM SET CONTROL entry, <a>=keyf, <b>=new tran 


— set entry, if argument present 
@ D478! DATE! 


D484 CD 
D487 DO 


55 DD 


67 CE 


F8 FF 


call DD55 
ret nc 
push de 
call CE67 
ld b,a 
ex (sp),hl 
ld a,c 
call FFFS 
pop hl 
ret 


—— command: SPEED 
@ DE9IB 


D494 FE 
D496 Ol 
D499 28 
D49B FE 
D492D O1 
D4A0 28 
D4A2 FE 
D4A4 28 
D4A6 IE 
D4A8 C3 


cp A4 

ld bc,BB3F 
jr z,D4AB 

cp A2 

ld be,BC3E 
jr z,D4AB 

cp D9 

jr z,D4C3 

ld e,02 

jp CA94 


.-- set speed, KEY or INK 
@ D499° D4A0’ 


D4AB C5 


3F DD 
6D CE 


37 DD 


push bc 
call DD3F 
call CE6D 
ld c,a 
call DD37 


huslik, cpc464 inside out 


CHRBACK comma?; if=:CHRGET <a>, scf 


get byte VAL(expression) in <de> 


jp(hl) 


[KEY] 

KM SET DELAY key, <h>=start, <l>=rep. speed 
set speed, KEY or INK 

[INK] 

SCR SET FLASHING PERIODS <h,1> 

set speed, KEY or INK 

[WRITE] 

set speed WRITE <speed> 

Syntax error 

perform ERROR <e> routine 


CHRGET <a>, skip blank, cp Ol 
<a>=next VAL, O=error 


CHRNEXT <a>, nz=Error; CHRGET 
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D50A 


2C ‘, 

CD 6D CE call CE6D 
5F ld e,a 

51 ld d,c 

cl pop be 

EB ex de,hl 
CD F9 FF call FFF9 
EB ex de,hl 
c9 ret 


set speed WRITE <speed> 


CD 3F DD call DD3F 
06 02 ld b,02 

cD 17 D3 call D317 
E5 push hl 

21 A7 00 ld h1,00A7 
3D dec a 

3E 32 ld a,32 
28 02 jr z,D4D6 
29 add hl,hl 
OF rrcea 

CD 68 BC call BC68 
El pop hl 

c9 ret 


£unction: PI 


@ DOD2: 

E5 push hl 

CD 19 FF call FF19 
CD 1D FF call FFID 
CD 76 BD call BD76 
El pop hl 

c9 ret 
command: DEG 

@ DE23 

3E FF ld a,FF 

18 01 jr D4EC 
command: RAD 

@ DE83 

AF xor a 

c3 73 BD jp BD73 


function: SQR (<argument>) 
@ DIDE 
01 79 BD 
18 16 


ld bc,BD79 
jr D50A 


perform [”] (power) 
@ CF92 


E5 push hl 

c5 push bc 

CD EC FE call FEEC 
EB ex de,hl 
21 CB AD ld h1,ADCB 
CD 3D BD call BD3D 
cl pop be 

E3 ex (sp),hl 
79 ld a,c 

CD 4B FF call FF4B 
DI pop de 

01 7C BD ld bc,BD7C 
248 
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<a>=next VAL, O=error 


jp(be) 


CHRGET <a>, skip blank, cp Ol 
max for argument = | 
GNEXT byte VAL; cp b; ret c; syntax error 


"2 
speed ’2 


CAS SET write SPEED, <hl>=len of half a zero 


set VARTYPE real; <a>=5 
get VARTYPE <c>, <hl>=FAC 
REAL ARITH, PI (hl) 


set DEG 


reset to RAD 
REAL ARITH, set DEG/RAD <a> 


REAL ARITH, SQR (hl) ” 0.5 
perform function on argument 


function: CREAL (<numeric expression>) 


FAC used by [”] (power) 
copy 5 bytes,(de)>(hl); 1d a,(hl-1) 


set VARTYPE <a>, copy VARIABLE (hl) to FAC 


REAL ARITH, EXP; (hl)=(h1)”(de) 


huslik, cpc464 inside out 


huslik, cpc464 inside out 


perform function on argument 


@ D4F2’ D523° D528° D52D’ D532° D537° D53C’ D541’ 
change to real, perform function (de) 


Error: Division by zero 
Error: Overflow 

Improper argument 
perform ERROR <e> routine 


function: FREAL (<numeric expression») 


= jp(be) 


REAL ARITH, get EXP 


CD 19 D5 call D519 

D8 ret c 

CA EA CA jp z,CAEA 

FA F3 CA jp m,CAF3 

lE 05 ld e,05 

c3 94 CA  jp CA94 
change to real, perform function (de) 
@ D50A! 

c5 push bc 

D5 push de 

CD EC FE call FEEC 
Dl pop de 

c9 ret 
function: EXP (<argument>) 
@ DIBC 

0l 85 BD ld bc,BD85 

18 E5 jr D50A 


function: LOG1lO(<argument>) 
@ DICE 
01 82 BD 
18 EO 


ld bc,BD82 
Jr D50A 


function: LOG (<argument>) 
@ DICC 
Ol 7F BD 
18 DB 


1d bc,BD7F 
jr D50A 


function: SIN(<argument>) 
@ DI1D8 


01 88 BD ld bc,BD88 

18 D6 jr D50A 
function: COS (<argument>) 
@ D1B8 

Ol 88 BD ld bc,BD8B 

18 DI jr D50A 
function: TAN (<argument>) 
@ DIE2 

01 8E BD ld bc,BD8E 

18 cc jr D50A 


function: ATN(<argument>) 
@ D1B2 
Ol 91 BD 
18 C7 


ld bc,BD91 
jr D50A 


‘Random number seed 


52 61 6E 64 6F 6D 20 6E 75 6D 62 65 72 20 73 65 


65 64 20 3F 20 00 


perform function on argument 


REAL ARITH, LOG1O (hl) 
perform function on argument 


REAL ARITH, LOG (hl) 
perform function on argument 


REAL ARITH, SIN (hl) 
perform function on argument 


REAL ARITH, COS (hl) 
perform furction on argument 


REAL ARITH, TAN (hl) 
perform function on argument 


REAL ARITH, ATN (hl) 
perform function on argument 


command: RANDOMIZE [<start expression>] 


@ DE85 

28 06 jr z,D561 
CD FB CE call CEFB 
E5 push hl 
18 1B jr D57C 


no arguments follow 


“Random number se 
. 
ed ? 


evaluate (expression), CHRGET, cp Ol 


ARITHMETICAL COMMANDS AND FUNCTIONS 
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D5C6 


E5 push hl 

21 43 D5 ld h1,D543 
CD 41 C3 call C341 
CD 3B CA call CA3B 
D2 6B CB jp nc,CB6B 
CD 4E C3 call C34E 
CD A3 EC call ECA3 
30 EC jr nc,D562 
CD 61 DD call DD6l 
B7 ora 

20 E6 jr nz,D562 
CD EC FE call FEEC 
CD 9A BD call BD9IA 
El pop hl 

c9 ret 
function: RND [(<argument>)] 
@ DOD4: 

7E ld a,(hl) 
FE 28 cp 28 

20 IC jr nz,D5A5 
CD 3F DD call DD3F 
CD FB CE call CEFB 
CD 37 DD call DD37 
29 ) 

E5 push hl 

CD EC FE call FEEC 
CD 70 BD call BD70 
20 05 jr nz,D5Al 
CD AO BD call BDAO 
El pop hl 

c9 ret 

FC 9A BD call m,BD9A 
El pop hl 

@ 0587” 

E5 push hl 

CD 16 FF call FF16 
CD 9D BD call BD9ID 
El pop hl 

c9 ret 


“Random number seed 

output text (hl) to channel 

put O in edit buffer and read a line 
perform a BREAK 

output °LF to channel 

get either HEX or integer VAL 

ask again 


CHRSKIP <a>; skip over blank, tab, linefeed 


ask again 
function: CREAL(<numeric expression>) 
REAL ARITH, seed RANDOM NUMBER 


K 

no argument present 

CHRGET <a>, skip blank, cp Ol 
evaluate (expression), CHRGET, cp Ol 
CHRNEXT <a>, nz=Error; CHRGET 


function: CREAL (<numeric expression>) 
REAL ARITH, SGN (hl); <a>=FF,00,01 
randomize if negative 

REAL ARITH, get last RANDOM NUMBER (hl) 


REAL ARITH, seed RANDOM NUMBER 


ld hl,FAC; set VARTYPE real; <a>=5 
REAL ARITH, RANDOMIZE 


reset all VARIABLE pointers to Basic start, clear ADDO..AEOC 


@ c191! 


CD BE D5 call D5BE 


clear ADDO..AEOB to 0 


reset all VARIABLE pointers to basic start 


@ C177! EB31 
2A 83 AE 


EBE9! F56E 
ld h1,(AE83) 


22 85 AE ld (AE85),hl 
22 87 AE ld (AE87),hl 
22 89 AE ld (AE89),hl 
c9 ret 


clear ADDO..AEOB to 0 


@ D5AE! 

21 DO AD ld h1,ADDO 
3E 36 ld a,36 

CD CB D5 call D5CB 
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end of BASTC program pointer 

start of VAR table pointer 

start of DIM’d VAR table pointer 
upper end of DIM’d variables pointer 


count 
clear <a> locations, starting (hl) 


huslik, cpc464 inside out 


clear AE06..AEOB to 0 


@ D999! 
21 06 AE ld h1,AE06 
3E 06 ld a,06 


count 


clear <a> locations, starting (hl) 


@ D5C3! DSCF’ 


36 00 ld (h1),00 
23 inc hl 

3D dec a 

20 FA jr nz,D5CB 
c9 ret 


clear AE04..5 to 0 


@ C186! EA77! 

21 00 00 ld h1,0000 

22 04 AE ld (AE04),hl 

c9 ret 

<hl>=AE04 (is that all 
@ D6AB! 

3E 5B ld a,5B 
<hl>=2*<a>+AD4E 


@ D69A! D6BA! DABE! 
2A 85 AE ld h1,(AE85) 


2B dec hl 
44 ld b,h 
4D ld c,1 
87 add a,a 
C6 4E add a,4E 
6F ld 1,a 
CE AD adc a,AD 
95 sub 1 

67 ld h,a 
c9 ret 
<hl>=2%*%<a>+AE06 


clear <a> locations, starting (hl) 


there is?) 


start of VAR table pointer 


start of VARTABLE-1 


+AD4E 


@ D7CA!l D804! D8FD! DIYBL! DIDI! DAYB! 


2A 87 AE ld h1,(AE87) 
2B dec hl 
44 ld b,h 
4D id e,ı 
E6 03 and 03 
3D dec a 

87 add a,a 
Cc6 06 add a,06 
6F ld 1,a 
CE AE adc a,AE 
95 sub 1 

67 ld h,a 
c9 ret 


start of DIM’d VAR table pointer 
be=hl-1 


max 3. 


set default VARTYPE A-Z to real 


hex VAL for A-Z 
VARTYPE real 


end < start? 
Error: Syntax error 


@ C194! 

O1 5A 41 ld bce,415A 

lE 05 ld e,05 

predefine VARTYPE ’<b>...’<c> to <a> 
@ D639! 

79 ld a,c 

90 sub b 

38 3D jr c,D642 

E5 push hl 

3C inc a 


huslik, cpc464 inside out 
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D606 


D654 


21 CB AD ld h1,ADCB 
06 00 ld b,00 

09 add hl,bc 
73 ld (hl),e 
2B dec hl 

Ei] dec a 

20 FB jr nz,D60D 
El pop hl 

c9 ret 


command: DEFSTR <A[,0-2]> 
@ DE21 


lE 03 ld e,03 

18 06 jr D61E 
command: DEFINT <I[-N]> 
@ DEID 

1E 02 ld e,02 

18 02 jr D6IE 


command: DEFREAL <B[-H]> 
@ DEIF 


table of predefined VARTYPES -4l 


next 


VARTYPE string 
update predefined VARTYPE table 


VARTYPE integer 
update predefined VARTYPE table 


VARTYPE real 


test <a> for A-Z, =carry 
Error: Syntax error 


first letter 
CHRGET <a>, skip blank, cp Ol 


default end = 


no further argument 

CHRGET <a>, skip blank, cp Ol 
test <a> for A-Z, =carry 
Error: Syntax error 


CHRGET <a>, skip blank, cp Ol 
predefine VARTYPE ’<b>...’<c> to <a> 


CHRBACK comma?; 1if=:CHRGET <a>, sc£ 
update pretefined VARTYPE table 


Syntax error 


Subscript out of range 


Array already dimensioned 
perform ERROR <e> routine 


"| = 70*2 
perform an EXTERNAL CALL 


lE 05 ld e,05 
update predefined VARTYPE table 
7E ld a,(hl) 

cD 71 FF call FF7l 

30 1E jr nc,D642 
4F ld c,a 

47 ld b,a 

CD 3F DD call DD3F 
FE 2D cp 2D 

20 0C jr nz,D639 
CD 3F DD call DD3F 

CD 7L FF call FF7l 

30 OD jr nc,D642 
4F ld c,a 

CD 3F DD call DD3F 

cD 01 n6 call D601 

cD 55 DD call DD55 

38 DD jr c,D6lE 

c9 ret 

Error: Syntax error 

lE 02 ld e,02 

18 06 jr D64C 
Error: Subscript out of range 
lE 09 ld e,09 

18 02 jr D64C 
Error: Array already dimensioued 
@ D7DO 

lE 0A ld e,0A 

c3 94 CA jp CA94 
EXTERNAL CALL or LET 

@ DDAC 

FE F8 cp F8 

CA AO Fl jp z,FlAO 
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— command: LET <variable>=<expression> 


@ DE4B 
D654 CD 86 D6 
D657 D5 
D658 CD 37 DD 


D65C CD FB CE 


D661 CD 66 D6 


call D686 
push de 
call DD37 
[=] 
call CEFB 
ld a,b 
ex (sp),hl 
call D666 
pop hl 
ret 


get address of VARIABLE or subscript 
CHRNEXT <a>, nz=Error; CHRGET 


evaluate (expression), CHRGET, cp Ol 


adjust VARTYPE, copy result to variable 


-_-- adjust VARTYPE, copy result to variable 


@ DI5C! D661 


D66C C4 D7 FE 


-— copy FAC to 
@ DB12! 

D66F CD 45 FF 
D672 C2 62 FF 
D675 ES 

D676 CD 59 FB 
D679 DI 

D67A C3 66 FF 


! DBC3! 

ld b,a 

call FF23 

cp b 

ld a,b 

call nz,FED7 


variable (hl) 


call FF45 

jp nz,FF62 

push hl 
call FB59 
pop de 

jp FF66 


get VARTYPE <a>; 


test <a>=VARTYPE? if not CINT,CREAL 


get VARTYPE <a>; cp string 
copy FAC to (hl) 


release string, allocate new one, copy strin 


copy variable (hl) to (de) 


.-- command: DIM <name>(<maxindex.1>[,<...>] [‚,<maxindex.n>)) [,<name>(.....)] 


@ D683° DE27 
D67D CD B5 D7 
D680 CD 55 DD 
D683 38 F8 
D685 C9 


call D7B5 
call DD55 
jr c,D67D 
ret 


perform command DIM <name> (<maxindex.1>[,<. 
CHRBACK comma?; if=:CHRGET <a>, scf 

command: DIM <name>(<maxindex.1>[,<...>])[,<m 
if no further argument 


-— get address of VARIABLE or subscript 
@ C545! C9F7! D654! DBO3! DB33! DCF3! 


0686 CD 06 DI call D906 
D689 CD DB D7 call D7DB 
D68C 38 42 jr c,D6D0 
D68E 18 28 jr D6B8 
—— get variable entry 

@ DOOD! DOFA! 
D690 CD 06 DI call D906 
D693 CD DB D7 call D7DB 
D696 38 38 jr c,D6DO 
D698 ES push hl 
D699 79 ld a,c 
D69A CD DB D5 call D5DB 
D69D CD DE D6 call D6DE 
D6AO 18 2D jr D6CF 


—- used by DEF FN and FN only ?? 


@ D125! D130! 


D6A2 CD 06 DI 
D6A5 38 21 


call D906 
jr c,D6C3 
push hl 
call D5D9 
call D6DE 
call nc,D73D 
jr D6CF 


huslik, cpc464 inside out 


NAME SEARCH; if not used before make entry 
is it a subscripted variable? 
<a>=<b>=<c>=VARTYPE 


NAME SEARCH; if not used before make entry 
is it a subscripted variable? 
<a>=<b>=<c>=VARTYPE 


<hl>=2%*%<a>+AD4E 
search for a FN function name 
pop; <a><b><c>=VARTYPE 


NAME SEARCH; if not used before make entry 
name found, get pointer to entry (de) 


<h1l>=AE04 (is that all there is?) 
search for a FN function name 


pop; <a><b><c>=VARTYPE 
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@ c529! 
D6B3 CD 06 D9 call D906 NAME SEARCH; if not used before make entry 
D6B6 38 10 jr c,D6C8 name found, get pointer to entry (de) 
D6B8 E5 push hl 
D6B9 79 ld a,c 
D6BA CD DB D5 call D5DB <h1l>=2%*<a>+AD4E 
D6BD CD DE D6 call D6DE search for a FN function name 
D6C0O 3A Cl BO ld a,(BOC1) VARTYPE 
D6C3 D4 49 D7 call nc,D749 ... 
D6C6 18 07 jr D6CF pop; <a><b><c>=VARTYPE 


— name found, get pointer to entry (de) 
@ D6A5’ D6B6” 


D6C8 ES push hl 
D6C9 2A 85 AE ld h1,(AE85) start of VAR table pointer 
D6CC 2B dec hl 
D6CD 19 add hl,de 
D6CE EB ex de,hl 
D6CF EI pop hl 
—— <a>=<b>=<c>=VARTYPE 
D6DO 3A Cl BO ld a, (BOC1) VARTYPE 
D6D3 47 ld b,a 
D6D4 4F ld c,a 
D6D5 C9 ret 
-_- search name, check (), a=b=c=VARTYPE 
@ DBD6! 
D6D6 CD 06 DI call D906 NAME SEARCH; if not used before make entry 
D6D9 CD Cl E8 call E8C1 check if parentheses pair 
D6DC 18 F2 jr D6DO <a>=<b>=<c>=VARTYPE 


-_-- search for a FN function name 
@ D69D! D6AB! DE6BD! 


D6DE D5 push de 

D6DF EB ex de,hl 

D6EO 2A 2B AE ld hl, (AE2B) pointer to FN subprogram 
D6E3 7C ld a,h 

D6E4 B5 or 1 

D6E5 28 OE jr z,D6F5 ... 
D6E7 D5 push de 

D6E8 23 inc hl 

D6E9 23 inc hl 

D6EA C5 push bc 

D6EB 01 00 00 ld bc,0000 

D6EE CD 08 D7 call D708 ... 
D6Fl CI pop bc 

D6F2 38 10 jr c,D704 

D6F4 DI pop de 

D6F5 EB ex de,hl 

D6F6 ES push hl 

D6F7 CD 08 D7 call D708 ... 
D6FA 38 03 jr c,D6FF 

D6FC EL pop hl 

D6FD DI pop de 

D6FE C9I ret 

D6FF Fl pop af 

D700 EI pop hi 

D701 c3 6D D7 jp D76D ... 
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D704 Fl 
D705 Fl 
D706 37 
D707 c9 


pop af 
pop af 
scf 

ret 


@ D6EE! D6F7! D72F’ D7CD! D807! D9D6! 


D708 7E 
D709 23 
D70A 66 
D70B 6F 
D70C B4 


D72E EI 
18 D7 


ld a,(hl) 
inc hl 
ld h,(hl) 
ld 1,a 
or h 
ret z 
add hl,bce 
push hl 
inc hl 
inc hl 
ex de,hl 
ld h1,(AE27) 
ld a,(de) 
cp (hl) 
jr nz,D72E 
inc hl 
inc de 
rla 
jr nc,D716 
ex de,hl 
ld a,(BOC1) 
dec a 
xor (hl) 
and 07 
jr nz,D72E 
ex de,hl 
inc de 
pop hl 
scf 
ret 


pop hl 
jr D708 


pointer to BASIC STACK 


VARTYPE 


mask out 


— de=hl; skip over VARIABLE name 
@ D9A8! DAAB! DAD7! 


D731 F5 


D739 30 FB 


@ D6AE! 
3E 02 

CD 49 D7 
D742 1B 

D743 1A 

F6 40 
D746 12 

D747 13 

D748 c9 


push af 
ld d,h 
ld e,l 
inc hl 
inc hl 
ld a,(hl) 
inc hl 
rla 
jr nc,D736 
pop af 
ret 


ld a,02 
call D749 
dec de 

ld a,(de) 
or 40 

ld (de),a 
inc de 
ret 
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de=hl 


next until bit 7 is found set 


<integer VAR?> 


@ 
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D748 


@ D6C3! D73F! 


D749 D5 push de 
D74A ES push hl 
D74B C5 push bc 
D7AC F5 push af 
D74D CD 77 D7 call D777 ... 
D750 F5 push af 
D751 2A 87 AE ld h1,(AE87)start of DIM’d VAR table pointer 
D754 EB ex de,hl 
D755 CD F8 F5 call F5F8 allocate space for new variables 
D758 cD 3A F5 call F53A shift DIM’d VAR pointers up by <bc> 
D75B Fl pop af 
D75C CD 8A D7 call D78A ... 
D75F Fl pop af 
D760 2B dec hl 
D761 36 00 ld (h1),00 
D763 3D dec a 
D764 20 FA jr nz,D760 ... 
D766 ci pop bc 
D767 E3 ex (sp),hl 
D768 CD A5 D7 call D7A5 ... 
D76B DL pop de 
D76C EI pop hl 
@ D701 D8OF! D821! 
D76D 23 inc hl 
D76E 7B ld a,e 
D76F 91 sub c 
D770 77 ld (hl),a 
D771 23 inc hl 
D772 7A ld a,d 
D773 98 sbc a,b 
D774 77 ld (hl),a 
D775 37 scf 
D776 C9 ret 
@ D74D! D893! 
D777 C6 03 add a,03 <string VAR$> 
D779 4F ld c,a 
D77A 2A 27 AE ld h1,(AE27) pointer to BASIC STACK 
D77D 06 00 ld b,00 
D77F  0C ine c 
D780 04 inc b 
D781 TE ld a,(hl) 
D782 23 inc hl 
D783 17 rla 
D784 30 F9 jr nc,D77F se 
D786 78 ld a,b 
D787 06 00 ld b,00 
D789 c9 ret 
@ D75C! D89F! 
D78A 62 ld h,d 
D78B 6B ld 1,e 
D78C 09 add hl,bc 
D78D 4F ld c,a 
D78E 06 00 ld b,00 
D790 ES push hl 
D791 D5 push de 
D792 13 inc de 
D793 13 inc de 
D794 2A 27 AE ld h1,(AE27) pointer to BASIC STACK 
D797 CD F2 FF call FFF2 ldir 
D79A 3A Cl BO ld a,(BOC1) VARTYPE 
D79D 3D dec a 
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D79E 12 
D79F 13 
D7AO 42 
D7Al 4B 
D7A2 DL 
D7A3 EI 
D7A4 C9 


ld (de),a 
inc de 
ld b,d 
ld c,e 
pop de 
pop hl 
ret 


@ D768! D900! DIB4! DA62! 


ld a,(hl) 
ld (de),a 
ld a,e 
sub c 
ld (hl),a 
inc hl 
ld a,(hl) 
push af 
ld a,d 
sbc a,b 
ld (hl),a 
pop af 
inc de 
ld (de),a 
inc de 
ret 


.—- perform command DIM <name> (<maxindex.1>[,<...>][,<...>]), <name>(....)] 
@ D67D! 


D7B5 CD 
D7B8 TE 
D7B9 FE 


06 


28 
05 


D9 


call D906 
ld a,(hl) 
cp 28 
jr z,D7C2 
xor 5B 
jp nz,D642 
call D85A 
push hl 
push bc 
ld a,(BOC1) 
call D5EA 
call D708 
jp c,D64A 
pop bc 
ld a,FF 
call D88A 
pop hl 
ret 


is it a subscripted variable? 


@ D689! D693! 


D7DB F5 


push af 
ld a,(hl) 
cp 28 
jr z,D7Fl 
xor 5B 
jr z,D7Fl 
pop af 
ret nc 
push hl 
ld h1, (AE85) 
dec hl 
add hl,de 
ex de,hl 
pop hl 
sc£ 
ret 


huslik, cpc464 inside out 


NAME SEARCH; if not used before make entry 


« 
ok, go ahead 
A 


Error: Syntax error 


VARTYPE 
<hl>=2%*%<a>+AE06 


Error: Array already dimensioned 


"IGNORE 


it’s a subscripted variable 
A 


it’s a subscripted variable 


start of VAR table pointer 
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D7FO 


it’s a subscripted variable 


CD 


5A 


07 
87 


15 


ci 
EA 
08 
OF 


6D 


46 
0A 


8A 
6D 


00 


02 
AO 


B8 
46 


BE 
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D8 


AE 


D7 


D8 
D7 


00 


F5 


call D85A 
pop af 
push hl 

jr nc,D’FF 
ld h1,(AE87) 
dec hl 

add hl,de 
jr D814 


push bc 
push de 
ld a, (BOC1) 
call D5EA 
call D708 
jr nc,D81B 
inc de 
inc de 
pop hl 
call D76D 
pop bc 
ex de,hl 
ld a,b 
sub (hl) 
jp nz,D646 
jr D825 


pop hl 
pop bc 
xor a 
call D88A 
call D76D 
ex de,hl 
ld de,0000 
ld b,(hl) 
inc hl 
push hl 
push de 
ld e,(h1) 
inc hl 
ld d,(h1l) 
ld a,02 
call F5AO 
ld a,(hl) 
inc hl 
ld h,(hl) 
ld 1,a 
call FFB8 
jp nc,D646 
ex (sp),hl 
call BDBE 
pop de 
add hl,de 
ex de,hl 
pop 
inc 
inc 
dec b 
jr nz,D82A 
push hl 
ld hl,(BOC1) 
ld h,00 
call BDBE 
pop de 
add hl,de 
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start of DIM’d VAR table pointer 


VARTYPE 
<hl>=2*<a>+AE06 


Error: Subscript out of range 


... 


decrement BASIC STACK pointer by <a> 


test HL=DE? (try hl-de) 
Error: Subscript out of range 


INT ARITH, ?? 


... 


VARTYPE 


INT ARITH, ?? 


huslik, cpc464 inside 


out 


D856 
D857 
D858 
D859 


D85A 
D85B 
D85E 
D861 
D862 
D864 
D867 
D868 
D86A 
D86D 
D86E 
D86F 
D870 
D871 
D872 
D875 
D877 
D878 
D87A 
D87C 
D87E 
D881 
D884 
D885 
D888 
D889 


D88A 
D88B 
D88E 
D88F 
D890 
D891 
D893 
D896 
D897 
D89A 
D89B 
D89E 
D89F 
D8A2 
D8A3 
D8A4 
D8A5 
D8A6 
D8A7 
DE8A8 
D8AB 
DS8AC 
D8AE 
D8AF 
D8BO 


D8Bl 
D8B2 
D8B5 
D8B6 


EB 
El 
37 
c9 


ex de,hl 
pop hl 
scf 

ret 


@ D7C2! D7FL! 


D5 
CD 3F DD 
3A Cl BO 


CD 7C CE 


CD BO F5 


cD 55 DD 
38 ED 


FE 29 
28 05 
FE 5D 
c2 42 D6 
CD 3F DD 


32 Cl BO 


push de 
call DD3F 
ld a,(BOC1) 
push af 
ld b,00 
call CE7C 
push hl 
ld a,02 
call F5BO 
ld (hl),e 
inc hl 
ld (hl),d 
pop hl 
inc b 
call DN55 
jr c,D864 


jp nz,D642 
call DD3F 
pop af 
ld (BOC1),a 
pop de 
ret 


@ D7D6! DBIE! 


E5 
32 26 AE 


c6 03 
cD 77 D7 


2A 89 AE 
CD F8 F5 


CD 8A D7 


3A Cl BO 


16 00 


@ D8D3’ 
D5 

3A 26 AE 
B7 

11 0B 00 


push hl 
ld (AE26),a 
push bc 
ld a,b 
add a,a 
add a,03 
call D777 
push af 
ld hl, (AE89) 
ex de,hl 
call F5F8 
pop af 
call D78A 
ld h,b 
ld l,c 
pop be 
push de 
ine hl 
inc hl 
ld a,(BOC1) 
ld e,a 
1d d,00 
ld (hl),b 
push hl 
inc hl 


push de 
ld a,(AE26) 
or a 
ld de,000B 


huslik, cpc464 inside out 


CHRGET <a>, skip blank, cp Ol 
VARTYPE 


priority 
get integer VAL of expression, neg=error 


<integer VAR%> 
inc BASIC STACK pointer by <a>, (hl)=next lo 


CHRBACK comma?; if=:CHRGET <a>, scf 
next dimension 


) 
2) 
Error: Syntax error 


CHRGET <a>, skip blank, cp Ol 


VARTYPE 


upper end of DIM’d variables pointer 


allocate space for new variables 


VARTYPE 
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28 OB jr z,D8C6 
E5 push hl 

3E 02 ld a,02 
CD AO F5 call F5AO 
5E ld e,(hl) 
23 inc hl 

56 ld d,(hl) 
13 inc de 

El pop hl 

73 ld (hl),e 
23 inc hl 

72 ld (hl),d 
23 inc hl 

E3 ex (sp),hl 
CD BE BD call BDBE 
DA 46 D6 jp c,D646 
EB ex de,hl 
El pop hl 

10 DC djnz D8Bl 
42 ld b,d 

4B ld c,e 

54 ld d,h 

5D ld e,l 

CD FB F5 call F5FB 
22 89 AE ld (AE89),hl 
c5 push bc 

2B dec hl 

36 00 ld (h1),00 
OB dec bc 

78 ld a,b 

Bl orc 

20 F8 jr nz,D8EO 
cl pop be 

El pop hl 

5E ld e,(hl) 
16 00 ld d,00 

EB ex de,hl 
29 add hl,hl 
23 inc hl 

09 add hl,bc 
EB ex de,hl 

2B dec hl 

2B dec hl 

73 ld (hl),e 
23 inc hl 

72 ld (hl),d 
23 inc hl 

E3 ex (sp),hl 
EB ex de,hl 

3A Cl BO ld a,(BOC1) 
CD EA D5 call D5EA 
CD A5 D7 call D7A5 
Dl pop de 

El pop hl 

c9 ret 


decrement BASIC STACK pointer by <a> 


INT ARITH, ?? 
Error: Subscript out of range 


upper end of DIM’d variables pointer 


VARTYPE 
<hl>=2%<a>+AE06 


NAME SEARCH; if not used before make entry 
@ D686! D690! D6A2! D6B3! D6D6! D7B5! DICC! 


CD 7F D9 call D97F 
23 inc hl 

5E ld e,(hl) 
23 inc hl 

56 ld d,(hl) 
7A ld a,d 

B3 or e 
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what VARTYPE is VAR NAME?, set VARTYPE (FAC) 


huslik, cpc464 inside out 


DIOF 28 0A jr z,D91B variable not yet used, insert pointer 
D911 23 inc hl 


D912 7E ld a,(hl) 

D913 17 rla bit 7 set? 

D914 30 FB jr nc,D911 skip over name 

D916 CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
D919 37 sc£f 

D91A CI ret 


— variable not yet used, insert pointer 


D91B 2B dec hl 
DIIC 2B dec hl 
D91D EB ex de,hl 
D9IE CL pop bc 
D9IF 2A 27 AE ld h1,(AE27) pointer to BASIC STACK 
D922 E5 push hl 
D923 21 2B DI ld h1,D92B ... 
D926 ES push hl call this routine by return 
D927 C5 push bc but first return to this routine 
D928 EB ex de,hl 
D929 18 OE jr D939 ... 
@ D923 
D92B ES push hl 
D92C 2A 27 AE ld h1, (AE27) pointer to BASIC STACK 
D92F CD AC F5 call F5AC set BASIC STACK pointer to <hl> 
D932 EL pop hl 
D933 E3 ex (sp),hl 
D934 22 27 AE ld (AE27),hl pointer to BASIC STACK 
D937 EL pop hl 
D938 CI ret 
@ D929° DA55! 
D939 E5 push hl 
D93A TE ld a,(hl) 
D93B 23 inc hl 
D93C 23 inc hl 
D93D 23 inc hl 
D93E 4E ld c,(hl) 
D93F CB AI res 5,c 
D94l FE OB cp OB <integer ver> 
D943 38 19 jr c,D95E ... 
D945 79 ld a,c 
D946 E6 IF and IF mask 5 bits 
D948 C6 OB add a,0B 
D94A 5F ld e,a 
D94B CE AE adc a,AE + AEOB 
D94D 93 sub e 
D94E 57 ld d,a 
DI4F 1A ld a,(de) 
D950 32 Cl BO ld (BOCl),a VARTYPE 
D953 E3 ex (sp),hl 
D954 36 OD ld (h1),0D <real var> 
D956 FE 05 cp 05 <FAC real> 
D958 28 03 jr z,D95D ... 
D95A C6 09 add a,09 for predefined vartype 
D95C 77 ld (hl),a 
D95D E3 ex (sp),hl 
D95E EB ex de,hl 
D95F 3E 28 ld a,28 =40. 
D961 CD BO F5 call F5BO inc BASIC STACK pointer by <a>, (hl)=next lo 
D964 22 27 AE ld (AE27),hl pointer to BASIC STACK 
D967 06 29 ld b,29 =4l. 
D969 05 dec b 
D96A CA 42 D6 jp z,D642 Error: Syntax error 
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DICB 


c3 3F DD 


ld a,(de) 
inc de 
and DF 
ld (hl),a 
inc hl 
rla 
jr nc,D969 
call F5AC 
ex de,hl 
dec hl 
pop de 
jp DD3F 


mask out 


bit 7 not set 
set BASIC STACK pointer to <hl> 


CHRGET <a>, skip blank, cp Ol 


what VARTYPE is VAR NAME?, set VARTYPE (FAC) 
@ D906! DA52! 


TE 
FE 
38 
c6 
FE 
28 
30 
FE 
30 
C3 


OB 
02 
F7 
04 
09 
04 
02 
05 
42 D6 


set VARTYPE 


CD 31 


07 


EA 
A5 


D5 
D7 


Dl 
18 E3 


command: 
@ DE37 
CD 89 EI 
CD CC D9 
cD 55 DD 
38 F8 

c9 
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ld a,(hl) 
cp 0B 
jr c,D986 


ld a,05 
ld (BOC1),a 
ret 


call D5C6 
ld hl, (AE89) 
ex de,hl 
ld h1,(AE87) 
call FFB3 
ret z 
push de 
call D731 
ld a,(hl) 
inc hl 
and 07 
inc a 
push hl 
call D5EA 
call D7A5 
pop hl 
ld e,(hl) 
inc hl 
ld d,(hl) 
inc hl 
add hl,de 
pop de 
jr D9A3 


call E989 
call DICC 
call DD55 
jr c,D9C3 
ret 


VARIABLE HANDLING 


<integer var> 
remove MARK °1 % $ 
set VARTYPE real 
<integer VAR%> 


= integer 
Error: Syntax error 


<FAC real> 
VARTYPE 


clear AE06..AEOB to 0 
upper end of DIM’d variables pointer 


start of DIM’d VAR table pointer 
test HL=DE? (try hl-de) 
end of table 


de=hl; skip over VARIABLE name 


mask out 


<hl>=2%*<a>+AE06 


ERASE <list of<DIM’d variable name>> 


clear all VARIABLE indices 

ERASE a <DIM’d VAR NAME> 

CHRBACK comma?; if=:CHRGET <a>, scf 
erase next 


huslik, cpc464 inside out 


----- ERASE a <DIM’d VAR NAME> 


@ D9c3! 
D9ICC CD 06 DI call D906 NAME SEARCH; if not used before make entry 
DICF E5 push hl 
D9DO 3A C1 BO ld a,(BOC1) VARTYPE 
D9D3 CD EA D5 call D5EA <hl>=2%<a>+AE06 
D9D6 CD 08 D7 call D708 ... 
D9D9 ES push hl 
D9DA EB ex de,hl 
D9DB IE 05 ld e,05 Improper argument 
D9DD D2 94 CA jp nc,CA94 perform ERROR <e> routine 
DIEO 5E ld e,(hl) 
DIEL 23 inc hl 
DIE2 56 ld d,(h1l) 
D9E3 23 inc hl 
D9E4 19 add hl,de 
D9E5 EB ex de,hl 
DIE6 2A 89 AE ld h1,(AE89) upper end of DIM’d variables pointer 
DI9E9 CD CF FF call FFCF HL=HL-DE 
DIEC E3 ex (sp),hl 
DIED CI pop bc 
DIEE EB ex de,hl 
DIEF 78 ld a,b 
D9FO Bl orc 
DI9FL C4 F2 FF call nz,FFF2 ldir 
DIF4 EB ex de,hl 
D9F5 22 89 AE ld (AE89),hl upper end of DIM’d variables pointer 
DI9F8 CD 99 DI call D999 ... 
DIFB EI pop hl 
DIFC CI ret 


— reset FN pointers as not used 
@ C165! CABO! 
D9FD 21 00 00 ld h1,0000 


DAOO 22 2B AE ld (AE2B),hl pointer to FN subprogram 
DAO3 22 29 AE ld (AE29),hl pointer to FN subprogram 
DAO6 C9I ret 
@ Dl4l! 
DAO7 ES push hl 
DAO8 2A 2B AE ld hl, (AE2B) pointer to FN subprogram 
DAOB ES push hl 
DAOC 2A 29 AE ld h1,(AE29) pointer to FN subprogram 
DAOF EB ex de,hl 
DAlO 3E 06 ld a,06 len of a GOSUB entry 
DAl2 CD BO F5 call F5BO inc BASIC STACK pointer by <a>, (hl)=next lo 
DAl5 22 29 AE ld (AE29),hl pointer to FN subprogram 
DAlS 73 ld (hl),e 
DA1l9 23 inc hl 
DAIA 72 ld (hl),d 
DAlB 23 inc hl 
DAIC AF xor a 
DAlD 77 ld (hl),a 
DAIE 23 inc hl 
DAIF 77 ld (hl),a 
DA20 23 inc hl 
DA21 DI pop de 
DA22 73 ld (hl),e 
DA23 23 inc hl 
DA24 72 ld (hl),d 
DA25 EI pop hl 
DA26 C9 ret 
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reset FN subprogramm pointers to zero len 
@ D1751! 


E5 


2A 29 AE 


29 AE 


ACc 


F5 


29 AE 


2B 


AE 


@ D152! 


E5 
3E 
CD 
E3 
cD 
cD 
E3 
EB 
2A 
23 
23 
ol 
CD 
3A 
47 
3C 


02 
BO 


7F 


39 


29 


00 
A5 
cl 


BO 


F5 


D9 
D9 


AE 


push hl 
ld h1, (AE29) 
ld (AE2B),hl 
pop hl 
ret 


push hl 
ld hl, (AE29) 
call F5AC 
ld e,(hl) 
inc hl 
ld d,(hl) 
inc hl 
ex de,hl 
ld (AE29),hl 
ex de,hl 
inc hl 
inc hl 
ld e,(hl) 
inc hl 
ld d,(hl) 
ex de,hl 
ld (AE2B),hl 
pop hl 
ret 


push hl 
ld a,02 
call F5BO 
ex (sp),hl 
call D97F 
call D939 
ex (sp),hl 
ex de,hl 
ld h1, (AE29) 
inc hl 
inc hl 
ld bc,0000 
call D7A5 
ld a,(BOC1) 
ld b,a 
inc a 
call F5BO 
ld a,b 
dec a 
ld (hl),a 
inc hl 
ex de,hl 
pop hl 
ret 


@ F778| FBIE FC99 
2A 29 AE 


7C 
B5 


0E 
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ld h1, (AE29) 
ld a,h 

or 1 

jr z,DA89 
ld c,(hl) 
inc hl 

ld b,(h1l) 
inc hl 

push bc 
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pointer to FN subprogram 
pointer to FN subprogram 


pointer to FN subprogram 
set BASIC STACK pointer to <hl> 


pointer to FN subprogram 


pointer to FN subprogram 


<integer VAR%> 
inc BASIC STACK pointer by <a>, (hl)=next lo 


what VARTYPE is VAR NAME?, set VARTYPE (FAC) 


... 


pointer to FN subprogram 


VARTYPE 


inc BASIC STACK pointer by <a>, (hl)=next lo 


pointer to FN subprogram 
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DA80 
DA83 
DA86 
DA87 


DA89 
DASC 
DA8D 
DA8E 
DA91 
DA94 
DA95 
DA9I6 
DA97 
DA99 
DA9B 


DA9IE 
DA9IF 
DAAO 
DAAl 
DAA2 
DAA3 
DAA4 
DAA7 
DAA8 
DAA9 
DAAA 
DAAB 
DAAE 
DAAF 
DABO 
DABI 
DAB2 
DAB3 
DAB4 
DAB5 
DAB6 
DAB? 
DAB8 
DAB9I 
DABB 
DABC 
DABD 
DABE 
DAC1 
DAC3 
DAC6 
DAC7 
DACE 
DAC9I 


DACB 
DACC 


DACE 
DACF 
DADO 
DADI 
DAD2 
DAD3 
DAD4 
DAD5 


01 00 00 ld bc,0000 
CD CE DA call DACE 
El pop hl 

18 EE jr DA77 

01 41 1A ld be,1A4l 
c5 push bc 

79 ld a,c 

CD DB D5 call D5DB 
CD CE DA call DACE 
cl pop bc 

oc ine c 

05 dec b 

20 F3 jr nz,DA8C 
3E 03 ld a,03 

CD EA D5 call D5EA 

@ DACC’ 

4E ld c,(hl) 
23 inc hl 

46 ld b,(hl) 
78 ld a,b 

Bl or c 

c8 ret z 

2A 87 AE ld h1,(AE87) 
2B dec hl 

09 add hl,bc 
E5 push hl 

D5 push de 

cD 31 D7 call D731 
Dl pop de 

23 inc hl 

4E ld c,(hl) 
23 inc hl 

46 ld b,(hl) 
23 inc hl 

E5 push hl 

09 add hl,bce 
E3 ex (sp),hl 
4E ld c,(hl) 
23 inc hl 

06 00 ld b,00 
09 add hl,bc 
09 add hl,bc 
cl pop bc 

CD BE FF call FFBE 
28 08 jr z,DACB 
CD E7 DA call DAE7 
23 inc hl 

23 inc hl 

23 inc hl 

18 F3 jr DABE 
El pop hl 

18 DO jr DA9E 

@ DA83! DAY1! DAE5” 

7E ld a,(hl) 
23 inc hl 

66 ld h, (hl) 
6F ld 1,a 

B4 or h 

c8 ret z 

09 add hl,bc 
ES push hl 
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<hl>=2*<a>+AD4E 


... 


<string VAR$> 


<hl>=2%<a>+AE06 


start of DIM’d VAR table pointer 


de=hl; skip over VARIABLE name 


test HL=BC? (try hl-bc) 


... 
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31 D7 


07 
02 
E7 DA 


18 E7 


push de 
call D731 

pop de 

ld a,(hl) 
inc hl 

and 07 

cp 02 

call z,DAE7 
pop hl 

jr DACE 


@ DAC3! DAEL! 


c5 
D5 
E5 
7E 
23 


C4 F& FF 


AF Cl 


push bc 
push de 
push hl 
ld a,(hl) 
inc hl 
ld c,(hl) 
inc hl 
ld b,(h1l) 
ex de,hl 
or a 


de=hl; skip over VARIABLE name 


mask out 
<integer VAR%> 


call nz,FFF8 jp(hl) 


pop hl 
pop de 
pop bc 
ret 


call DD37 
[INPUT] 
call CICB 
push af 
call DB89 
call D686 
call FF3C 
push hl 
push de 
call DBIA 
call F7DC 
pop hl 
call D66F 
pop hl 
pop af 
jp ClAF 


do line input here 


) 
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BOB! 

co cl 
66 DC 
A2 cl 


AD DB 


A2 Cl 


call CICO 

jp nc,DC66 
call ClA2 

push af 
call DBAD 
pop af 

jp C1A2 


call C1CB 
push af 
call DB47 
push de 
call D686 
ex (sp),hl 


INPUT COMMANDS 


: LINE INPUT [#<device>,] [;] [<message>;]<string variable> 


CHRNEXT <a>, nz=Error; CHRGET 
if ’# get chan, default=0, set input channel 
print message, if any; CHRGET 


get address of VARIABLE or subscript 
test VARTYPE for string, else error 


do line input here 
test len of string; copy temp to stack 


copy FAC to variable (hl) 


set input chan to <a>, a=old channel 


get input channel; cp 09 

rad a char from input, test EOF 

set output channel to <a>, a= old channel 
read a line into edit buffer 


set output channel to <a>, a= old channel 


: INPUT [#<device>,][;] [<message>;]<list of<variable>> 


if °# get chan, default=0, set input channel 
do input here 


get address of VARIABLE or subscript 
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3E 00 
CD BC DB 


DB43 Fl 
c3 AF Cl 


.- do input 
@ DB2F! 


c3 A2 Cl 


ld a,00 
call DBBC 
ex (sp),hl 
call DD55 
jr c,DB33 

pop de 

pop af 

jp ClAF 


here 


call C1CO 
jr nc,DB89 
call C1A2 
push af 
push hl 
call DB89 
ld a,3F 
call nc,C356 
ld a,20 
call nc,C356 
push hl 
call DBAD 
ex de,hl 
pop hl 
call DBD3 
jr c,DB72 
ld h1,DB77 
call C341 
pop hl 
jr DB50 


pop af 
pop af 
jp clA2 


----- ’Redo from Start 


0A 00 


3F 52 65 64 6F 20 66 72 6F 6D 20 73 74 61 72 74 


... 


CHRBACK comma?; if=:CHRGET <a>, scf 
get next variable 


set input chan to <a>, a=old channel 


get input channel; cp 09 
print message, if any; CHRGET 
set output channel to <a>, a= old channel 


print message, if any; CHRGET 
2 

output char <a> to channel 
’SPACE 

output char <a> to channel 
read a line into edit buffer 


ok 
"Redo from Start 
output text (hl) to channel 


try again 


set output channel to <a>, a= old channel 


‘?Redo from start 


— print message, if any; CHRGET 
@ DBOO! DB4A’” DB51! 


DB8I TE 
DB8A FE 3B 


ld a,(hl) 
cp 3B 

ld (AED),a 
call z,DD3F 
xor 22 
ret nz 

call F7CB 
call C1CO 
push af 

call c,F828 
pop af 

call nc,FBDA 
call DD55 
ret c 

call DD37 

3; 

or a 
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’ 


’ 
save for semicolon on PRINT 
CHRGET <a>, skip blank, cp Ol 


‚" 


[+]"text"; calculate len; copy temp to stack 
get input channel; cp 09 


print this line 


try to release string (FAC); <a>=len, z=zero 
CHRBACK comma?; if=:CHRGET <a>, scf 


CHRNEXT <a>, nz=Error; CHRGET 
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read a line into edit buffer 
@ DB24! DB5FI 

CD 3B CA call CA3B 

D2 6B CB jp nc,CB6B 

3A 2D AE ld a, (AE2D) 


FE 3B cp 3B 

C4 4E C3 call nz,C34E 
c9 ret 

@ DB39! DCFA! 

D5 push de 

CD 02 DC call DCO2 

30 0C jr nc,DBCE 
E3 ex (sp),hl 
CD 66 D6 call D666 

El pop hl 

7E ld a,(hl) 

23 inc hl 

B7 ora 

c8 ret z 

EE 2C xor 2C 

c9 ret 

lE 0D ld e,0D 

c3 94 CA jp CA94 

@ DB64! 

D5 push de 

E5 push hl 

D5 push de 

CD D6 D6 call D6D6 
E3 ex (sp),hl 
AF xor a 

cD 02 DC call DCO2 
30 1E jr nc,DBFE 
FE 03 cp 03 

CC DA FB call z,FBDA 
E3 ex (sp),hl 
cD 55 DD call DD55 
E3 ex (sp),hl 
30 0B jr nc,DBF7 
CD 61 DD call DD6l 
EE 2C xor 2C 

20 OB jr nz,DBFE 
23 inc hl 

E3 ex (sp),hl 
18 DF jr DBD6 

CD 61 DD call DD61 
B7 or a 

20 01 jr nz,DBFE 
37 scf 

El pop hl 

El pop hl 

Dl pop de 

c9 ret 


@ DBBD! DBDB! 


5F ld e,a 

CD 45 FF call FF45 
57 ld d,a 

D5 push de 

20 06 jr nz,DC10 
cD 21 DC call DC21 
37 sc£ 
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put O in edit buffer and read a line 
perform a BREAK 
save for semicolon on PRINT 


’ 
output °LF to channel 


Error: Type mismatch 


adjust VARTYPE, copy result to variable 


Type mismatch 
perform ERROR <e> routine 


search name, check (), a=b=c=VARTYPE 


<string VAR$> 
try to release string (FAC); <a>=len, z=zero 


CHRBACK comma?; if=:CHRGET <a>, scf 


CHRSKIP <a>; skip over blank, tab, linefeed 


CHRSKIP <a>; skip over blank, tab, linefeed 


get VARTYPE <a>; cp string 
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DCOE 18 09 jr DC19 ... 


DC10 CD COcCI call CICO get input channel; cp 09 
DC13 D4 38 DC call nc,DC38 ... 
DC16 CD A3 EC call ECA3 get either HEX or integer VAL 
DC19 F5 push af 
DClA DC 61 DD call c,DD6l CHRSKIP <a>; skip over blank, tab, linefeed 
DCIiD Fl pop af 
DCIE DI pop de 
DCIF 7A ld a,d 
DC20 CI ret 
@ DCOA! 
DC21 CD CO CI call C1CO get input channel; cp 09 
DC24 38 06 jr c,DC2C ... 
DC26 CD 47 DC call DC47 ... 
DC29 C3 DC F7 jp F7DC test len of string; copy temp to stack 
DC2C CD 61 DD call DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
DC2F FE 22 cp 22 u 
DC31 CA CB F7 jp z,F7CB [+)"text"; calculate len; copy temp to stack 
DC34 7B ld a,e 
DC35 C3 E6 F7 jp F7E6 eliminate superfluous char’s at string end 
@ DC13! 
DC38 CD 9D DC call DC9D read a char, ignore "blank, "tab, °’LF 
DC3B 30 05 jr nc,DC42 Error: EOF met 
DC3D 11 C6 DC ld de,DCC6 any of 20,09,0A,C8,2C,0D ? 
DC40 18 2C jr DC6E ... 
— Error: EOF met 
DC42 IE 18 ld e,18 EOF met 
DC44 C3 94 CA jp CA94 perform ERROR <e> routine 
@ DC26! 
DC47 CD 9D DC call DC9D read a char, ignore °’blank, ’tab, °’LF 
DC4A 30 F6 jr nc,DC42 Error: EOF met 
DC4C FE 22 cp 22 a 
DC4E 28 05 jr z,DC55 ... 
DC50 11 CA DC ld de,DCCA is there a COMMA or ’CR 
DC53 18 19 jr DC6E ... 
DC55 CD AB DC call DCA8 read a char, skip ’LF after ’CR 
DC58 11 63 DC ld de,DC63 ... 
DC5B 38 11 jr c,DC6E ... 
DC5SD 21 A4 AC ld h1,ACA4 EDIT BUFFER 
DC60 36 00 ld (h1),00 ’NUL 
DC62 C9 ret 
@ DC58: 
DC63 FE 22 cp 22 er 
DC65 C9 ret 
—- rad a char from input, test EOF 
@ DBI1D 
DC66 CD A8 DC call DCA8 read a char, skip °LF after ’CR 
DC69 30 D7 jr nc,DC42 Error: EOF met 
DC6B 11 CD DC ld de,DCCD cp OD; ret 
@ DC40° DC53° DC5B’ 
DC6E 21 A4 AC ld h1,ACA4 EDIT BUFFER 
DC71l ES push hl 
DC72 06 FF ld b,FF 
DC74 CD FB FF call FFFB jp(de) 
DC77 28 0C jr z,DC85 ... 
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DC79 77 ld (hl),a 


DC7A 23 inc hl 

DC7B 05 dec b 

DC7C 28 05 jr z,DC83 ... 

DC7E CD A8 DC call DCA8 read a char, skip ’LF after ’CR 
DC81 38 Fl jr c,DC74 ee 

DC83 F6 FF or FF "IGNORE 

DC85 36 00 ld (h1),00 

DC87 EI pop hl 

DC88 CO ret nz 

DC89 FE OD cp OD CR (Mm) 

DC8EB CB ret z 

DC&C FE 22 cp 22 in 

DC8E C4 DO DC call nz,DCDO any of 20,N09,0A? =carry 

"DC91 CO ret nz 

DC92 CD 9D DC call DC9D read a char, ignore blank, ‘tab, ’LF 
DC95 DO ret nc 

DC96 CD CA DC call DCCA is there a COMMA or ’CR 

DC99 C4 14 C4 call nz,C4l4 CAS RETURN, put last char read back 
DC9IC C9I ret 


u read a char, ignore ’blank, ’tab, ’LF 
@ DC38! DC47! DC92! DCA4’ 


DCI9D CD AB DC call DCA8 read a char, skip ’LF after ’CR 

DCAO DO ret nc break 

DCAl CD DO DC call DCDO any of 20,09,0A? =carry 

DCA4 28 F7 jr z,DC9D read a char, ignore blank, ’tab, ’LF 
DCA6 37 scf 

DCA7 cC9 ret 


.-- read a char, skip ’LF after ’CR 
@ DC55! DC66! DC7E! DC9D! 


DCAB CD 24 C4 call C424 read a char from input file 
DCAB DO ret nc 
DCAC C5 push bc 
DCAD FE OD cp OD CR (MM) 
DCAF 06 0A ld b,0A LF (79) 
DCBl 28 05 jr z,DCB8 
DCB3 B8 cp b 
DCB4 20 0D jr nz,DCC3 
DCB6 06 OD ld b,0D CR (M) 
DCB8 4F ld c,a 
DCBI CD 24 C4 call C424 read a char from input file 
DCBC 30 04 jr nc,Dcc2 
DCBE B8 cp b 
DCBF C4 14 C4 call nz,C4l14 CAS RETURN, put last char read back 
Dcc2 79 ld a,c 
DCC3 CI pop bc 
DCC4 37 scf 
DCCc5 C9 ret 
— any of 20,09,0A,C8,2C,0D ? 
@ DC3D: 
DCC6 CD DO DC call DCDO any of 20,09,0A? =carry 
DCC9 CE ret z 


-- is there a COMMA or ’CR 
@ DC50: DC96! 

DCCA FE 2C cp 2C 

DCCC C8 ret z 
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-_- any of 20,09,0A? =carry 
@ DC8E! DCAL! DCC6! 


DCDO FE 


20 


@ DE8F 


cp 20 
tet z 
cp 09 
ret z 
cp 0A 
ret 


RESTORE [<linef#>] 


jr z,DCE5 
call CEEl 
push hl 
call E79A 
dec hl 

jr DD12 


CR (CM 


"SPACE 
HT (I) 


“LF (I) 


reset DATA pointer to basic start 
get line# into <de> 


search line# <de> from start, <hl>=addr, nc= 


set DATA pointer to HL 


— reset DATA pointer to basic start 
@ C189 DCD9Y’ 


DCE5S ES 


DCEI 18 


27 


2A 81 AE 


push hl 
ld h1,(AE81) 
jr DD12 


start of BASIC program -l pointer 
set DATA pointer to HL 


— command: READ <list of<variable>> 


@ DE87 


DCEB ES 
DCEC 2A 
DCEF CD 
DCF2 E3 
DCF3 CD 
DCF6 E3 
DCF7 23 
DCF8 3E 
DCFA CD 
DCFD 2B 
DCFE 28 
DDOO 2A 
DDO3 CD 
DD0O6 IE 
DDO8 C3 


DDOB E3 
DDOC CD 
DDOF E3 
DD10 38 


30 
17 


86 
3A 
BC 
0B 
2E 
CE 
02 
94 
55 


DD 


AE 
DD 


D6 


DB 


AE 


DD 


CA 


DD 


push hl 
ld hl, (AE30) 
call DD17 
ex (sp),hl 
call D686 
ex (sp),hl 
inc hl 
ld a,3A 
call DBBC 
dec hl 
jr z,DDOB 
ld hl, (AE2E) 
call DDCE 
ld e,02 
jp CA94 


ex (sp),hl 
call DD55 
ex (sp),hl 
jr c,DCEF 


— set DATA pointer to HL 
@ DCE3’ DCE9I’ 


DD15 EI 
DD16 C9I 


22 30 AE 


ld (AE30),hl 
pop hl 
ret 


pointer to next data 
get DATA element, z-flag if empty 


get address of VARIABLE or subscript 


last DATA linef# 

set BASIC program counter to <hl> 
Syntax error 

perform ERROR <e> routine 


CHRBACK comma?; if=:CHRGET <a>, scf 


get next element 


pointer to next data 


----- get DATA element, z-flag if empty 
@ DCEF! 


DD17 7E 
DD18 FE 
DDIA C8 


2C 


ld a,(hl) 
cp 2C 
ret z 
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-—— find next DATA 


DDIB CD EF Eß call E8EF command: DATA <list of<data>> (skip this 1 
DDIE B7 ora 

DDIF 20 OE jr nz,DD2F 

DD21 23 inc hl 

DD22 7E ld a,(hl) 

DD23 23 inc hl 

DD24 B6 or (hl) 

DD25 23 inc hl 

DD26 IE 04 ld e,04 DATA exhausted 

DD28 CA 94 CA jp z,CA94 perform ERROR <e> routine 
DD2B 22 2E AE ld (AE2E),hl last DATA line# 

DD2E 23 inc hl 

DD2F CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
DD32 FE 8C cp 8C [DATA] 

DD34 20 ES jr nz,DD1B find next DATA 

DD36 C9 ret 


— CHRNEXT <a>, nz=Error; CHRGET 

check, whether the next char within Basic program is equal to the char 
following the call to this routine 

@ CIF5! C22E! C280! C2ED! C32B! C49B! CAF5! C5lE! C57C! C58F! C6CE! 

@ C7F2! C862! C8D2! C940! CY4E! CBE8B! CECE! D073! DO8SF! DI17! DL4D! 

@ D166! DI6C! DI7L! D178! D214! D228! D2C6! D377! D3C6! DICE! D443! 

@ D461! D4B3! D58F! D658! DAF8! DBA7! EA6l! EC16! EC5E! EC66! Fl63! 

@ F185! F199! F2A3! F2AA! F2CA! F6A5! F8EL! F8EA! FBFl! FBFB! F94B! 

@ F96D! F993! FYA3! FYAF! F9B3! FYEC! FAOL! FA3A! FA4L! FAB3! FABA! 


@ FAC6! 
DD37 E3 ex (sp),hl 
DD38 7E ld a,(hl) 
DD39 23 inc hl 
DD3A E3 ex (sp),hl 
DD3B BE cp (hl) 
DD3C C2 C6 DD jp nz,DDC6 Error: syntax error 


----- CHRGET <a>, skip blank, cp Ol 
@ C2FD! C5AD! C7FC! C8DE CID3! CYFO! CAl5 CA27I CA35! CA38 CBE5! 
@ CC20! CEF8 CFO4 CFCB! CFEA DO6D DO82! D149! D36C! D3B3! D456! 
@ D4AC! D4C3! D589! D626! D62D! D636! D85B! DE8L! DIY16! DI7C DBBF! 
@ DD2F! DD43° DD56! DD5C! DD85! DDCO ESBC! E943 AEYAB! EA4O! F230: 
@ F25C! F2AO! F2C4! F2FA! F4B3! F6CD! F7D2 


DD3F 23 inc hl 

DD40 T7E ld a,(hl) 

DD41l FE 20 cp 20 "SPACE 

DD43 28 FA jr z,DD3F CHRGET <a>, skip blank, cp Ol 
DD45 FE Ol cp Ol end of line? 

DD47 DO ret nc 

DD48 B7 or a set z-flag 

DD49 C9 ret 


— CHRGOT <a>; end of statement? else syntax error 
@ COF3! C1FO! C5C3! CCOC! D2FD! D3FC EOFF! E72B! E8OL! EAl6! EA2B! 
@ EA6B! EAA9! EC3F! EC78! EC87! FID8! 


DD4A TE ld a,(hl) 

DD4B FE 02 cp 02 end of statement? 
DD4D D8 ret c 

DD4E C3 C6 DD jp DDC6 Error: syntax error 


_-- CHRGOT <a>; end of statement? =carry 
@ C4B5! C53F! C6DB! CEB9! E9BD! F208! F2lE! F2ED! FA7FF! 


DD51 7E ld a,(hl) 
DD52 FE 02 cp 02 end of statement? 
DD54 cC9 ret 
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CHRBACK comma?; if=:CHRGET <a>, scf 

check, whether the last char read from the Basic program was a comma 
@ COED! CIED! C240! C304! C491! CADC! C62C! C980! CIFC! CEB6! CECA! 
@ CED6! CEDD! D160! DIF3! D21F! D2D1! D30D! D3DB! D484! D63C! D680! 
@ D872! D9C6! DB3D! DBA3! DBE6! DDOC! E7ED! E7FB! EA2I! EA4E! EAS5A! 
@ ECl1! EC6E! FICD! F6B2! F8D4! 


DD55 2B dec hl 

DD56 CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
DD59 EE 2C xor 2C 

DD5B CO ret nz 

DD5C CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
DD5F 37 scf 

DD60 cC9 ret 


----- CHRSKIP <a>; skip over blank, tab, linefeed 


@ C86B! D576! DBEC! DBF7! DC1lA! DC2C! DD65’ DD69° DD6D’ E335! E6BC! 


@ E6D9! ECA8! ECEL! ED44! ED54! ED82! EDC9! EEID! EE30! 


DD61L TE ld a,(hl) 
DD62 23 inc hl 
DD63 FE 20 cp 20 "SPACE 
DD65 28 FA jr z,DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
DD67 FE 09 cp 09 “HT (°I) 
DD69 28 F6 jr z,DD6l CHRSKIP <a>; skip over blank, tab, linefeed 
DD6B FE 0A cp 0A ’LF (9) 
DD6D 28 F2 jr z,DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
DD6F 2B dec hl 
DD70 cC9 ret 
—— get the program counter and RUN 
@ D30A 
DD71 2A 34 AE ld hl, (AE34) program counter on RUN 


----- do the RUN LOOP 
@ C0OC9 C8B3 C8C8 CBD6 


DD74 EB ex de,hl 

DD75 2A 8B BO ld h1,(BO8B) BASIC STACK pointer 

DD78 22 32 AE ld (AE32),hl temp storage BASIC STACK pointer 
DD7B EB ex de,hl 

DD7’C 22 34 AE ld (AE34),hl program counter on RUN 

DD’F CD 21 B9 call B921 KL POLL SYNCHRONOUS, check for higher priori 
DD82 DC 07 C8 call c,C807 there is a higher priority 

DD85 CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
DD88 C4 AB DD call nz,DDAB look for other tokens 

DD8B 7E ld a,(hl) 

DD8&C FE Ol cp O1 <statement end> 

DD8E 28 E4 jr z,DD74 do the RUN LOOP 

DD90 30 34 jr nc,DDC6 Error: syntax error 

DD92 23 inc hl 


 — RUN LOOP, part 2 
@ C844 CAC8B CC16 EIF3 


CCID DD8E’ DDAL’ DDA6’ 


DD93 7E ld a,(hl) get len of this program line 
DD94 23 inc hl 

DD95 B6 or (hl) 

DD96 23 inc hl 

DD97 28 OF jr z,DDA3d jp perform an error break 
DD99 22 36 AE ld (AE36),hl BASIC program counter PC 
DD9C 23 inc hl 

DD9D 3A 38 AE ld a, (AE38) flag TRON/TROFF ££/O 

DDAO B7 or a 

DDAl 28 DI jr z,DD74 trace flag not set 

DDA3 CD EB DD call DDEB trace print °[<line#>]” 
DDA6 18 CC jr DD74 do the RUN LOOP 
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RUN 273 


DDA6 


-- jp perform an error break 
DDA8 C3 76 CB jp CB76 perform an error break 


-_--- look for other tokens 
@ C6E5 C7F9 DD88! 


DDAB 87 add a,a 

DDAC D2 4F D6 jp nc,D64F EXTERNAL CALL or LET 

DDAF FE B9 cp B9 token > 5C? 

DDBl 30 10 jr nc,DDC3 undefined TOKEN 

DDB3 EB ex de,hl 

DDB4 C6 Ol add a,0l calculate table offset 

DDB6 6F 14. I,a 

DDB7 CE DE adc a,DE 

DDBI 95 sub 1 

DDBA 67 ld h,a now <hl>=<a>*2+DEOL 

DDBB 4E ld c,(hl) 

DDBC 23 inc hl (be)=called command address 
DDBD 46 ld b,(hl) 

DDBE C5 push bc this is the return address = command 
DDBF EB ex de,hl 

DDCO C3 3F DD jp DD3F CHRGET <a>, skip blank, cp Ol 
— undefined TOKEN 

DDC3 CD 07 AC call AC07 Indirection: Undefined token 
— Error: syntax error 

DDC6 IE 02 ld e,02 Syntax error 

DDC8 C3 94 CA jp CA94 perform ERROR <e> routine 


 —— reset BASIC program counter 
@ C028! C096! CB8D! ELO2! EBF2! 
DDCB 21 00 00 ld h1,0000 


-—n- set BASIC program counter to <hl> 
@ Cc559! C5EE! C6lB! C720! C794! C7AE! CIE9! CAOD! CAD6! CBA5! CBCF! 
@ CC3E! DDO3! E9OD! E920 

DDCE 22 36 AE ld (AE36),h1l BASIC program counter PC 

DDDL cC9 ret 


en get BASIC program counter in <hl> 
@ C555! C5cc! C703! C75C! C788! C9C6! CYE5! CAO9! CAlA! CAB8! CBB5! 


@ ESFF! 
DDD2 2A 36 AE ld hl, (AE36) BASIC program counter PC 
DDD5 cC9 ret 


— get BASIC line# at PC in <hl>, =carry 
@ CO6D! C853! C87D! CB40! CB76! CB94! CBBL! DLIC! E775! E86! 


DDD6 2A 36 AE ld hl, (AE36) BASIC program counter PC 
- get line# at (hl) in <hl>, =carry 
@ CAE2! 
DDD9 7C ld a,h 
DDDA B5 or 1 
DDDB C8 ret z there is no line# 
DDDC 7E ld a,(hl) 
DDDD 23 inc hl 
DDDE 66 ld h,(hl) ld hl,(hl) 
DDDF 6F ld 1,a 
DDEO 37 scf 
DDEl C9 ret 
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command: TRON 


@ DEA7 

3E FF ld a,FF 

18 01 jr DDE7 
command: TROFF 

@ C16B! DEA5 

AF xor a 

32 38 AE ld (AE38),a 
c9 ret 

trace print ’[<line#>]” 
@ DDA3! 

3E 5B ld a,5B 

cD 56 C3 call C356 
E5 push hl 

2A 36 AE ld hl, (AE36) 
7E ld a,(hl) 
23 inc hl 

66 ld h,(hl) 
6F ld 1,a 

CD 79 EE call EE79 
El pop hl 

3E 5D ld a,5D 

c3 56 C3 jp C356 
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flag set ON 


flag set OFF 
flag TRON/TROFF £f/O 


A 


output char <a> to channel 


BASIC program counter PC 


print line# 


output char <a> to channel 


TRACE 


275 DEOL 


Basic COMMAND TOKEN ADDRESS LIST 


@ DDB7 
71.C9 
DF CO 
21 c2 
BA Fl 
46 D2 


c971 
CODF 
c221 
FL1BA 
D246 
EA3C 
c132 
C4B5 
D298 
D2Al 
C25A 
CBCO 
E8EF 
D117 
D618 
D6LC 
D614 
D4E7 
E728 
D67D 
C4C6 
CACB 
c052 
E8F3 
CB65 
D385 
D34E 
DICO 
CA8F 
c979 
c529 
C6ED 
C6E8 
c6C7 
C22A 
DB2B 
D439 
D654 
DAF8 
EOF7 
EIF6 
Cc2D2 
F4EF 
EAA6 
F993 
C24F 
C505 
C50A 
C5FB 
C12B 
C7E3 
CS8CB 
CBF8 
C940 
D25F 
D256 
C48C 
F177 
C20A 
c212 
C4DO 
C4D5 
F15F 


COMMAND TABLE 


command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 


AFTER <time period> [,<timer>) GOSU 
AUTO [<linef#>] [,<line step>] 

BORDER <ink> [,<ink>] 

CALL <RAM address>[,<list of<argume 
CAT, list filenames from TAPE 

CHAIN <filename>[,<run line#>) [,DE 
CLEAR 

CLG [<ink>] 

CLOSEIN 

CLOSEOUT 

CLS [#<device>] 

CONT 

DATA <list of<data>> (skip this 1 
DEF FN<name>[(<argument>)]=<express 
DEFINT <I[-N]> 

DEFREAL <B[-H]> 

DEFSTR <A[,0-2]> 

DEG 

DELETE <line#>[-<line#>] 

DIM <name>(<maxindex.1>[,<...>][,<m 
DRAW <x>,<y>[,<ink>] 

DRAWR <xd>,<yd>[,<ink>] 

EDIT <line#> 

ELSE ° REM 

END 

ENT <sequence#> [,<steps>,<step>,<p 
ENV <sequence#> [,<steps>,<step>,<p 
ERASE <list of<DIM’d variable name> 
ERROR <error#> 

EVERY <time period> [,<timer>] GOSU 
FOR <variable> = <start> TO <end> [ 
GOSUB <line#> 

GOTO <line#> 

IF <logic expr> 
INK<ink>,<colour>[,<colour>] 

INPUT [#<device>,)[;) [<message>;]<1 
KEY <expansion code>,<string expres 
LET <variable>=<expression> 

LTNE INPUT [#<device>,] [;] [<message 
LIST [<line> [-<line>]] [,#<device>] 
LOAD <filename>[,‚<startaddress>] 
LOCATE [#<device>,] <x coord>, <y c 
MEMORY <address> 

MERGE [<filename>] 
MID$(<stringvar>,<startpos>,<len>)= 
MODE <mode> 

MOVE <x>, <y> 

MOVER <xd>,<yd> 

NEXT [<list of <variable>>] 

NEW 

ON 

ON BREAK 

ON ERROR 

ON SQ(<sound channnel>) GOSUB 
OPENIN <filename> 

OPENOUT <filename> 

ORIGIN <x>,<y> [,<left>,<right>,<to 
OUT <I/O address>,<byte value> 
PAPER [#<device>,] <ink> 

PEN [#<device>,] <ink> 

PLOT <x>,<y>[,<ink>] 

PLOTR <xd>,<yd>[,<ink>] 

POKE <address>,<byte value> 
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FIFD 
E8F3 
D4EB 
D559 
DCEB 
D31E 
E8F3 
E7DF 
DCD9I 
cCc03 
C70F 
E9BD 
EC09 
D2CO 
D494 
CB5A 
F69D 
c319 
c320 
DDE6 
DDE2 
F17D 
c776 
c747 
C3E3 
C2El 
F47B 
FLF6 
C8El 
C8E7 


command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 


PRINT [#<device>,] [<list of<variabl 
ELSE ” REM 

RAD 

RANDOMIZE [<start expression>] 

READ <list of<variable>> 

RELEASE <channels> 

ELSE ° REM 

RENUM [<line#>] [,[<old line#>] [‚<st 
RESTORE [<line#>] 

RESUME [<line#>] or RESUME NEXT 
RETURN 

RUN [<line#>] 

SAVE <filename>[,<filetype>] [,<star 
SOUND <stat>,<period>,<tim>,<vol>,< 
SPEED 

STOP 

SYMBOL <symbol#>,<list of<parameter 
TAG [#<device>] 

TAGOFF [#<device>] 

TROFF 

TRON 

WAIT <I/O address>,<AND mask>[,<XOR 
WEND 

WHILE <logic expression> 

WIDTH <width> 

WINDOW [#<device>,]<left>,<right>,< 
WRITE [#<device>,] [<list of<variabl 
ZONE <byte value> 

DI 

EI 


— assemble a program line; (hl)=edit buffer 
@ COC2! E6D5! 


DEBB D5 
DEBC EB 
DEBD 2A 
DECO EB 
DEClL D5 
DEC2 AF 
DEC3 32 
DEC6 O1 
DEC9 CD 
DECC TE 
DECD B7 
DECE 20 
DEDO 3E 
DED2 91 
DED3 4F 
DED4 3E 


7F AE 


39 AE 
2c 01 
El DE 


push de 
ex de,hl 
ld h1,(AE7F) 
ex de,hl 
push de 
xor a 
ld (AE39),a 
ld bce,012C 
call DEEl 
ld a,(hl) 
or a 
jr nz,DEC9 
ld a,2D 
sub c 
ld c,a 
ld a,01 
sbc a,b 
ld b,a 
xor a 
ld (de),a 
inc de 
ld (de),a 
inc de 
ld (de),a 
pop hl 
pop de 
ret 
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low memor 


low mem 
reset 
flag used 
space bel 
convert a 
points to 


next char 


012D-<bc> 


<bc>=1len 
=0) 


y boundary pointer 


assembling a basic line 
ow basic program 

Basic line element to Basic code 
edit buffer 


from edit buffer 


of the assembled line 


append 00 00 00, end of line/len of next 
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DF35 


convert a Basic line element to Basic code 
@ DEC9Y! 


cD 
7E 
B7 
c8 
cD 
38 
cD 
DA 
FE 
CA 
23 
FE 
DO 
FE 
c2 
3A 
B7 
co 
3E 
18 


10 AC 


7L FF 
1D 
7F FF 
FF DF 
26 
5A EO 


80 
20 


80 EO 
00 AC 


20 
Ic 


call AC10 Indirection: Line Assembling 

ld a,(hl) get a char from edit buffer 

or a 

ret z all done, return 

call FF71 test <a> for A-Z, =carry 

jr c,DF09 it is a VARIABLE name 

call FF7F test <a> for °.’ or digit, =CARRY 

jp c,DFFF it is a numeric value 

cp 26 '& 

jp z,EO5A it is a &HEX value 

inc hl 

cp 80 

ret nc take char’s > 80 as is 

cp 20 "SPACE 

jp nz,E080 it’s neither letter nor digit nor blank 
ld a,(AC00) BASIC flag ?? 

or a 

ret nz 

ld a,20 "SPACE 

jr DF25 PUT CHAR <a> into Basic line (de), inc de, d 


it is a VARIABLE name 


@D 


EEA’ 
4E DF 


c5 
ED EO 


30 DF 
AA FF 


19 
97 


ol 
25 DF 


call DF4E ... 
ret c 
cp C5 [REM] 
jp z,EOED copy REMark to basic text 
push hl 
ld h1,DF30 token: DATA DEFINT DEFSTR DEFREAL 
call FFAA search <a> in table(hl); =carry 
pop hl 
jr c,DF35 copy edit buffer to basic text. 
push af 
cp 97 [ELSE] 
ld a,0l [ATN] 
call z,DF25 PUT CHAR <a> into Basic line (de), inc de, d 
pop af 


PUT CHAR <a> into Basic line (de), inc de, dec bc 
@ DFO7’ DF2L! DF35! DF7F! DF83! DFA4! DFA8! DFAC! DFB7! E007 EOOC 
@ EO41! EO45! EO4E! EO6A! E0O77! EOBO EOBF! EOCA EOCD! EOD4! EOEB! 


@E 
12 
13 
0B 
79 
BO 
co 
lE 
c3 


token: DATA 


OED! 


17 
94 CA 


@ DF13: 


8C 
8E 
90 
8F 
00 
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ld (de),a store byte 

inc de inc pointer 

dec bc dec count 

ld a,c 

or b check for zero 

ret nz 

ld e,17 Line too long 

jp CA94 perform ERROR <e> routine 


DEFINT DEFSTR DEFREAL 


[DATA] 
[DEFINT] 
[DEFSTR) 
[DEFREAL] 
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copy edit buffer to basic text 


@ DF1A’ DF42’ 


CD 25 DF call DF25 

7E ld a,(hl) 

B7 or a 

c8 ret z 

FE 3A cp 3A 

28 0A jr z,DF49 

23 inc hl 

FE 22 cp 22 

20 Fl jr nz,DF35 
CD BF EO call EOBF 

18 EF jr DF38 

AF xor a 

32 39 AE ld (AE39),a 
c9 ret 

@ DFO9! 

C5 push bc 

D5 push de 

E5 push hl 

CD 16 AC call AC16 
7E ld a,(hl) 
23 inc hl 

CD 8A FF call FF8A 
CD DD E2 call E2NnD 
cD 27 E3 call E327 
30 28 jr nc,DF89 
79 ld a,c 

E6 7F and 7F 

CD 7B FF call FF7B 
30 0B jr nc,DF74 
1A ld a,(de) 
FE E4 cp E4 

28 06 jr z,DF74 
7E ld a,(hl) 
CD 7B FF call FF7B 
38 15 jr c,DF89 
Fl pop af 

1A ld a,(de) 
B7 or a 

FA C8 DF jp m,DFC8 
DL pop de 

cl pop bc 

F5 push af 

3E FF ld a,FF 

cD 25 DF call DF25 
Fl pop af 

CD 25 DF call DF25 

AF xor a 

18 3A jr DFC3 

El pop hl 

Dl pop de 

cl pop bc 

E5 push hl 

2B dec hl 

23 inc hl 

7E ld a,(hl) 
CD 7B FF call FF7B 
38 F9 jr c,DF8E 
CD EA DF call DFEA 
38 04 jr c,DF9E 
3E OD ld a,0D 
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PUT CHAR <a> into Basic line (de), inc de, d 


hl = buffer pointer 


end of buffer 


!ı 
B 


end of statement 


,n 


copy edit buffer to basic text 
copy text up to *" 
next char 


reset flag 
flag used assembling a basic line 


or end of buffer 


Indirection: Get a token while assembling 


get first letter 


change <a> to upper case 
calculate TOKEN TABLE offset <de> 
find text(hl) within table(de) 
not found 


mask out bit 7 
test <a> for A-Z, =carry 
not a letter 


[FN] 
yes, FN 


test <a> for A-Z, =carry 
it is a letter 


[TOKEN SWITCH] 


PUT CHAR <a> into Basic line (de), inc de, d 


insert TOKEN now 


PUT CHAR <a> into Basic line (de), inc de, d 


reset assembler flag 


test <a> for A-Z, =carry 
it is a letter, get next 


if " or # ret z; set <a> $=3, %=2, 


<real var> 
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&=1 
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DFIA 


DFEA 


18 06 


@ DF98” 
23 

FE 05 
20 01 
3D 


jr DFA4 


inc hl 

cp 05 

jr nz,DFA4 
dec a 


insert MARK <a> and 2 zero bytes 


is it real? 


insert MARK <a> and 2 zero bytes 


set MARK to 4 if real 


insert MARK <a> and 2 zero bytes 
@ DF9C’ DFAL’ 


CD 25 DF 
25 DF 


25 DF 


7B FF 
07 


25 DF 


mark end 
CD DF EO 
El 

3E FF 

32 39 AE 
37 


token: 
@ DFCA: 
c7 
8 
c6 
92 
96 
c8 
E3 
97 
CA 
A7 
AO 
EB 
9F 
00 
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call DF25 

xor a 

call DF25 

xor a 

call DF25 

ex (sp),hl 
ld a,(hl) 

call FF7B 

jr nc,DFBD 
ld a,(hl) 

call DF25 

inc hl 

jr DFBO 


of variable name 
call EODF 
pop hl 
ld a,FF 
ld (AE39),a 
scf 
ret 


push hl 
ld c,a 
ld h1,DFDC 
call FFAA 
sbc a,a 
and Ol 
ld (AE39),a 
ld a,c 
pop hl 
pop de 
pop bc 
or a 
ret 


[RESTORE] 
[AUTO] 
[RENUM] 
[DELETE] 
[EDIT] 
[RESUME] 
[ERL] 
[ELSE] 
[RUN] 
[LIST] 
[GOTO] 
[THEN] 
[GOSUB] 


BASIC LINE ASSEMBLER 


PUT CHAR <a> into Basic line 


PUT CHAR <a> into Basic line 


PUT CHAR <a> into Basic line 


test <a> 
mark end 


for A-Z, =carry 
of variable name 
PUT CHAR <a> into Basic line 


get next letter 


mark end of name, set bit 7 


set flag 
flag used assembling a basic 


look for a direct command 
token: 


(de), inc de, d 
(de), inc de, d 


(de), inc de, d 


(de), inc de, d 


line 


RESTORE RENUM DELETE EDIT RESUME ... 


search <a> in table(hl); =carry 


flag used assembling a basic 


RESTORE RENUM DELETE EDIT RESUME ... 


line 
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.-- if " or # ret z; set <a> $=3, %=2, &=1 
@ DF95! EIlB4! 


DFEA FE 26 cp 26 ’& 
DFEC DO ret nc 
DFED FE 21 cp 21 a 
DFEF 3F ccf 
DFFO DO ret nc 
DFFl FE 22 cp 22 en 
DFF3 C8 ret z 
DFF4 FE 23 cp 23 4 
DFF6 C8 ret z 
DFF7 EE 27 xor 27 24=3, 25=2, 26=1 
DFF9 FE 04 cp 04 sets carry 
DFFB CE FF adc a,FF leaves a as it was after xor 27 
DFFD 37 sc£ 
DFFE C9I ret 
— it is a numeric value 
@ DEEF 
DFFF 3A 39 AE ld a, (AE39) flag used assembling a basic line 
EOO2 B7 or a 
EOO3 28 15 jr z,EOlA 
E005 7E ld a,(hl) 
E006 23 inc hl 
EO07 FA 25 DF jp m,DF25 PUT CHAR <a> into Basic line (de), inc de, d 
EOOA FE 2E cp 2E . 
E0OOC CA 25 DF jp z,DF25 PUT CHAR <a> into Basic line (de), inc de, d 
EOOF 2B dec hl 
EOlO D5 push de pointer to Basic line 
EOll CD 04 EE call EEO4 ... 
EOl4 30 34 jr nc,EO4A copy edit buffer to Basic line till <hl>=<de 
EOl6 3E I1E ld a,lE <next LINE#> 
EOl8 18 4F jr EO069 copy <a> and <VARTPE> bytes from FAC to prog 
EOlA D5 push de 
EOlB C5 push bc 
EOlC CD BE EC call ECBE get either HEX or integer VAL 
EOlF cl pop be 
E0O20 30 28 jr nc,EO4A copy edit buffer to Basic line till <hl>=<de 
EO22 CD 27 FF call FF27 get VARTYPE <a>; cp string 
EO25 3E IF ld a,1F <next 5 byte REAL> 
E027 30 40 jr nc,E069 = real 
EO29 EB ex de,hl 
EO2A 2A C2 BO ld hl, (BOC2) Floating point ACU, FAC 
EO2D EB ex de,hl 
EO2E 7A ld a,d 
EO2F B7 or a 
EO30 3E 1A ld a,1A <next 2 byte VAL> 
E032 20 35 jr nz,EO69 copy <a> and <VARTPE> bytes from FAC to prog 
EO34 E3 ex (sp),hl 
EO35 EB ex de,hl 
E036 7D ld a,l 
EO37 FE OA cp 0A >10.? 
EO39 30 04 jr nc,EO3F ... 
EO3B C6 OE add a,0E 
E03D 18 06 jr EO45 ... 
EO3F 3E 19 ld a,19 <next byte VAL> 
EO41 CD 25 DF call DF25 PUT CHAR <a> into Basic line (de), inc de, d 
EO44 7D ld a,l 
EO45 CD 25 DF call DF25 PUT CHAR <a> into Basic line (de), inc de, d 
E0O48 El pop hl 
EO49 CI ret 
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copy edit buffer to Basic line till <hl>=<de> 
@ EOL4’ EO20” EO56” E060” 


7E 


ld a,(hl) 
inc hl 
ex (sp),hl 
ex de,hl 
call DF25 
ex de,hl 
ex (sp),hl 
call FFB8 
jr nz,EO4A 
pop de 
ret 


it is a &HEX value 
@ DEF4 


D5 
c5 


BE EC 


E8 
02 
1B 
ol 


push de 
push bc 
call ECBE 
pop bc 
jr nc,EO4A 
cp 02 
ld a,1B 
jr z,EO069 
inc a 


get char from edit buffer 
get pointer to Basic line 
PUT CHAR <a> into Basic line (de), inc de, d 


test HL=DE? (try hl-de) 
copy edit buffer to Basic line till <hl>=<de 


get either HEX or integer VAL 


copy edit buffer to Basic line till <hl>=<de 
<Integer VAR%> 

<next 2 byte BIN> 

copy <a> and <VARTPE> bytes from FAC to prog 


copy <a> and <VARTPE> bytes from FAC to program line 
@ EO18° EO27’ EO32° EO066” 


25 DF 


Cc2 BO 
23 FF 


pop de 
call DF25 
push hl 
ld h1,B0C2 
call FF23 
push af 
ld a,(hl) 
inc hl 
call DF25 
pop af 
dec a 
jr nz,E074 
pop hl 
ret 


PUT CHAR <a> into Basic line (de), inc de, d 


Floating point ACU, FAC 
get VARTYPE <a>; 


PUT CHAR <a> into Basic line (de), inc de, d 


insert next byte 


it’s neither letter nor digit nor blank 
@ DEFD 


FE 
28 
FE 
28 
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22 
3B 


cp 22 

jr z,EOBF 

cp 7C 

jr z,EOCD 

push bc 

push de 
xor 3F 
ld b,BF 
jr z,EOA6 
dec hl 
ld de,E64B 
call E327 
ld a,(de) 
jr c,EOA2 
ld a,(hl) 
cp 20 
jr nc,EOAl 
ld a,20 
inc hl 
ld b,a 
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.n 


.n 


copy text up to or end of buffer 
A 


it’s an External Command 
e; 
[PRINT] 


insert token for PRINT 


table of operators ",\,>=,=>,>,=,<>,<=,=<,<, 
find text(hl) within table(de) 


"SPACE 


"SPACE 
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EOA3 CD B3 EO call EOB3 test end of text or buffer 


EOA6 32 39 AE ld (AE39),a flag used assembling a basic line 
EOA9 78 ld a,b 
EOAA DI pop de 
EOAB Cl pop be 
EOAC FE CO cp CO [REM*] 
EOAE 28 36 jr z,EOE6 insert Ol, ’REM and text following 
EOBO C3 25 DF jp DF25 PUT CHAR <a> into Basic line (de), inc de, d 
----- test end of text or buffer 
@ EOA3! 
EOB3 3D dec a 
EOB4 C8 ret z 
EOB5 EE 22 xor 22 “ 
EOB7 C8 ret z 
EOB8 3A 39 AE ld a, (AE39) flag used assembling a basic line 
EOBB 3C inc a 
EOBC C8 ret z 
EOBD 3D dec a 
EOBE C9I ret 


.,n 


----- copy text up to or end of buffer 


@ DF44! EO82° EOC8’ 


EOBF CD 25 DF call DF25 PUT CHAR <a> into Basic line (de), inc de, d 
EOC2 7E ld a,(hl) 
EOC3 B7 or a 
EOC4 CB ret z end of buffer 
E0OC5 23 inc hl 
E0C6 FE 22 cp 22 de 
EOC8 20 F5 jr nz,EOBF copy text up to °" or end of buffer 
EOCA C3 25 DF jp DF25 PUT CHAR <a> into Basic line (de), inc de, d 
- it’s an External Command 
@ EO86° 
EOCD CD 25 DF call DF25 PUT CHAR <a> into Basic line (de), inc de, d 
EODO AF xor a reset 
EODl 32 39 AE ld (AE39),a flag used assembling a basic line 
EOD4 CD 25 DF call DF25 PUT CHAR <a> into Basic line (de), inc de, d 
E0OD7 7E ld a,(hl) 
E0OD8 23 inc hl 
EOD9 CD 7B FF call FF7B test <a> for A-Z, =carry 
EODC 38 F6 jr c,EOD4 skip over NAME 
EODE 2B dec hl 
.— mark end of name, set bit 7 
@ DFBD! 
EODF 1B dec de get last char 
EOEO 1A ld a,(de) 
EOEl F6 80 or 80 set bit 7 to mark end 
EOE3 12 ld (de),a and store hack 
EOE4 13 inc de 
EOE5 C9 ret 
.- insert Ol, °REM and text following 
EOE6 3E 01 ld a,01 <statement end> 
EOE8 CD 25 DF call DF25 PUT CHAR <a> into Basic line (de), inc de, d 
EOEB 3E CO ld a,C0 [REM] 


— copy REMark to basic text 
@ DFOF EOF3” 


EOED CD 25 DF call DF25 PUT CHAR <a> into Basic line (de), inc de, d 
EOFO 7E ld a,(hl) 

EOFl 23 inc hl 

EOF2 B7 or a 

EOF3 20 F8 jr nz,EOED copy REMark to basic text 
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El44 


get line#’s, default <bc>=1, <de>=65535. 


if °# get chan; default=0; set output channe 
CHRGOT <a>; end of statement? else syntax er 


reset BASIC program counter 


search line# <de> from start, <hl>=address, 


check for a BREAK request 


test HL=DE? (try hl-de) 


list a basic line into the edit buffer 
print a char (hl) to output channel 


2B dec hl 

c9 ret 

command: LIST [<line> [-<line>]] [,#<device>] 
@ DE4F 

CD BO CE call CEBO 

Cc5 push bc 

D5 push de 

CD C6 Cl call C1C6 

CD 4A DD call DD4A 

CD CB DD call DDCB 

DI pop de 

cl pop bc 

CD OD El call ELOD perform LIST 

c3 64 CO jp C064 reset Basic 
perform LIST 

@ ELO7! EC97! 

D5 push de 

50 ld d,b 

59 ld e,c de=bc = start linef# 
CD A3 E7 call E7A3 

DL pop de 

4E ld c,(hl) 

23 inc hl 

46 ld b,(hl) bc= len of this line 
2B dec hl 

78 ld a,b 

Bl orc 

c8 ret z end of program 
CD 3C C4 call C43C 

E5 push hl 

09 add hl,bc add len of line 
E3 ex (sp),hl 

D5 push de 

E5 push hl 

23 inc hl 

23 inc hl 

5E ld e,(hl) <de>= linef 

23 inc hl 

56 ld d,(hl) 

El pop hl 

E3 ex (sp),hl 

CD B3 FF call FFB8 

E3 ex (sp),hl 

38 12 jr c,El42 last linef# done 
CD 63 El call El63 

cD 45 El call El45 

23 inc hl 

7E ld a,(hl) 

B7 or a 

20 F8 jr nz,El33 print next char 
CD 4E C3 call C34E output ’LF to channel 
Dl pop de 

El pop hl 

18 D2 jr Ell4 do the next line 
El pop hl 

El pop hl 

c9 ret 
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FESRERMERR: print a char (hl) to output channel 


@ E33! 
El45 CD BA Cl call C1BA 
El48 38 OB jr c,El55 
El4A T7E ld a,(hl) 
El4B CD 6E C3 call C36E 
El4E FE OA cp 0A 
El50 cO ret nz 
El5l 3E 0D ld a,0D 
El53 18 OB jr El60 
El55 7E ld a,(hl) 
El56 FE 20 cp 20 
El58 30 06 jr nc,El60 
El5A 3E Ol ld a,0l 
El5C CD 6E C3 call C36E 
El5F 7E ld a,(hl) 


get output channel; cp 08 
print to screen 


output char <a> to channel 
’LF (“I) 


"CR (M) 
jp output char <a> to channel 


"SPACE 

jp output rhar <a> to channel 
’SOH (TA) 

output char <a> to channel 


— jp output char <a> to channel 


El60 C3 6E C3 jp C36E 


output char <a> to channel 


— list a basic line into the edit buffer 


@ cOSc! EL30! 


El63 D5 push de 

El64 O1 A4 AC ld bc,ACA4 
El67 C5 push bc 
El68 23 inc hl 
El69 23 inc hl 
El6A 5E ld e,(hl) 
El6B 23 inc hl 
El6C 56 ld d,(hl) 
El6D 23 inc hl 
El6E E5 push hl 
El6F EB ex de,hl 
El70O CD 0D FF call FFOD 
El73 CD 82 EE call EE82 
El76 11 00 00 ld de,0000 
El79 TE ld a,(hl) 
El7A 23 inc hl 
El7TB B7 or a 

El7C 28 05 jr z,E183 
El7E CD FE El call EIFE 
El8l 18 F6 jr E179 
El83 3E 20 ld a,20 
El85 CD FE El call ELFE 
El88 EL pop hl 
El89 7E ld a,(hl) 
ElSA B7 or a 

El8B 28 05 jr z,El92 
El8D CD 96 El call E1l96 
E1l90 18 F7 jr E189 
El92 02 ld (be),a 
El93 EI pop hl 

El94 DI pop de 

El95 cC9 ret 


EDIT BUFFER 


de = line# 


set FAC to <hl> and mark integer 


convert FAC to ASCII, (hl)=address of text 


copy line# to edit buffer 


end of line# 


PUTCHAR to (bc), update count and pointer 


next 


insert a space after linef# 


PUTCHAR to (bc), update count and pointer 


end of line 
expand basic code, copy to edit buffer 
next 


— expand basic code, copy to edit buffer 


@ ElSD! 
E1l96 CD 13AC call Acı3 
El99 FA 20 E2 ip m,E220 


El9C FE 02 cp 02 
El9E 38 1D jr c,ElBD 
ElAO FE 05 cp 05 
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Indirection: LIST and EDIT 
expand a token to its TEXT 
<integer VAR%> 

it is a statement separator °: 
<FAC real> 
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ElAO 


ElA2 38 43 jr c,ElE7 expand a VARIABLE 


ElA4 FE OB cp OB <integer var> 

ElA6 38 22 jr c,ElCA copy char <a> or "text" 

ElA8 FE 0E cp 0E <const 0> 

ElIAA 38 3B jr c,ElE7 expand a VARIABLE 

ElAC FE 20 cp 20 "SPACE 

ElAE 38 2E jr c,ElDE expand a CONSTANT value 

ElBO FE 7C cp 7C gi 

ElB2 28 51 jr z,E205 insert EXTERNAL COMMAND introducer | 
ElB4 CD EA DF call DFEA if " or # ret z; set <a> $=3, %=2, &=1 
ElB7 DC 1A E2 call c,E2lA insert a space if <e>=] and return 
ElBA 7E ld a,(hl) 

ElBB 18 OD jr EICA copy char <a> or "text" 

----- it is a statement separator °: 

ElBD 23 inc hl 

ElBE 7E ld a,(hl) 

ElBF FE CO cp co [REM] 

ElC1 28 5D jr z,E220 expand a token to its TEXT 

ElC3 FE 97 cp 97 [ELSE] 

ElC5 28 59 jr z,E220 expand a token to its TEXT 

ElC7 2B dec hl 

ElC8 3E 3A ld a,3A . 

-_-- copy char <a> or "text" 

ElCA IE 00 ld e,00 flag; no space necessary 

ElCC FE 22 cp 22 a 

ElCE 20 OB jr nz,ElDB insert char and return 

ElDO CD FE El call EIFE PUTCHAR to (bc), update count and pointer 
ElD3 23 inc hl 

ElD4 7E ld a,(hl) copy text between <"> as it is 

ElD5 B7 or a 

ElD6 C8 ret z 

ElD7 FE 22 cp 22 zu 

ElD9 20 F5 jr nz,ElDO next text char 

ElDB 23 inc hl 

ElDC 18 20 jr EIFE PUTCHAR to (bc), update count and pointer 
—— expand a CONSTANT value 

ElIDE CD 1A E2 call E21lA insert a space if <e>=1 and return 
ElEl CD 53 E2 call E253 convert CONSTANT to ascii, according MARK 
ElE4 IE Ol ld e,0l flag; append a space 

ElE6 C9 ret 


cher expand a VARIABLE 
@ ElA2’ EIAA” 


ElE7 CD 1A E2 call E2lA insert a space if <e>=] and return 
ElEA 7E ld a,(hl) 

ElEB F5 push af 

ElEC 23 ine hl 

ElED 23 inc hl 

ElEE 23 inc hl 

ElEF CD OF E2 call E2OF remove bit 7 from last char 

ElF2 Fl pop af 

EIF3 1E Ol ld e,0l flag; append space 

EIF5 FE OB cp OB <integer var> 

EIF7 DO ret nc 

EIF8 IE 00 ld e,00 flag: no space 

ElFA EE 27 xor 27 produce % $ ! 

EIFC E6 FD and FD enable upper ROM, disable lower ROM 
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— PUTCHAR to (bc), update count and pointer 
@ ELTE! E1l85! EIlDO! ElDC’ E207! E212! E21E” E234! E23C! E2BD! E2C3! 
@ E2D4! 


ElFE 02 


E205 IE 


ol 


insert EXTERNAL 


CD FE El 


ld (bce),a 
inc bc 
dec d 

ret nz 
dec be 
inc d 

ret 


ld e,0l 
call EIFE 
inc hl 

ld a,(hl) 
inc hl 

or a 

ret nz 


remove bit 7 from last char 


@ EIEF! E217’ 


E20F T7E 
E2l0O E6 


E215 BE 
E2l6 23 
E2l7 30 
E219 cC9 


7F 


F6 


CD FE El 


ld a,(hl) 
and 7F 
call EIFE 
cp (hl) 
inc hl 

jr nc,E2OF 
ret 


@ ElB7! EIDE! EIE7! E230! 


E2lA 1D 
E2lB CO 
E2lC 3E 
E2lE 18 


20 
DE 


dec e 
ret nz 
ld a,20 
jr ELFE 


expand a token to its TEXT 


@ El99 EIC1’ EIC5” 


E220 23 
E22l FE 
E223 20 
E225 TE 
E226 23 
E227 F5 


FF 
02 


E2 


E2 


El 


El 


FF 


inc hl 
cp FF 
jr nz,E227 
ld a,(hl) 
inc hl 
push af 
push hl 
call E2ED 
ora 
jr z,E237 
push af 
call E2lA 
pop af 
call EIFE 
ld a,(hl) 
and 7F 
cp 09 
call nz,EIlFE 
cp (hl) 
inc hl 
jr z,E237 
call FF7B 
ld e,00 
jr nc,E24C 
ld e,0l 
pop hl 
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COMMAND introducer | 


Unexpected NEXT 
PUTCHAR to (bc), update count and pointer 


mask out 
PUTCHAR to (bc), update count and pointer 


remove bit 7 from last char 


insert a space if <e>=] and return 


"SPACE 
PUTCHAR to (bc), update count and pointer 


[TOKEN SWITCH] 
insert first letter of TOKEN-NAME 


skip over token SWITCH 


search TOKEN or OPERATOR <a> in table 
token not found 

insert a space if <e>=1l and return 
PUTCHAR to (bc), update count and pointer 
mask out bit 7 


skip over 09 (allowing blanks on compare) 
PUTCHAR to (bc), update count and pointer 


next NAME char 
test <a> for A-Z, =carry 
flag: append no space 


flag: append space 
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E24D Fl pop af 


E24E D6 E4 sub E4 [FN] 
E250 CO ret nz 
E251l 5F ld e,a flag: O0 = append no space after FN 
E252 C9 ret 
— convert CONSTANT to ascii, according MARK 
@ EIEL! 
E253 D5 push de 
E254 7E ld a,(hl) 
E255 23 inc hl 
E256 FE 1B cp 1B <next 2 byte BIN> 
E258 28 49 jr z,E2A3 edit in binary representation 
E25A FE IC cp IC <next 2 byre HEX> 
E25C 28 50 jr z,E2AE edit in hex representation 
E25E FE IE cp IE <next LINE#> 
E260 28 26 jr z,E288 edit a line# 
E262 FE 1D cp 1lD <next ADDRESS> 
E264 28 22 jr z,E288 edit a linef 
E266 FE IF cp IF <next 5 byte REAL> 
E268 28 5E jr z,E2C8 edit a real constant 
E26A FE 19 cp 19 <next byte VAL> 
E26C 28 09 jr z,E277 edit a one byte value 
E26E FE 1A cp 1A <next 2 byte VAL> 
E270 28 OB jr z,E27D edit a signed integer constant 
— VAL = MARK-OE, range 0-9 
E272 D6 OE sub OE 
E274 5F ld e,a 
E275 18 02 jr E279 
— edit a one byte value 
E277 5E ld e,(hl) 
E278 23 inc hl 
E279 16 00 ld d,00 
E27B 18 04 jr E281 
----- edit a signed integer constant 
E27D 5E ld e,(hl) 
E27E 23 inc hl 
E27F 56 ld d,(hl) 
E280 23 inc hl 
E281 E3 ex (sp),hl 
E282 EB ex de,hl 
E283 CD OD FF call FFOD set FAC to <hl> and mark integer 
E286 18 47 jr E2CF ... 


._-- edit a linef 
@ E260° E264’ 


E288 5E ld e,(hl) 

E289 23 inc hl 

E28A 56 ld d,(hl) 

E28B 23 inc hl 

E28C FE IlE cp lE <next LINE#> 
E28E 28 09 jr z,E299 

-- get line# from line address 

E290 ES5 push hl <de> is the line# 
E291 EB ex de,hl 

E292 23 inc hl 

E293 23 inc hl 

E294 23 inc hl 

E295 5E ld e,(hl) 

E296 23 inc hl 

E297 56 ld d,(hl) 
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El pop hl 

E3 ex (sp),hl 

EB ex de,hl 

CD OD FF call FFOD set FAC to <hl> and mark integer 

CD 82 EE call EE82 convert FAC to ASCII, (hl)=address of text 
18 2F jr E2D2 copy NUMBER EDIT BUFFER to EDIT BUFFER 
edit in binary representation 

c5 push bc 

01 02 00 ld bc,0002 b= min # of digits, c=vartype of source 
cD 14 Fl call Fll4 edit value in binary representation 

3E 58 ld a,58 x 

18 09 jr E2B7 

edit in hex representation 

c5 push bc 

01 02 00 ld bc,0002 b= min # of digits, c=vartype of source 
cD 19 Fl call F119 edit value in HEX representation 

3E 48 ld a,48 "H 

cl pop bc 

E3 ex (sp),hl de points to NUMBER EDIT BUFFER 

EB ex de,hl 

F5 push af 

3E 26 ld a,26 '& 

CD FE El call EIFE PUTCHAR to (bc), update count and pointer 
Fl pop af 

FE 48 cp 48 "H 

C4 FE El call nz,ELlFE PUTCHAR to (bc), update count and pointer 
18 0A jr E2D2 copy NUMBER EDIT BUFFER to EDIT BUFFER 
edit a real constant 

3E 05 ld a,05 <FAC real> 

CD 4B FF call FF4B set VARTYPE <a>, copy VARIABLE (hl) to FAC 
E3 ex (sp),hl 

EB ex de,hl 

@ E286” 

CD 8F EE call EE8F edit FAC onto the NUMBER EDIT BUFFER 
copy NUMBER EDIT BUFFER to EDIT BUFFER 

7E ld a,(hl) 

23 inc hl 

CD FE El call EIFE PUTCHAR to (bc), update count and pointer 
TE ld a,(hl) 

B7 ora 

20 F7 jr nz,E2D2 copy NUMBER EDIT BUFFER to EDIT BUFFER 
El pop hl 

c9 ret 

calculate TOKEN TABLE offset <de> 

@ DF59! 

E5 push hl 

D6 41 sub 41 remove ascii part 

87 add a,a *2 

c6 54 add a,54 + lowbyte of address 

6F ld 1,a 

CE E3 adc a,E3 highbyte of address 

95 sub 1 

67 ld h,a highbyte including a possible carry 

5E ld e,(hl) get start address of letter 

23 inc hl 

56 ld d,(hl) 

El pop hl 

c9 ret 
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@ E229! 
E2ED C5 push bc 
E2EE 4F ld c,a c = token to search 
E2EF 06 1A ld b,1A =26. 
E2Fl 21 88 E3 ld h1,E388 ‘Token Tabelle 
E2F4 CD 13 E3 call E313 get pointer to TOKEN TEXT, =carry 
E2F7 38 OD jr c,E306 token found 
E2F9 23 inc hl 
E2FA 10 F8 djnz E2F4 check next 
E2FC 21 4B E6 ld h1,E64B table of operators ",\,>=,=>,>,=,<>,<=,=<,<, 
E2FF CD 13 E3 call E313 get pointer to TOKEN TEXT, =carry 
E302 30 07 jr nc,E30B 
E304 06 CO ld b,co c0+40=100, a=0, carry =set 
E306 78 ld a,b 
E307 C6 40 add a,40 add on ascii part for first letter 
E309 cıi pop bc 
E30A C9 ret 
E30B CD 19 AC call AC19 Indirection: Token not found on LIST 
E30E IE 02 ld e,02 Syntax error 
E3lO C3 94 CA jp CA94 perform ERROR <e> routine 


— get pointer to TOKEN TEXT, =carry 
@ E2F4! E2FF! E322” 


E3l3 7E ld a,(hl) 

E3l4 B7 ora table char 

E3l5 C8 ret z end of table 

E3l6 E5 push hl 

E3l7 7E ld a,(hl) table char 

E3l8 23 inc hl 

E3l9 17 rla 

E3lA 30 FB jr nc,E317 skip over this entry 

E3lC 7E ld a,(hl) this is the token after entry 
E3lD 23 inc hl 

E3lE BI cp c is it the wanted one? 

E3lF 28 03 jr z,E324 yes, return with carry set 
E32l Fl pop af 

E322 18 EF jr E313 get pointer to TOKEN TEXT, =carry 
E324 EI pop hl 

E325 37 scf 

E326 cC9 ret 


_- find text(h1l) within table(de) 
@ DF5C! EO94! E34F’ 


E327 1A ld a,(de) table char 

E328 B7 ora 

E329 C8 ret z end of table 

E32A ES push hl 

E32B 1A ld a,(de) table char 

E32C 13 inc de 

E32D FE 09 cp 09 this code allows for spaces 
E32F 28 04 jr z,E335 skip over blanks in text 
E33l FE 20 cp 20 "SPACE 

E333 20 05 jr nz,E33A no blank 

E335 CD 61 DD call DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
E338 18 Fl jr E32B next char 

E33A 4F ld c,a save table char 

E33B 7E ld a,(hl) get text char 

E33C 23 inc hl 

E33D CD 8A FF call FF8A change <a> to upper case 
E340 A9 xor c are they the same? 

E341 28 E8 jr z,E32B compare next 
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— addresses of first letter 
@ hidden reference DF59: 


E354 35 
E356 2A 
E358 EF 
E35A B9I 
E35C 8A 
E35E 7E 


7F 
0A 


FB 


D6 


and 7F 

jr z,E351 
dec de 

ld a,(de) 
inc de 

rla 

jr nc,E348 
inc de 
pop hl 

jr E327 


pop af 
scf 
ret 


E635 
E62A 
E5SEF 
E5B9 
E58A 
ES7E 
E572 
E568 
E547 
E543 
E5S3F 
E513 
E4ED 
E4E2 
E4AA 
E486 
E485 
E43B 
E3FB 
E3CF 
E3CO 
E3B8 
E39A 
E392 
E38D 
E388 
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mask out bit 7 (mark for last char) 
now it’s a match 


get last but one 
test for bit 7 in table entry 


skip over this entry 


find text(hl) within table(de) 


De vn vv vv Ey 


> 


De u ey 


NEKE<CHURSNOZEr RUHE HHUH OU» 


s 
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E388 


‘Token Tabelle 


@ E2Fl: 

4F 4E C5 DA 00 "ONEZ. 

50 4F D3 48 00 ”POSH. 

50 4F D3 47 4F D2 FD 00 “POSGOR}. 

52 49 54 C5 D9 49 4E 44 4F D7 D8 49 44 54 C8 D7 “RITEYINDOWXIDTHW 
48 49 4C C5 D6 45 4E C4 D5 41 49 D4 D4 00 “HILEVENDUAITT. 
50 4F D3 7F 41 CC 1D 00 “POS.AL.. 

53 49 4E C7 ED 50 50 45 52 A4 IC 4E D4 1B 00 "SINGmPPER$.NT.. 
52 4F CE D3 52 4F 46 C6 D2 CF EC 49 4D C5 46 48 "RONSROFFROLIMEFH 
45 CE EB 45 53 54 D2 7D 45 53 D4 7C 4L CE 1A 4l “ENKESTR}EST|AN.A 
47 4F 46 C6 DI 41 C7 DO 41 C2 EA 00 "GOFFQAGPABj. 

59 4D 42 4F CC CF 57 41 DO E7 54 52 49 4E 47 A4 “YMBOLOWAPgTRING$ 
7B 54 52 A4 19 54 4F DO CE 54 45 DO E6 51 D2 18 *{TR$.TOPNTEP£QR. 
DI 17 50 45 45 C4 CD 50 C3 ES 50 41 43 45 A4 16 *Q. PEEDMPCePACES. 
4F 55 4E C4 CC 49 CE 15 47 CE 14 41 56 C5 CB 00 “OUNDLIN.GN.AVEK. 
55 CE CA 4F 55 4E C4 7A 4E C4 45 49 47 48 54 A4 “UNJOUNDZNDEIGHT$ 
79 45 54 55 52 CE C9 45 53 55 4D C5 C8 45 53 54 “yETURNIESUMEHEST 
4F 52 C5 C7 45 4E 55 CD C6 45 4D 41 49 CE 13 45 "OREGENUMFEMAIN.E 
CD C5 45 4C 45 41 53 C5 C4 45 4LC4C3 4l 4E 44 "MEELEASEDEADCAND 
4F 4D 49 5A C5 C2 41 C4 CI 00 "OMIZEBADA. 

00 Fe 

52 49 4E D4 BF 4F D3 78 4F 4B C5 BE 4C 4F 54 D2 “RINT?OSXOKE>LOTR 
BD 4C 4F D4 BC C9 44 45 CE BB 45 45 CB 12 41 50 “=LOT<IDEN;EEK.AP 
45 D2 BA 00 ’ER:. 

55 D4 BJ 52 49 47 49 CE B8 D2 FC 50 45 4E 4F 55 “UTIRIGINBSR | PENOU 
D4 B7 50 45 4E 49 CE B6 4E 20 53 DI B5 4E 20 45 “T7TPENIN6N SO5SN E 
52 52 4F 52 20 47 4F 09 54 4F 20 BO B4 4E 20 42 "RROR GO.TO O4N B 
52 45 4l CB B3 CE B2 00 "REAK3N2. 

4F D4 FE 45 D7 Bl 45 58 D4 BO 00 ’OT”EWLEXTO. 

4F 56 45 D2 AF 4F 56 C5 AE 4F 44 C5 AD 4F CA FB "OVER/OVE..ODE-OD{ 
49 CE 77 49 44 A4 AC 45 52 47 C5 AB 45 4D AF 52 “INWID$,ERGE+EMOR 
D9 AA 41 D8 76 00 "YrAXv. 

4F 57 45 52 A4 11 4F 47 31 BO 10 4F C7 OF 4F 43 “OWER$.0G10.0G.0C 
41 54 C5 A9 4F 41 C4 A8 49 53 D4 A7 49 4E C5 A6 “ATE)OAD (IST’INE& 
45 D4 A5 45 CE OE 45 46 54 A4 75 00 "ETZEN.EFT$u. 

45 D9 A4 00 "EYS. 

4F D9 OD 00 OY. 

4E D4 OC 4E 53 54 D2 74 4E 50 55 D4 A3 4E DO OB “NT.NSTRENPUT#NP. 
4E 4B 45 59 A4 43 4E 4B 45 D9 OA 4E CB A2 C6 Al "NKEYSCNKEY .NK"F! 
00 Es 

49 4D 45 CD 42 45 58 A4 73 00 "IMEMBEX$s. 

4F 09 54 CF AO 4F 09 53 55 C2 9F 00 ‘0.TO 0.SUB.. 

52 C5 09 4F D2 9E CE E4 49 D8 08 00 "RE.OR.NdIX.. 

58 DO 07 56 45 52 D9 9D 52 52 4F D2 9C 52 D2 4l "XP. VERY.RROR.RRA 
52 CC E3 52 41 53 C5 9B 4F C6 40 4E D6 9A 4E D4 “RLCRASE.OFE@NV.NT 
99 4E C4 98 4C 53 C5 97 CI DC 44 49 DA 96 00 “.ND.LSE.I\DIT.. 
52 41 57 D2 95 52 41 D7 94 49 CD 93 CI DB 45 4C "RAWR.RAW. IM.I[EL 
45 54 C5 92 45 C7 91 45 46 53 54 D2 90 45 46 52 "ETE.EG.EFSTR.EFR 
45 4l CC 8F 45 46 49 4E D4 8E 45 C6 8D 45 43 A4 “EAL.EFINT.EF.EC$ 
72 41 54 Cl 8C 00 "rATA.. 

52 45 41 CC 06 4F D3 05 4F 4E D4 8B 4C D3 8A 4C "REAL.OS.ONT.LS.L 
4F 53 45 4F 55 D4 89 4C 4F 53 45 49 CE 88 4C C7 “OSEOUT.LOSEIN.LG 
87 4C 45 41 D2 86 49 4E D4 04 48 52 A4 03 48 41 ° .LEAR.INT.HR$.HA 
49 CE 85 41 D4 84 41 4C CC 83 00 "IN.AT.ALL.. 

4F 52 44 45 D2 82 49 4E A4 71 00 “ORDER.IN$q. 

55 54 CF 81 54 CE 02 53 C3 Ol 4E C4 FA 46 54 45 "UTO.TN.SC.NDZFTE 
D2 80 42 D3 00 "R.BS. 

00 . 


. 


table of operators ",\,>=,=>,>,=,<>,<=,=<,<,/,,*%,-,+, 
@ EO91L: E2FC: 


DE F8 DC F9 3E 09 BD FO 3D 20 BE FO BE EE BD EF “Ox\y>.=p= >p>n=o 
3C 09 BE F2 3C 09 BD F3 3D 20 BC F3 BC Fl AF F7 "<.>r<.=s= <s<q/w 
BA Ol AA F6 AD F5 AB F4 A7 CO 00 "2. *v-utt’l. 
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— reset line MARK, basic end=start 
@ C152! C174! 


E676 AF xor a reset 

E677 32 3A AE ld (AE3A),a BASIC Program line format 
E67A 2A 81 AE ld h1,(AE81) start of BASIC program -1 pointer 
E67D 77 ld (hl),a 

E67E 23 inc hl 

E67F 77 ld (hl),a 

E680 23 inc hl 

E681 77 ld (hl),a 

E682 23 inc hl 

E683 22 83 AE ld (AE83),hl end of BASIC program pointer 
E686 C9I ret 


— change Basic program to line# format 
@ E6D2! E75A! EAB8! EC44! 


E687 3A 3A AE ld a, (AE3A) BASIC Program line format 

E68A B7 ora 

E68B C8 ret z already in linef# format 

E68C C5 push bc 

E68D D5 push de 

E68E ES push hl 

E68F O1 9 E6 ld bc,E69D change MARK <next addr> to <next line#> 
E692 CD FF E8 call E8FF go thru Basic program and do function <bc> 
E695 AF xor a reset 

E696 32 3A AE ld (AE3A),a BASIC Program line format 

E699 EI pop hl 

E69A DI pop de 

E69B CI pop bc 

E69C CI ret 


-- change MARK <next addr> to <next line#> 
@ E68F: E6A5’ E6BA’ 


E69D CD 43 EI call E943 skip over a statement element 
E6AO FE 02 cp 02 end of statement? 

E6A2 D8 ret c 

E6A3 FE 1D cp 1D <next ADDRESS> 

E6A5 20 F6 jr nz,E69D it’s not <next address> format, take next 
E6A7 56 ld d,(hl) 

E6A8 2B dec hl 

E6A9 S5E ld e,(hl) 

E6AA 2B dec hl 

E6AB E5 push hl 

E6AC EB ex de,hl 

E6AD 23 inc hl 

E6AE 23 inc hl 

E6AF 23 inc hl 

E6BO 5E ld e,(hl) 

E6Bl 23 inc hl 

E6B2 56 ld d,(hl) 

E6B3 EI pop hl 

E6B4 36 1E ld (hl),1E set MARK for line#, insert line# 
E6B6 23 inc hl 

E6B7 73 ld (hl),e 

E6B8 23 inc hl 

E6B9 72 ld (hl),d 

E6BA 18 El jr E69D change MARK <next addr> to <next linei#> 


. check for a line# in command line 
@ COB8I! EBFB! 


E6BC CD 61 DD call DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
E6BF B7 or a 

E6CO 37 scf 

E6Cl C8 ret z 

E6C2 CD 04 EE call EEO4 ... 
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E6C5 DO ret nc 


E6C6 7E ld a,(hl) 
E6C7 FE 20 cp 20 "SPACE 
E6C9 20 01 jr nz,E6CC ... 
E6CB 23 inc hl 
@ E6C9” 
E6CC CD D2 E6 call E6D2 assemble an insert line into program 
E6CF 37 scf 
E6DO 9F sbe a,a 
E6Dl C9 ret 
— assemble andinsert line into program 
@ COA8! E6CC! 
E6D2 CD 87 E6 call E687 change Basic program to line# format 
E6D5 CD BB DE call DEBB assemble a program line; (hl)=edit buffer 
E6D8 ES5 push hl 
E6D9 CD 61 DD call DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
E6DC B7 ora 
E6DD 28 28 jr z,E707 ... 
E6DF C5 push bc 
E6EO D5 push de 
E6El 21 04 00 ld h1,0004 .. 
E6E4 09 add hl,bc 
E6E5 E5 push hl 
E6E6 E5 push hl 
E6E7 CD A3 E7 call E7A3 search line# <de> from start, <hl>=address, 
E6EA E5 push hl 
E6EB DC OB E7 call c,E70Bdelete a line# from Basic program 
E6EE DL pop de 
E6EF CI pop bc 
E6FO CD F& F5 call F5F8 allocate space for new variables 
E6F3 CD 2C F5 call F52C shift all Basic pointers up by <bc> 
E6F6 EB ex de,hl 
E6F7 DL pop de 
E6F8 73 ld (hl),e 
E6F9 23 inc hl 
E6FA 72 ld (hl),d 
E6FB 23 inc hl 
E6FC DI pop de 
E6FD 73 ld (hl),e 
E6FE 23 inc hl 
E6öFF 72 ld (hl),d 
E700 23 inc hl 
E70Ol ci pop bc 
E702 EB ex de,hl 
E703 EI pop hl 
E704 C3 F2 FF jp FFF2 ldir 
@ E6DD’ 
E707 El pop hl 
E708 CD 9 E7 call E79A search line# <de> from start, <hl>=addr, nc= 
- delete a line# from Basic program 
@ E6EB! E764 
E70B C5 push bc 
E70C ES push hl 
E70D 09 add hl,bc 
E70OE EB ex de,hl 
E7OF 2A 89 AE ld h1,(AE89) upper end of DIM’d variables pointer 
E7l2 CD CF FF call FFCF HL=HL-DE 
E715 44 ld b,h 
E716 4D ld c,1 be=hl 
E717 EB ex de,hl 
E718 DL pop de 
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ld a,b 

or c 

call nz,FFF2 
pop de 

ld h1,0000 
call FFDA 
jp F52C 


ldir 


BC=HL-DE 
shift all Basic pointers up by <bc> 


get bounds of the lines to delete 


CHRGOT <a>; end of statement? else syntax er 
delete line area; shift rest of pgm down 


reset pointers; program, error, data 
reset Basic 


get line#’s, default <bc>=1, <de>=65535. 


save the lower line# 
search linef# <de>; <hl>=address 


search line# <de> from start, <hl>=address, 


used by DELETE <line#>, lower addr 


HL=HL-DE 
used by DELETE <line#>, upper addr 
Error: Improper argument 


Improper argument 
perform ERROR <e> routine 


of pgm down 


change Basic program to line# format 
used by DELETE <line#>, upper addr 
used by DELETE <line#>, lower addr 
delete a line# from Basic program 


<next ADDRESS> 


<next LINE#> 
Error: Syntax error 


get BASIC line# at PC in <hl>, =carry 
test HL=DE? (try hl-de) 
it’s below PC, search from start 


--- command: DELETE <line#>[-<line#>] 
@ DE25 

E728 CD 37 E7 call E737 

E72B CD 4A DD call DD4A 

E7T2E CD 5A E7 call E75A 

E731 CD 7A Cl call C17A 

E734 C3 64 CO jp C064 

— get bounds of the lines to delete 
@ E728! EA65! 

E737 CD BO CE call CEBO 

E73A E5 push hl 

E73B C5 push bc 

E73C CD CIE? call E7C1 

E73F DL pop de 

E740 ES push hl 

E74l CDA3E7 call E7A3 

E744 22 3B AE ld (AE3B),hl 

E747 EB ex de,hl 

E748 EI pop hl 

E749 CD CF FF call FFCF 

E74C 22 3D AE ld (AE3D),hl 

E74F 38 04 jr c,E755 

E75l 7C ld a,h 

E752 B5 ori 

E753 EI pop hl 

E754 CO ret nz 

Bemee Error: Improper argument 

E755 IE 05 ld e,05 

E757 C3 94 CA jp CA94 

— delete line area; shift rest 
@ E72E! EAB81! 

E75SA CD 87 E6 call E687 

E75SD ED 4B 3D AE 1d bc, (AE3D) 

E761l 2A 3B AE ld hl, (AE3B) 

E764 C3 OB E7 jp E70B 

.—. get address VAL into <de> 
@ C6E8! C6ED! C866! C8D6! CCO9! EIEO! 

E767 23 inc hl 

E768 5E ld e,(hl) 

E769 23 inc hl 

E76A 56 ld d,(h1l) 

E76B 23 inc hl 

E76C FE 1D cp 1D 

E76E C8 ret z 

E76F FE IE cp 1E 

E77l C2 EA E8 jp nz,E8EA 

E774 E5 push hl 

E775 CD D6 DD call DDD6 

E778 DC B8 FF call c,FFB8 

E77B 30 09 jr nc,E786 

E77D EL pop hl 

E7TE E35 push hl 

E7TF CD F3 E8 call E8F3 
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command: ELSE ” REM 
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E77F 


E782 23 inc hl 


E783 CD .A7E7 call E7A7 search line# <de>, <hl>=address, =carry 
E786 D4 9A E7 call nc,E79A search line# <de> from start, <hl>=addr, nc= 
E789 2B dec hl 

E78A EB ex de,hl 

E78B EI pop hl 

E78C E5 push hl 

E78D 3E 1D ld a,1D <next ADDRESS> 

E78F 32 3A AE ld (AE3A),a BASIC Program line format 

E792 2B dec hl 

E793 72 ld (hl),d 

E794 2B dec hl 

E795 73 ld (hl),e 

E796 2B dec hl 

E797 77 ld (hl),a 

E798 EI pop hl 

E799 c9 ret 


— search line# <de> from start, <hl>=addr, nc=error 
@ Cc059! CBFO! DCDF! E708! E786! EAAl! 


E79A CD A3 E7 call E7A3 search line# <de> from start, <hl>=address, 
E79D D8 ret c 

E79E IE 08 ld e,08 Line does not exist 

E7TAO C3 94 CA jp CA94 perform ERROR <e> routine 


._- search line# <de> from start, <hl>=address, =carry 

@ C1OA! EL1O! E6E7! E74l! E79A! EBOA! E8OF! E872! 
E7A3 2A 81 AE ld h1,(AE81) start of BASIC program -l pointer 
E7A6 23 inc hl 


— search line# <de>, <hl>=address, =carry 
@ E783! E7BF’ 


E7A7 4E ld c,(hl) 
E7A8 23 inc hl 
E7AI9 46 ld b,(hl) bc=len 
E7AA 2B dec hl 
E7AB 78 ld a,b 
E7AC Bl or c 
E7AD C8 ret z if bc=0, end of program 
E7AE ES5 push hl 
E7AF 23 inc hl 
E7BO 23 inc hl 
E7Bl 7E ld a,(hl) 
E7B2 23 inc hl 
E7B3 66 ld h, (hl) <hl> = line# 
E7B4 6F ld 1,a 
E7B5S EB ex de,hl 
E7B6 CD B8 FF call FFB8 test HL=DE? (try hl-de) 
E7B9 EB ex de,hl 
E7TBA EI pop hl 
E7BB 3F ccf 
E7BC DO ret nc return with (hl)=address 
E7BD C8& ret z 
E7BE 09 add hl,bc add len of this line = new address 
E7BF 18 E6 jr E7A7 search line# <de>, <hl>=address, =carry 
.- search line# <de>; <hl>=address 
@ E73C! 
E7Cl 2A 81 AE ld h1,(AE81) start of BASIC program -l pointer 
E7C4 23 inc hl 
E7C5 E5 push hl 
E7C6 4E ld c,(hl) <bc>=1en of this line 
E7C7 23 inc hl 
E7C8 46 ld b,(hl) 
E7C9 23 inc hl 
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E7CA 78 ld a,b 


E7CB Bl or c 
E7CC 28 OF jr z,E7DD last line, len was 0 
E’CE TE ld a,(hl) 
E’ICF 23 inc hl 
E7DO 66 ld h,(h1l) <hl> = linef# 
E7Dl 6F ld 1,a 
E7D2 EB ex de,hl 
E7D3 CD Bd FF call FFB8 test HL=DE? (try hl-de) 
E7D6 EB ex de,hl 
E7D7 38 04 jr c,E7DD line# found > or = ;return 
E7D9 EI pop hl 
E7DA 09 add hl,bc 
E7DB 18 E8 jr E7C5 next line 
E7DD EI pop hl 
E7DE C9 ret 
.- command: RENUM [<linef#>][,[<old line#>][,<step>]] 
@ DE8D 
E7DF 11 0A 00 ld de,000A default start = 10. 
E7E2 28 05 jr z,E7E9I no argument given 
E7E4 FE 2C cp 2C ‘5 
E7E6 C4 EL CE call nz,CEEl get line# into <de> 
E7E9 D5 push de 
E7EA 11 00 00 ld de,0000 default old line# =0000 
E7ED CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
E7FO 30 05 jr nc,E7F7 old line# argument not present 
E7F2 FE 2C cp 2C Ge 
E7F4 C4 EL CE call nz,CEEl get line# into <de> 
E7F7 D5 push de 
E7F8 11 0A 00 ld de,000A default step = 10. 
E7FB CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
E7TFE DC El CE call c,CEEl get line# into <de> 
E80l CD 4A DD call DD4A CHRGOT <a>; end of statement? else syntax er 
E804 EI pop hl 
E805 EB ex de,hl 
E806 E3 ex (sp),hl 
E807 EB ex de,hl 
E808 D5 push de 
E809 ES push hl 
E8SOA CD A3 E7 call E7A3 search line# <de> from start, <hl>=address, 
E8oD DI pop de 
E80E E5 push hl 
E8OF CD A3 E7 call E7A3 search line# <de> from start, <hl>=address, 
E8l2 EB ex de,hl 
E813 El pop hl 
E8l4 CD B8 FF call FFB8 test HL=DE? (try hl-de) 
E8l7 DA 55 E7 jp c,E755 Error: Improper argument 
E8SlA EB ex de,hl 
E8lB DI pop de 
Eölc Ci pop bc 
E8ölD D5 push de 
E8SlE E5 push hl 
E8SlF C5 push bc 
E820 4E ld c,(hl) 
E82l 23 inc hl 
E822 46 ld b, (hl) 
E823 78 ld a,b 
E8S24 Bl orc 
E825 28 13 jr z,E83A ... 
E82? 2B dec hl 
E828 09 add hl,bce 
E829 7E ld a,(hl) 
E82A 23 inc hl 
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E82B B6 or (hl) 


E82C 28 0C jr z,E83A ... 

E82E 2B dec hl 

E8ö2F Cl pop be 

E830 ES push hl 

E83l EB ex de,hl 

E832 09 add hl,bc 

E833 EB ex de,hl 

E834 DA 55 E7 jp e,E755 Error: Improper argument 
E837 El pop hl 

E838 18 E5 jr E8IF ... 

E83A 01 64 E8 ld bc,E864 search for line# within text 
E8S3D CD FF ES call E8FF go thru Basic program and do function <bce> 
E840 cCı pop bc 

E84l EL pop hl 

E842 DI pop de 

E843 C5 push bc 

E8ß44 E5 push hl 

E845 4E ld c,(hl) 

E846 23 inc hl 

E847 46 ld b,(hl) 

E848 23 inc hl 

E849 78 ld a,b 

ES4A Bl or c 

E84B 28 0C jr z,E859 ... 

E84D 73 ld (hl),e 

E84E 23 inc hl 

E84F 72 ld (hl),d 

E850 23 inc hl 

E8Sl El pop hl 

E852 09 add hl,bc 

E8ßS3 cl pop bc 

E854 EB ex de,hl 

E8S5 09 add hl,bc 

E856 EB ex de,hl 

E857 18 EA jr E843 ... 

E85S9 EI pop hl 

E8S5A El pop hl 

E85B O1 88 E8 ld bc,E888 find line# element; if not defined: error 
E85SE CD FF Eß call E8FF go thru Basic program and do function <bc> 
E861 C3 64 CO jp C064 reset Basic 


.--- search for line# within text 
@ E83A: E86C’” E886” 


E864 CD 43 E9 call E943 skip over a statement element 
E867 FE 02 cp 02 end of statement? 

E869 D8 retc 

E86A FE IE cp lE <next LINE#> 

E86C 20 F6 jr nz,E864 search for line# within text 
E86E E5 push hl 

E8S6F 56 ld d,(hl) 

E870 2B dec hl 

E871 5E ld e,(hl) 

E872 CD A3 E7 call E7A3 search line# <de> from start, <hl>=address, 
E8S75 30 0E jr nc,E885 not found 

E877 2B dec hl 

E878 EB ex de,hl 

E879 EI pop hl 

E8S7A ES push hl 

E87B 72 ld (h1),d 

E8S7C 2B dec hl 

E87D 73 ld (hl),e 

E87E 2B dec hl 
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1D 


3A AE 


DC 


ld a,1D 
ld (hl),a 


ld (AE3A),a 


pop hl 
jr E864 


<next ADDRESS> 
BASIC Program line format 


search for line# within text 


- find line# element; if not defined: error 
@ E85B: E890’ E89D’ 


E888 CD 
E88B FE 
E88D DB 
E8S8E FE 
E8IO 20 
E892 E5 


43 E9 


02 


lE 
F6 


D6 DD 


18 


E9 


CB 


call E943 
cp 02 
ret c 
cp IE 
jr nz,E888 
push hl 
ld d,(hl) 
dec hl 
ld e,(hl) 
call DDD6 
call CBl8 
pop hl 
jr E888 


skip over a statement element 
is it end of statement or line? 


<next LINE#> 


find line# element; if not defined: error 


get BASIC line# at PC in <hl>, =carry 


print ’undefined line <line#> in <linei#> 


find line# element; if not defined: error 


_- skip over statements till [ELSE] or <line end> 
@ C6D7! 


E89F 06 
E8Al 2B 


01 


ld b,01 
dec hl 


initial count for [IF] 


.— skip statements, count IF’s and ELSE’s 
@ E8AD’ E8BO’ E8BA’ 
E8A2 CD 43 E9 


E8A5 B7 


u check if parentheses pair 


EI 


@ D6D9! 


E8scl 7E 


5B 
03 
28 


00 


E9 


call E943 
or a 

ret z 

cp O1 

jr z,E8B2 
cp Al 

jr nz,E8A2 
inc b 

jr E8A2 


call E943 

cp 97 

jr nz,E8A5 
dec b 

jr nz,E8A2 
call DD3F 

inc b 

ret 


ld a,(hl) 
cp 5B 

jr z,E8C9 
cp 28 

ret nz 

ld b,00 
inc b 
call E943 
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skip over a statement element 


<statement end> 

end of statement 

[IF] 

skip statements, count IF’s and ELSE’s 
skip statements, count IF’s and ELSE’s 
skip over a statement element 

[ELSE] 

was not [ELSE], try next 


skip statements, count IF’s and ELSE’s 
CHRGET <a>, skip blank, cp Ol 


A 
« 
init counter =0 


skip over a statement element 
. 
l 
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E8DB 


E8DD 28 06 jr z,E8E5 


E8SDF FE 02 cp 02 "STX (B) 

E8El 38 07 jr c,E8EA Error: Syntax error 
E8E3 18 E7 jr ESCC continue search 
E8E5 05 dec b 

E8E6 20 E4 jr nz,E8CC 

E8E8 23 inc hl 

E8EI9 CI ret 


-- Error: Syntax error 
ESEA IE 02 ld e,02 Syntax error 
E8EC C3 94 CA jp CA94 perform ERROR <e> routine 


— command: DATA <list of<data>> (skip this line) 

@ C6FO! CC28 DI12D DDIB! DELI 
E8EF 06 Ol ld b,01 skip till end of line 
E8Fl 18 02 jr E8F5 


.-- command: ELSE ° REM 
@ DE2F DE8l DESB E77F! 


E8F3 06 00 ld b,00 skip one element 

E8F5 2B dec hl 

E8F6 CD 43 EI call E943 skip over a statement element 
E8F9 B7 or a 

E8FA C8 ret z 

E8FB B8 cp b 

E8FC 20 F8 jr nz,E8F6 take next element 

E8FE C9I ret 


— g0 thru Basic program and do function <bc> 
@ E692! E83D! E85E! EISF! 


E8FF CD D2 DD call DDD2 get BASIC program counter in <hl> 
E9O2 E5 push hl 

E903 2A 81 AE ld h1,(AE81) start of BASIC program -l pointer 
E90O6 23 inc hl 

E907 TE ld a,(hl) 

E90O8 23 inc hl check len of line 

E9O9 B6 or (hl) 

E9OA 28 13 jr z,E91F end of program 

E9OC 23 inc hl 

E9OD CD CE DD call DDCE set BASIC program counter to <hl> 
E91O 23 inc hl 

E91 C5 push bc 

E912 CD F9 FF call FFF9 jp(be) 

E915 Ci pop bc 

E916 2B dec hl 

E91L7 CD 35 EI call E935 test for ELSE or THEN in this line; z=found 
E9lIA B7 ora 

E91B 20 F4 jr nz,E911 statement ended, next statement 
E9ID 18 E7 jr E906 line ended, get next line 

E9IF EL pop hl 

E920 C3 CE DD jp DDCE set BASIC program counter to <hl> 


----- test line for ELSE or THEN; error if pgm ended 
@ CICF! CA23! 


E923 CD 35 E9 call E935 test for ELSE or THEN in this line; z=found 
E926 B7 or a 

E927 CO ret nz statement, not line ended; return 

E928 23 inc hl 

E929 TE ld a,(hl) 

E92A 23 inc hl 

E92B B6 or (hl) end of program? 

E92C 59 ld e,c either NEXT or WEND missing 
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E92D CA 94 CA jp z,CA94 perform ERROR <e> routine 
E930 23 inc hl 


E9I31 54 ld d,h 
E932 5D ld e,l1 
E933 23 inc hl 
E934 CI ret 


._-- test for ELSE or THEN in this line; z=found 
@ E917! E923! EI4O” 


E935 CD 43 EI call E943 skip over a statement element 

E938 FE 02 cp 02 end of statement? 

E93A D8 ret c 

E93B FE 97 cp 97 [ELSE] 

E93D CB ret z 

E93E FE EB cp EB [THEN] 

E94O 20 F3 jr nz,E935 test for ELSE or THEN in this line; z=found 
E942 CI ret 


— skip over a statement element 
@ E69D! E864! E888! E8A2! E8B2! ESCC! E8F6! E935! E9971 


E943 CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
E9I4H6 CB ret z end of line? 

E947 FE OE cp 0E <const 0> 

E949 38 1D jr c,E968 skip over variable 
E94B FE 20 cp 20 "SPACE 

E94D 38 29 jr c,E978 skip over constant 
E94F FE 22 cp 22 . 

E95l 28 09 jr z,E95C skip over "text!" 
E953 FE 7C cp 7C [TEST] 

E955 28 19 jr z,E970 skip over EXTERNAL COMMAND 
E957 FE FF cp FF [TOKEN SWITCH] 
E959I CO ret nz 

E95SA 23 inc hl 

EI5B CI ret 

.- skip over "text" 

E95C 23 inc hl 

E95SD T7E ld a,(hl) 

EISE FE 22 cp 22 en 

E960 CB ret z 

E961l B7 or a 

E962 20 F8 jr nz,E95C skip over "text" 
E9I64 2B dec hl 

E965 3E 22 ld a,22 a 

E9I67 CI ret 

— skip over variable 

E968 FE 08 cp 08 "BS (#) 

EI6A CB ret z 

E96B FE 07 cp 07 “BEL (”G) 

E96D CE ret z 

E96E 23 inc hl 

E96F 23 inc hl 

— skip over EXTERNAL COMMAND 

E970 F5 push af 

E97L 23 inc hl 

E972 TE ld a,(hl) 

E973 17 rla 

E974 30 FB jr nc,E971 next 

E976 Fl pop af 

E9I77 CI ret 
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E977 


skip over constant 


“CAN (X) 
<next byte VAL> 


<next 5 byte REAL> 


find any variable and clear index 
go thru Basic program and do function <bc> 


skip over a statement element 
end of statement? 


is it a variable? 

find any variable and clear index 
“BEL (°C) 

find any variable and clear index 
"BS (CH) 

find any variable and clear index 


CHRGET <a>, skip blank, cp Ol 
<real var> 


<real var> 
clear VARIABLE table index 
clear VARIABLE table index 


find any variable and clear index 


CHRGOT <a>; end of statement? =carry 
start of BASIC program -l pointer 


no line# given 

<next LINE#> 

get line# and RUN 

<next ADDRESS> 

get line# and RUN 

get filename, OPENIN, get startaddr, NEW 
load a file into store 

MC BOOT PROGRAM, load and run FOREGROUND 


FE 18 cp 18 

D8 ret c 

FE 19 cp 19 

28 08 jr z,E987 

FE IF cp IF 

38 03 jr c,E986 

23 inc hl 

23 inc hl 

23 inc hl 

23 inc hl 

23 inc hl 

c9 ret 

clear all VARIABLE indices 
@ Cc197! D9ICO! EA74! EC4A7! 
Cc5 push bc 

D5 push de 

E5 push hl 

01 96 EI ld bc,E996 
CD FF ES call E8FF 
El pop hl 

Dl pop de 

cl pop bc 

c9 ret 

find any variable and clear index 
@ E98C: E9AO” E9YA4’ EIAB’ EIBB’ 
E5 push hl 

CD 43 EI call E943 
DI pop de 

FE 02 cp 02 

D8 ret c 

FE OE cp 0E 

30 F4 jr nc,E996 
FE 07 cp 07 

28 FO jr z,E996 

FE 08 cp 08 

28 EC jr z,E996 

EB ex de,hl 

CD 3F DD call DD3F 

FE 0D cp OD 

38 02 jr c,E9B4 ... 
36 OD ld (h1),O0D 

23 inc hl 

36 00 ld (h1),00 
23 inc hl 

36 00 ld (h1),00 
EB ex de,hl 

18 D9 jr E996 
command: RUN [<line#>] 

@ DE95 

CD 51 DD call DD51 

EB ex de,hl 

2A 81 AE ld h1,(AE81) 
EB ex de,hl 

38 Ic jr c,E9E3 

FE 1E cp lE 

28 15 jr z,E9EO 

FE 1D cp D 

28 11 jr z,E9EO 

CD OD EA call EAOD 

21 30 EA ld h1,EA30 
D2 13 BD jp nc,BD13 
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call EBAd 
ld h1,(AE81) 
jr E9FL 


.-- get line# and RUN 


E9EO CD 67 E7 


E9E4 CD AD D2 
E9E7T CD 8C Cl 
EIEA CD 7A Cl 
E9ED CD 5E Cl 


call E767 

push de 
call D2AD 
call C18C 
call C17A 
call C15E 
pop hl 

inc hl 

pop af 

jp DD93 


call EAOD 
jr nc,EAOl 
call EBA8 
jp C064 


push hl 
call F501 
call EA30 
jp z,CB6B 

pop hl 

ret 


test filetype and load inputfile 
start of BASIC program -1 pointer 


get address VAL into <de> 


CAS in/out abandon, release I/O buffers 
reset all VARIABLE pointers 

reset pointers; program, error, data 
reset to RAD 


RUN LOOP, part 2 


: LOAD <filename>[,‚<startaddress>] 


get filename, OPENIN, get startaddr, NEW 
test filetype and load inputfile 
reset Basic 


enough space in memory for <bc>? 
load a file into store 
perform a BREAK 


.— get filename, OPENIN, get startaddr, NEW 
@ EICF! E9IF6! 


EAOD CD 8F EB 
EAlO E6 OE 
EAl2 EE 02 
EAl4 28 OB 
EAl6 CD 4A DD 
EAl9 CD 8C Cl 
EAlC CD 6B Cl 


call EB8F 
and 0E 
xor 02 

jr z,EA2l 
call DD4A 
call Cl8C 
call C16B 
scf 

ret 


release 1/0; get <filename>; OPENIN 

mask out 

<integer VAR%> 

set loadpointer to <startaddr>, if present 
CHRGOT <a>; end of statement? else syntax er 
reset all VARIABLE pointers 

performs NEW, part 2 


.- set loadpointer to <startaddr>, if present 


EA2l CD 55 DD 


call DD55 
call c,CE91 
ld (AE3F),de 
call DD4A 

or a 

ret 


— load a file into store 
@ E9D2: EAOS! 


EA30 2A 3F AE 


ld hl, (AE3F) 
call BC83 
push hl 

call c,BC7A 
pop hl 

ret 


CHRBACK comma?; if=:CHRGET <a>, sc£ 

get unsigned-integer VAL(expr) in <de> 

load pointer while LOAD 

CHRGOT <a>; end of statement? else syntax er 


load pointer while LOAD 
CAS IN DIRECT, read input file into store (h 


CAS IN CLOSE 


- command: CHAIN <filename>[,<run line#>] [,DELETE<line#>[-<line#>]] 


@ DEOB 


xor AB 

jr nz,EA44 
call DD3F 
scf 
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[MERGE] 
no 
CHRGET <a>, skip blank, cp Ol 
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CD 9A 


EB 


F5 


AE 


E7 


command: 
@ DE57 


CD 8F 
CD 4A 
CD 8C 
cD 92 
c3 64 


304 


EB 
DD 
cl 
EB 
co 


sbce a,a 
ld (AE4l),a 
call EB8F 
ld de,0000 
call DD55 
jr nc,EA59 
ld a,(hl) 
cp 2C 
call nz,CE91 
push de 
call DD55 
ld a,00 
jr nc,EA6A 
call DD37 
[DELETE] 
call E737 
ld a,FF 
push af 
call DD4A 
call FBlB 
call FC3E 
call E989 
call D5D2 
call F549 
pop af 
push bc 
push de 
or a 
call nz,E75A 
ld a,(AE4l) 
ora 
jr nz,EA92 
call C16B 
call EBA8 
jr EA95 


call EB9ID 

pop de 

pop bc 

call F571 
pop de 
ld h1,(AE81) 
ld a,d 
or e 
ret z 
call E79A 
dec hl 
ret 


MERGE [<filename>] 


call EB38F 
call DD4A 
call C18C 
call EB9D 
jp C064 


call C17A 
call E687 

ld hl, (AE83) 
ex de,hl 

ld h1,(AE81) 
inc hl 

ld (AE83),hl 


BASIC LIST GENERATOR 


0 = load, FF = merge 

LOAD/MERGE flag 

release 1/0; get <filename>; OPENIN 
default line# 0000 

CHRBACK comma?; if=:CHRGET <a>, scf 
<line#> argument not present, take default 


‚ 


’ 
get unsigned-integer VAL(expr) in <de> 
CHRBACK comma?; if=:CHRGET <a>, scf 


CHRNEXT <a>, nz=Error; CHRGET 


get bounds of the lines to delete 


CHRGOT <a>; end of statement? else syntax er 


GARBAGE COLLECT 
clear all VARIABLE indices 
clear AE04..5 to 0 


... 


delete line area; shift rest of pgm down 
LOAD/MERGE flag 


merge 


performs NEW, part 2 
test filetype and load inputfile 


start of BASIC program -1 pointer 


search line# <de> from start, <hl>=addr, nc= 


release 1/0; get <filename>; OPENIN 
CHRGOT <a>; end of statement? else syntax er 
reset all VARIABLE pointers 


reset Basic 


reset pointers; program, error, data 
change Basic program to linef# format 
end of BASIC program pointer 

start of BASIC program -1l pointer 
end of BASIC program pointer 
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EAC6 EB ex de,hl 
EAC7 CD DA FF call FFDA 
EACA EB ex de,hl 
EACB 2A 8D BO ld h1,(BO8D) 
EACE EB ex de,hl 
EACF 2B dec hl 
EADO CD F5 FF call FFF5 
EAD3 13 inc de 
EAD4 EB ex de,hl 

@ EBOC’ EB18’ 
EAD5 ES5 push hl 
EAD6 2A 83 AE ld h1,(AE83) 
EAD9 11 20 00 ld de,0020 
EADC 19 add hl,de 
EADD EB ex de,hl 
EADE EI pop hl 
EADF CD B8 FF call FFB8 
EAE2 38 50 jr c,EB34 
EAE4 CD 84 EB call EB84 
EAE7 B3 or e 
EAE8 28 30 jr z,EBIA 
EAEA D5 push de 
EAEB CD 84 EB call EB84 

@ EBO4’ 
EAEE E5 push hl 
EAEF 7E ld a,(hl) 
EAFO 23 inc hl 
EAFl B6 or (hl) 
EAF2 28 12 jr z,EBO6 
EAF4 23 inc hl 
EAF5 7E ld a,(hl) 
EAF6 23 inc hl 
EAF7 66 ld h,(hl) 
EAF8 6F ld 1,a 
EAF9 CD B8 FF call FFB8 
EAFC El pop hl 
EAFD 28 OF jr z,EBOE 
EAFF 30 06 jr nc,EBO7 
EBOlL CD 48 EB call EB48 
EBO4 18 E8 jr EAEE 
EBO6 EI pop hl 
EBO7 E3 ex (sp),hl 
EBOß CD 5E EB call EB5E 
EBOB EI pop hl 
EBOC 18 C7 jr EAD5 
EBOE E3 ex (sp),hl 
EBOF CD 5E EB call EB5E 
EBl2 EI pop hl 
EB1l3 5E ld e,(hl) 
EBl4 23 inc hl 
EBl5 56 ld d,(h1l) 
EBl6 2B dec hl 
EBl7 19 add hl,de 
EBl8 18 BB jr EAD5 

@ EAE8” EB23” 
EBlIA 7E ld a,(hl) 
EBlB 23 inc hl 
EBlC B6 or (hl) 
EBlD 2B dec hl 
EBlE 28 05 jr z,EB25 
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BC=HL-DE 


low end of used string space pointer 


lddr 


end of BASIC program pointer 


test HL=DE? (try hl-de) 
Error: Memory full 


test HL=DE? (try hl-de) 


... 
... 
... 
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CD 48 EB call EB48 

18 F5 jr EBIA 

@ EBIE” 

2A 83 AE ld h1,(AE83) 
36 00 ld (h1),00 
23 inc hl 

36 00 ld (h1),00 
23 inc hl 

22 83 AE ld (AE83),hl 
c3 Bl D5 jp D5Bl 
Error: Memory full 

@ EAE2” EBDI 

lE 07 ld e,07 

18 02 jr EB3A 
Error: EOF met 

@ EB7A’ EB8B’ EBE6 

lE 18 ld e,18 

D5 push de 

CD AD D2 call D2AD 
cD &C cl call CLl8C 
CD 6B Cl call C16B 
Dl pop de 

c3 94 CA  jp CA94 

@ EBOL! EB2O! 

c5 push bc 

D5 push de 

E5 push hl 

4E ld c,(hl) 
23 inc hl 

46 ld b,(h1l) 
2A 83 AE ld h1,(AE83) 
EB ex de,hl 
El pop hl 

CD F2 FF call FFF2 
EB ex de,hl 
22 83 AE ld (AE83),hl 
EB ex de,hl 
DI pop de 

cl pop bc 

c9 ret 

@ EBOS! EBOF! 

D5 push de 

EB ex de,hl 

2A 83 AE ld h1,(AE83) 
73 ld (hl),e 
23 inc hl 

72 ld (h1),d 
23 inc hl 

EB ex de,hl 

E3 ex (sp),hl 
EB ex de,hl 

73 ld (hl),e 
23 inc hl 

72 ld (h1),d 
23 inc hl 

DI pop de 

1B dec de 

1B dec de 

1B dec de 
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end of BASIC program pointer 


end of BASIC program pointer 


reset all VARIABLE pointers to basic start 


Memory full 


EOF met 


CAS in/out abandon, release I/O buffers 


reset all VARIABLE pointers 
performs NEW, part 2 


perform ERROR <e> routine 


end of BASIC program pointer 


ldir 


end of BASIC program pointer 


end of BASIC program pointer 
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1B dec de 

7A ld a,d 

B3 or e 

28 09 jr z,EB80 
CD 80 BC call BC80 
30 BC jr nc,EB38 
77 ld (hl),a 
23 inc hl 

18 F2 jr EB72 

@ EB75” 

22 83 AE ld (AE83),hl 
c9 ret 


@ EAE4! EAEB! 


CD 80 BC call BC80 
5F ld e,a 

DC 80 BC call c,BC80 
30 AB jr nc,EB38 
57 ld d,a 

c9 ret 


release 1/0; get <£filename>; 
@ EAOD! EA4B! EAA6! 


CD AD D2 call D2AD 
CD 6A D2 call D26A 
32 42 AE ld (AE42),a 


ED 43 43 AE 1d (AE43),bc 
c9 ret 


@ EA92! EAAF! 


3A 42 AE ld a, (AE42) 
B7 or a 

CA B5S EA  jp z,EAB5 
FE 16 cp 16 

20 0B jr nz,EBB3 


CAS IN CHAR from input file 
Error: EOF met 


end of BASIC program pointer 


CAS IN CHAR from input file 


CAS IN CHAR from input file 
Error: EOF met 


OPENIN 


CAS in/out abandon, release I1/O buffers 
get <filename>, allocate buff, OPENIN 
LOAD/CHAIN flag 

used by LOAn, CHAIN 


LOAD/CHAIN flag 


filetpe 
Error: File type error 


test filetype and load inputfile 


@ E9DE! EIFB! EABD! 


3A 42 AE ld a, (AE42) 
FE 16 cp 16 

28 40 jr z,EBEF 
E6 FE and FE 

28 05 jr z,EBB8 
Error: File type error 
lE 19 ld e,19 

c3 94 CA jp CA94 


load as a Basic program 


CD 7A CI call C17A 
2A 81 AE ld h1,(AE81) 
23 inc hl 

EB ex de,hil 

2A 8D BO ld hl, (BO8D) 
01 80 FF ld bce,FF80 
09 add hl,bc 
ED 4B 43 AE 1d bc, (AE43) 
CD CF FF call FFCF 
D4 BE FF call nc,FFBE 
DA 34 EB jp c,EB34 

60 ld h,b 

69 ld 1,c 

19 add hl,de 


huslik, cpc464 inside out 


LOAD/CHAIN flag 
filetype 

load as Ascii file 
=254. 

load as a Basic program 


File type error 
perform ERROR <e> routine 


reset pointers; program, error, data 
start of BASIC program -1 pointer 


low end of used string space pointer 
= -80 


used by LOAD, CHAIN 
HL=HL-DE 

test HL=BC? (try hl-bc) 
Error: Memory full 
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22 83 AE ld (AE83),hl 
3A 42 AE ld a,(AE42) 
IF rra 

9F sbc a,a 

32 45 AE ld (AE45),a 
EB ex de,hl 

CD 83 BC call BC83 
CA 38 EB jp z,EB38 
CD Bl D5 call D5Bl 
c3 98 D2 jp D298 
load as Ascii file 

@ EBAD’ 

CD 7A Cl call C17A 
CD CB DD call DDCB 
CD 4C CA call CA4C 
D2 98 D2 jp nc,D298 
CD BC E6 call E6BC 
38 F5 jr c,EBF5 
lE 15 ld e,15 

28 02 jr z,ECO6 
lE 06 ld e,06 

c3 94 CA jp CA94 
command 

@ DE97 

CD AD D2 call D2AD 
cD 56 D2 call D256 
06 00 ld b,00 

cD 55 DD call DD55 
30 29 jr nc,EC3F 
cD 37 DD call DD37 
0D “CR (M) 
23 inc hl 

23 inc hl 

7E ld a,(hl) 
23 inc hl 

E6 DF and DF 

F2 38 EC jp p,EC38 
E5 push hl 

21 2C EC ld h1,EC2C 
CD 93 FF call FF93 
E3 ex (sp),hl 
c9 ret 

table of filetypes A B P 
@ EC24: 

03 38 EC EC38 =3. 

C1 87 EC EC87 =193. 
Cc2 5C EC EC5C =194. 
DO 3D EC EC3D =208. 
Error: Syntax error 

lE 02 ld e,02 

c3 94 CA jp CA94 

P, save as protected file 
@ EC35: 

06 01 ld b,01 

CD 4A DD call DD4A 
E5 push hl 

c5 push bc 

CD 87 E6 call E687 
CD 89 EI call E989 
2A 81 AE ld h1,(AE81) 
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end of BASIC program pointer 
LOAD/CHAIN flag 


flag file read protected 


CAS IN DIRECT, read input file into store (h 


Error: EOF met 


reset all VARIABLE pointers to basic start 


command: CLOSEIN 


reset pointers; program, error, data 


reset BASIC program counter 


read a line from tape to edit buffer 


command: CLOSEIN 


check for a line# in command line 


next line 

Direct command found 

yes! 

Over£flow 

perform ERROR <e> routine 


: SAVE <filename>[,<filetype>] [‚<startaddr>,<len>] 


CAS in/out abandon, release 1/O buffers 


OPENOUT <filename> 
is savefile 


command: 
default 
CHRBACK 
save as 
CHRNEXT 


savefile 


mask out 
Error: Syntax error 


table of filetypes AB P 


<a>, nz=Error; CHRGET 


comma?; if=:CHRGET <a>, scf 


search <a> in table(hl); hl=address 


jump to found label 


Error: Syntax error 

A, save as ASCII file 

B, save as binary file 

P, save as protected file 


Syntax error 
perform ERROR <e> routine 


filetype protected 
CHRGOT <a>; end of statement? 


else syntax er 


change Basic program to line# format 


clear all VARIABLE indices 


start of BASIC program -1l pointer 
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EC4D 23 inc hl 
EC4E EB ex de,hl 
EC4F 2A 83 AE ld h1,(AE83) 
EC52 CD CF FF call FFCF 
EC55 EB ex de,hl 
EC56 Fl pop af 
EC5?7 01 00 00 ld bc,0000 
EC5A 18 23 jr EC7F 
-— B, save as binary file 

@ EC32: 
EC5C 06 02 ld b,02 
EC5E CD 37 DD call DD37 
EC61 2C es; 
EC62 CD 91 CE call CE91 
EC65 D5 push de 
EC66 CD 37 DD call DD37 
EC69 2C er 
EC6A CD 91 CE call CE9L 
EC6D D5 push de 
EC6E CD 55 DD call DD55 
EC7l 11 00 00 ld de,0000 
EC74 DC 91 CE call c,CE91 
EC77 D5 push de 
EC78 CD 4A DD call DD4A 
EC7B 78 ld a,b 
EC’C CI pop bc 
EC7D DL pop de 
EC7E E3 ex (sp),hl 
EC7F CD 98 BC call BC98 
EC82 D2 6B CB jp nc,CB6B 
EC85S 18 17 jr EC9IE 
— A, save as ASCII file 

@ EC2F: 
EC87 CD 4A DD call DD4A 
EC8A ES push hl 
EC8B 3E 09 ld a,09 
EC8D CD A2 Cl call C1A2 
EC90O F5 push af 
EC91 01 01 00 ld bc,0001 
EC94 11 FF FF ld de,FFFF 
EC97 CD OD EI call ELlOD 
EC9A Fl pop af 
EC9B CD A2 Cl call C1A2 
-_- closeout, return 
EC9E CD Al D2 call D2Al 
ECAl EI pop hl 
ECA2 CI ret 


end of BASIC program pointer 
HL=HL-DE 


write, close, return 


filetype binary 
CHRNEXT <a>, nz=Error; CHRGET 


get unsigned-integer VAL(expr) in <de> 
CHRNEXT <a>, nz=Error; CHRGET 

get unsigned-integer VAL(expr) in <de> 
CHRBACK comma?; if=:CHRGET <a>, scf 
get unsigned-integer VAL(expr) in <de> 


CHRGOT <a>; end of statement? else syntax er 


CAS OUT DIRECT, (hl)=data, <de>=len, <a>=typ 
perform a BREAK 
closeout, return 


CHRGOT <a>; end of statement? else syntax er 


channel 9=tape 
set output channel to <a>, a= old channel 


default start line# 
default end line# 
perform LIST 


set output channel to <a>, a= old channel 


command: CLOSEOUT 


— get either HEX or integer VAL 
@ D571! DC16! FA87! 


ECA3 CD 
ECA6 20 
ECA8 CD 
ECAB 18 


44 ED 
05 


call ED44 

jr nz,ECAD 
call DD6l 

jr ECDC 


cp 26 

jr z,ECCD 
call FF7F 
jr c,ECDC 
call FF1O 
call FEF3 
scf 
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look for - (d=FF) or + (d=00) 

sign not present 

CHRSKIP <a>; skip over blank, tab, linefeed 
get integer VAL 


’& 

get HEX VAL 

test <a> for °.’ or digit, =CARRY 
get integer VAL 

set VARTYPE integer; <a>=2 

set FAC to all zeroes 
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c9 


ret 


get either HEX or integer VAL 


push hl 
call ECC6 
pop de 
retc 

ex de,hl 
ret 


1d d,00 

ld a,(hl) 
cp 26 

jr nz,ECDC 


call EEIC 

ex de,hl 

push af 
call FFOD 
pop af 

ex de,hl 
ret c 

ret z 


@ EOIC! EOSC! 
E5 

CD C6 EC 
Dl 

D8 

EB 

c9 

do it here 
16 00 

7E 

FE 26 

20 OF 

get HEX VAL 
CD IC EE 
EB 

F5 

CD OD FF 
Fl 

EB 

D8 

c8 

c3 F3 CA 


jp CAF3 


get integer VAL 
@ ECAB’ ECB4” ECCB’ 


E5 


FF 


77 ED 


310 


push hl 
ld a,(hl) 
inc hl 
cp 2E 
call z,DD61 
call FF83 
pop hl 
jr c,ECFO 
ld a,(hl) 
xor 2E 
ret nz 
inc hl 
ret 


call FF1O 
push de 
ld bc,0000 
ld de,AE46 
call ED53 
cp 2E 
jr nz,EDOC 
call EDC9I 
call FF19 
ine c 
call ED53 
dec c 
push af 
ld a,FF 
ld (de),a 
pop af 
call ED77 
pop de 
ld e,a 
push hl 
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do it here 


“NUL 
"& 
get integer VAL 


convert Ascii HEX or BIN to <hl> 


set FAC to <hl> and mark integer 


Error: Overflow 


. 


CHRSKIP <a>; skip over blank, tab, linefeed 


test <a> for digit, =carry 


yes, a digit 


. 
. 


set VARTYPE integer; <a>=2 


number edit buffer (1) 


set VARTYPE real; <a>=5 


"IGNORE 
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ED1l7 D5 push de 


ED18 21 46 AE ld h1,AE46 number edit buffer (1) 
ED1B CD CE ED call EDCE ... 

EDIE DI pop de 

EDIF CD 27 FF call FF27 get VARTYPF <a>; cp string 
ED22 30 08 jr nc,ED2C ... 

ED24 E5 push hl 

ED25 42 ld b,d 

ED26 CD 06 FE call FEO6 ... 

ED29 EI pop hl 

ED2A 38 11 jr c,ED3D FAR 

ED2C 7A ld a,d 

ED2D 4E ld c,(hl) 

ED2E 23 inc hl 

ED2F CD 94 BD call BD94 REAL ARITH ?? 

ED32 7B ld a,e 

ED33 CD 55 BD call BD55 REAL ARITH ?? 

ED36 EB ex de,hl 

ED37 CD 16 FF call FF16 ld hl,FAC; set VARTYPE real; <a>=5 
ED3A DC 3D BD call c,BD3D copy 5 bytes,(de)>(hl); 1d a,(hl-1) 
ED3D 3E 0A ld a,0A ‘LF (°J) 

ED3F EI pop hl 

ED40 D8 ret c 

ED41 C3 F3 CA jp CAF3 Error: Overflow 


—— look for - (d=FF) or + (d=00) 
@ ECA3! ED7F! 


ED44 CD 61 DD call DD6l CHRSKIP <a>; skip over blank, tab, linefeed 
ED47 23 inc hl 
ED48 16 FF ld d,FF FF flag for - 
ED4A FE 2D cp 2D "- 
ED4C CB ret z 
ED4D 14 inc d 00 flag for + 
ED4E FE 2B cp 2B + 
ED50 C8 ret z 
ED51l 2B dec hl 
ED52 C9 ret 
@ ECFA! EDO8! ED72° ED75” 
ED53 ES5 push hl 
ED54 CD 61 DD call DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
ED57 23 inc hl 
ED58 CD 83 FF call FF83 test <a> for digit, =carry 
ED5SB 38 04 jr c,ED6l it’s a digit 
ED5D EI pop hl 
ED5E C3 8A FF jp FF8A change <a> to upper case 
ED61l E3 ex (sp),hl 
ED62 EI pop hl 
ED63 D6 30 sub 30 remove ascii part 
ED65 12 ld (de),a 
ED66 BO or b 
ED67 28 07 jr z,ED70 ... 
ED69 78 ld a,b 
ED6A 04 inc b 
ED6B FE OC cp 0C "FF CL) 
ED6D 30 O1 jr nc,ED70 ... 
ED6F 13 inc de 
ED70 79 ld a,c 
ED7l B7 or a 
ED72 28 DF jr z,ED53 ... 
ED74 0C ine c 
ED75 18 DC jr ED53 ... 
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ED77 
ED79 
ED7B 
ED7C 
ED7F 
ED82 
ED85 
ED88 
ED8A 
ED8B 
ED8C 


ED8E 
ED8F 
ED9IO 
ED93 
ED94 
ED95 
ED9I8 
ED9IA 
ED9IB 
EDID 
EDIE 
EDAO 
EDAl 
EDA3 
EDA5 
EDA6 
EDA7 
EDA8 
EDAA 
EDAB 
EDAC 
EDAE 
EDAF 
EDBO 
EDB2 
EDB4 
EDB5 
EDB6 
EDB8 
EDB9I 
EDBB 
EDBC 
EDBE 
EDCO 


EDC1 
EDC2 
EDC4 
EDC6 
EDC8 


EDC9I 
EDCC 
EDCD 


EDCE 
EDCF 
EDD2 
EDD5 
EDD6 


EDD6 


@ EDI1! 


FE 45 cp 45 

20 10 jr nz,ED8B 
E5 push hl 

CD C9 ED call EDC9I 
CD 44 ED call ED44 
CC 61 DD call z,DD61 
CD 83 FF call FF83 
38 04 jr c,ED8E 
El pop hl 

AF xor a 

18 1E jr EDAC 

E3 ex (sp),hl 
El pop hl 

CD 19 FF call FF19 
D5 push de 

c5 push bc 
CD 35 EE call EE35 
30 09 jr nc,EDA3 
7B ld a,e 
D6 64 sub 64 

7A ld a,d 

DE 00 sbce a,00 
7B ld a,e 

38 02 jr c,EDA5 
3E 7F ld a,7F 
cl pop be 

Dl pop de 

14 inc d 

20 02 jr nz,EDAC 
2F cpl 

3C inc a 

Cc6 80 add a,80 

5F ld e,a 

78 ld a,b 

D6 0C sub 0C 

30 01 jr nc,EDB5 
AF xor a 

91 sub c 

30 09 jr nc,EDC1 
83 add a,e 

38 01 jr c,EDBC 
AF xor a 

FE Ol cp O1 

CE 80 adc a,80 

c9 ret 

83 add a,e 

30 02 jr nc,EDC6 
3E FF ld a,FF 

D6 80 sub 80 

c9 ret 


@ EDOL! ED7C! 
CD 61 DD call DD61 


23 inc hl 
c9 ret 

@ EDIB! 

EB ex de,hl 


21 58 AE ld h1,AE58 
01 01 05 ld bc,0501 
2B dec hl 

36 00 ld (h1),00 
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’E 


look for - (d=FF) or + (d=00) 


CHRSKIP <a>; skip over blank, tab, linefeed 


test <a> for digit, =carry 


set VARTYPE real; <a>=5 


convert Ascii decimal# to <hl> 


“d 

“NUL 

“DEL 

"FO 0 
FF (UL) 
"SOH (A) 
ro 0 
"IGNORE 
ro 0 


CHRSKIP <a>; skip over blank, tab, linefeed 


number edit buffer (3) 


“NUL 
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EDD8 10 FB djnz EDD5 ... 


EDDA 1A ld a,(de) 
EDDB FE FF cp FF "IGNORE 
EDDD C8 ret z 
EDDE 77 ld (hl),a 
EDDF 21 53 AE ld h1,AE53 number edit buffer (2) 
EDE2 13 inc de 
EDE3 1A ld a,(de) 
EDE4 FE FF cp FF "IGNORE 
EDE6 C8 ret z 
EDE7 D5 push de 
EDE8 41 ld b,c 
EDE9 16 00 ld d,00 ’NUL 
EDEB ES5 push hl 
EDEC 5E ld e,(hl) 
EDED 62 ld h,d 
EDEE 6B ld 1,e 
EDEF 29 add hl,hl 
EDFO 29 add hl,hl 
EDFl 19 add hl,de 
EDF2 29 add hl,hl 
EDF3 5F ld e,a 
EDF4 19 add hl,de 
EDF5 5D ld e,1 
EDF6 7C ld a,h 
EDF?7 El pop hl 
EDF8 73 ld (hl),e 
EDF9 23 inc hl 
EDFA 10 EF djnz EDEB ... 
EDFC DI pop de 
EDFD B7 ora 
EDFE 28 DF jr z,EDDF ... 
EE00O 77 ld (hl),a 
EEOlL 0C ine c 
EEO2 18 DB jr EDDF ie 
@ EOLL! E6C2! 
EEO4 C5 push bc 
EEO5 E5 push hl 
EE06 CD 35 EE call EE35 convert Ascii decimal# to <hl> 
EE09 EB ex de,hl 
EEOA CD OD FF call FFOD set FAC to <hl> and mark integer 
EEOD EB ex de,hl 
EEOE CI pop bc 
EEOF 30 06 jr nc,EEl7 ... 
BEll 7A ld a,d 
EEl2 B3 or e 
EEl3 C6 FF add a,FF "IGNORE 
EEl5 38 03 jr c,EElA ... 
EEl7 50 ld d,b 
EEl8 59 ld e,c 
EEl9 EB ex de,hl 
EElA Cl pop bc 
EElB cC9 ret 
— convert Ascii HEX or BIN to <hl> 
@ ECCD! 
EElC 23 inc hl skip over ’& 
EElD CD 61 DD call DD61 CHRSKIP <a>; skip over blank, tab, 
EE20 CD 8A FF call FF8A change <a> to upper case 
EE23 06 02 ld b,02 binary number? 
EE25 FE 58 cp 58 x 
EE27 28 06 jr z,EE2F yes, binary 
EE29 06 10 ld b,10 hex number? 
EE2B FE 48 cp 48 H 
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EED 20 04 jr nz,EE33 none of these, must be hex 


EE2F 23 inc hl skip ”X or °H 
EE30 CD 61 DD call DD61 CHRSKIP <a>; skip over blank, tab, linefeed 
EE33 18 02 jr EE37 


-- convert Ascii decimal# to <hl> 
@ ED95! EEO6! 


EE35 06 0A ld b,0A decimal number! 

EE37 EB ex de,hl 

EE38 CD 61 EE call EE6l a=VAL of digit or HEX digit 
EE3B 26 00 ld h,00 “NUL 

EE3D 6F ld 1,a 

EE3E 30 IE jr nc,EE5E Ge 

EE40 OE 00 ld c,00 “NUL 

EE42 CD 61 EE call EE6l a=VAL of digit or HEX digit 
EE45 30 14 jr nc,EE5B no more digits; return 
EE47 D5 push de 

EE48 16 00 ld d,00 "NUL 

EE4A 5F ld e,a 

EE4B D5 push de 

EE4C 58 ld e,b 

EE4D CD BE BD call BDBE INT ARITH, ?? 

EE50 DLl pop de 

EE5l 38 03 jr c,EE56 ... 

EE53 19 add hl,de 

EE54 30 02 jr nc,EE58 ... 

EE56 OE FF ld c,FF "IGNORE 

EE58 DL pop de 

EE59 18 E7 jr EE42 next digit 

EE5B 79 ld a,c 

EESC FE O1 cp O1 

EESE EB ex de,hl 

EESF 78 ld a,b 

EE60 cC9 ret 


.— a=VAL of digit or HEX digit 
@ EE38! EE42! 


EE61 1A ld a,(de) 

EE62 13 inc de 

EE63 CD 83 FF call FF83 test <a> for digit, =carry 
EE66 38 0A jr c,EE72 yes, digit 

EE68 CD 8A FF call FF8A change <a> to upper case 
EE6B FE 4l cp 41 "A 

EE6D 3F ecf 

EE6E 30 05 jr nc,EE75 no, not a HEX digit 

EE70 D6 07 sub 07 remove HEX part 

EE72 D6 30 sub 30 remove ascii part 

EE74 B8 cp b 

EE75 D8 ret c 

EE76 1B dec de 

EE77 AF xor a =0 

EE78 C9 ret 


-.-- print line# 
@ C106! CB4C DDF8! 


EE79 CD OD FF call FFOD set FAC to <hl> and mark integer 
EE7C CD 82 EE call EE82 convert FAC to ASCII, (hl)=address of text 
EE7F C3 41 C3 jp C341 output tex* (hl) to channel 


— convert FAC to ASCII, (hl)=address of text 
@ El73! E2IE! EE7C! 


EE82 D5 push de 
EE83 C5 push bc 
EE84 CD C3 FC call FCC3 ... 
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EE87_ AF xor a 
EE88 CD A7 EE call EEA7 ... 
EE8B 23 inc hl 
BESC Cl pop bc 
EE8D DI pop de 
EE8E C9I ret 
— edit FAC onto the NUMBER EDIT BUFFER 
@ E2CF! F48E! 
EE8F D5 push de 
EE9O C5 push bc 
EE9l AF xor a 
EE92 CD 9F EE call EE9F ... 
EE95 Cl pop bc 
EE96 DI pop de 
EE97 TE ld a,(hl) 
EE98 FE 20 cp 20 "SPACE 
EE9A CO ret nz 
EE9B 23 inc hl 
EE9IC CI ret 
@ F23D! FYIF! 
EE9D 3E 40 ld a,40 ‘a 
@ EE92! F3BO! F916! 
EE9F 22 6E AE ld (AE6E),hl temp store for char 
EEA2 F5 push af 
EEA3 CD B3 FC call FCB3 ... 
EEA6 Fl pop af 
@ EE8B! 
EEA7 C5 push bc 
EEA8 57 ld d,a 
EEA9 D5 push de 
EEAA EB ex de,hl 
EEAB 21 68 AE ld h1,AE68 number edit buffer (4) 
EEAE 36 00 ld (h1),00 
EEBO 22 70 AE ld (AE70),hl number edit buffer index 
EEB3 CD B7 FO call FOB7 ... 
EEB6 DI pop de 
EEB7 CD D4 EE call EED4 ... 
EEBA CD 3D FO call FO3D ... 
EEBD 58 ld e,b 
EEBE Cl pop bc 
EEBF 7B ld a,e 
EECO B7 ora 
EECl CC 50 FO call z,F050 ... 
EEC4 CD 5F FO call FO5F ... 
EEC7_ CD 69 FO call F069 .. 
EECA CD 7C FO call FO7C ... 
EECD 7A ld a,d 
EECE IF rra 
EECF DO ret nc 
EEDO 2B dec hl 
EEDL 36 25 ld (h1),25 2 
EED3 C9I ret 
@ EEB7! 
EED4 7A ld a,d 
EED5 87 add a,a 
EED6 30 29 jr nc,EFOl ... 
EED8 FA 27 EF jp m,EF27 ... 
EEDB 7B ld a,e 
EEDC 81 add a,c 
EEDD D6 0A sub 0A ’LF (I) 
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EEDD 


EEDF FA 88 EF jp m,EF88 ee 


EEE2 16 Ol ld d,0l "SOH (TA) 
@ EFO6° EF17 

EEE4 41 ld b,c 

EEE5 79 ld a,c 

EEE6 B7 or a 

EEE7 28 15 jr z,EEFE ... 

EEE9 83 add a,e 

EEEA 3D dec a 

EEEB 5F ld e,a 

EEEC CD OE FO call FOOE ... 

EEEF 06 Ol ld b,0l "SOH (TA) 

EEFlL 79 ld a,c 

EEF2 FE 07 cp 07 "BEL (°C) 

EEF4 38 04 jr c,EEFA ae 

EEF6 CB 72 bit %,d 

EEF8 20 26 jr nz,EF20O ... 

EEFA B8 cp b 


EEFB C4 AO EF call nz,EFAO “s 
EEFE C3 62 EF jp EF62 ... 


EFOl 7B ld a,e 

EFO2 B7 ora 

EF03 FA OA EF  jp m,EFOA Be 
EF06 20 DC jr nz,EEE4 

EFO8 41 ld b,c 

EF09 C9 ret 

EFOA 43 ld b,e 

EFOB CD OE FO call FOOE ... 
EFOE 78 ld a,b 

EFOF B7 or a 

EFlO 28 F6 jr z,EFO8 sä 
EFl2 93 sub e 

EFl3 58 ld e,b 

EFl4 47 ld b,a 

EFl5 81 add a,c 

EFl6 83 add a,e 


EFLI7 FA E4 EE  jp m,EEE4 
EFIA CD BA EF call EFB4 


EFID C3 AO EF jp EFAO RR 
EF20 3E 06 ld a,06 "ACK (”F) 
EF22 32 6E AE ld (AE6E),a temp store for char 
EF25 18 24 jr EF4B “..s 
@ EED8 
EF27 06 80 ld b,80 FO 0 
EF29 CD 25 FO call FO025 ... 
EF2C 30 04 jr nc,EF32 ... 
EF2E CD 96 FO call F096 ... 
EF3l AF xor a 
EF32 47 ld b,a 
EF33 CC 36 FO call z,F036 ... 
EF36 20 0C jr nz,EF44 ... 
EF38 04 inc b 
EF39 3A 6E AE ld a, (AE6E) temp store for char 
EF3C B7 or a 
EF3D 28 05 jr z,EF44 u. 
EF3F 05 dec b 
EF4O 3C ine a 
EF4l 32 6E AE ld (AE6E),a temp store for char 
EF44 79 ld a,c 
EF45 B7 ora 
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EF46 
EF48 
EF49 
EF4A 
EF4B 
EF4C 
EF4D 
EF4E 
EFS1 
EF52 
EF53 
EF55 
EF56 
EF57 
EF58 
EF59 
EF5A 
EF5C 
EF5E 
EF5F 
EF6l 


EF62 
EF64 
EF67 
EF68 
EF69 
EF6B 
EF6D 
EF6E 
EF6F 
EF70 
EF72 
EF75 
EF76 
EF78 
EF79 
EF7B 
EF7D 
EF7E 
EF7F 
EF82 
EF83 
EF85 


EF88 


EF8B 
EF8E 
EF8F 
EF9O 
EF92 
EF95 


EF97 
EF98 
EF9B 
EF9E 
EF9F 


28 04 jr z,EF4C 
83 add a,e 
90 sub b 

5F ld e,a 

78 ld a,b 

F5 push af 

47 ld b,a 

CD 8B EF call EF8B 
Fl pop af 

B8 cp b 

28 0D jr z,EF62 
IC inc e 

23 inc hl 

05 dec b 

E5 push hl 

7E ld a,(hl) 
FE 2E cp 2E 

20 01 jr nz,EF5F 
23 inc hl 

36 31 ld (h1),31 
El pop hl 

@ EEFE EF53” 

3E 45 ld a,45 

CD 6F FO call FO6F 
7B ld a,e 

87 add a,a 

3E 2B ld a,2B 

30 05 jr nc,EF72 
AF xor a 

93 sub e 

5F ld e,a 

3E DD ld a,2D 

CD 6F FO call FO6F 
7B ld a,e 

0OE 2F ld c,2F 

0C inc c 

D6 OA sub 0A 

30 FB jr nc,EF78 
5F ld e,a 

79 ld a,c 

CD 6F FO call FO6F 
7B ld a,e 

C6 3A add a,3A 
C3 6F FO jp FO6F 

@ EEDF 

CD B4 EF call EFB4 
@ EF4E! 

CD 36 FO call FO36 
80 add a,b 

B9 cp c 

30 05 jr nc,EF97 
CD C8 EF call EFC8 
18 04 jr EF9B 

91 sub c 


C4 EF EF call nz,EFEF 
3A 6E AE ld a,(AE6E) 
B7 or a 

c8 ret z 


huslik, cpc464 inside out 


’LF (7) 


temp store for char 
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@ EEFB! EFID 


0E 2E ld c,2E 

78 ld a,b 

@ F049! 

c5 push bc 

47 ld b,a 

04 inc b 

85 add a,l 
6F ld 1,a 

8C adc a,h 
95 sub 1 

67 ld h,a 

2B dec hl 

79 ld a,c 

4E ld c,(hl) 
77 ld (hl),a 
05 dec b 

20 F9 jr nz,EFAB 
cl pop be 

c9 ret 

@ EFlA! EF88! 

7B ld a,e 

8 add a,c 

47 ld b,a 

FO ret p 

2F cpl 

3C inc a 

06 14 ld b,14 

B8 cp b 

30 01 jt nc,EFCO 
47 ld b,a 

2B dec hl 

36 30 ld (h1),30 
0c ine c 

05 dec b 

20 F9 jr nz,EFCO 
c9 ret 

@ EF92! 

E5 push hl 

4F ld c,a 

85 add a,l 
6F ld 1,a 

8C adc a,h 
95 sub 1 

67 ld h,a 

7E ld a,(hl) 
36 00 ld (h1),00 
22 70 AE ld (AE70),hl 
FE 35 cp 35 

D4 El EF call nc,EFEl 
El pop hl 

D8 ret c 

2B dec hl 

36 31 ld (h1),31 
04 inc b 

c9 ret 


@ EFD7! EFED” 


79 ld a,c 
B7 or a 
c8 ret z 
2B dec hl 
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"Dc4 (°T) 


“NUL 
number edit buffer index 
5 


huslik, cpc464 inside out 


EFE5 OD dec c 
EFE6 TE ld a,(hl) 
EFE7 34 inc (hl) 
EFE8 FE 39 cp 39 
EFEA D8 ret c 
EFEB 36 30 ld (h1),30 
EFED 18 F2 jr EFEL 

@ EF98! 
EFEF D5 push de 
EFFO C5 push bc 
EFFl EB ex de,hl 
EFF2 47 ld b,a 
EFF3 7B ld a,e 
EFF4 90 sub b 
EFF5 6F ld 1,a 
EFF6 9F sbc a,a 
EFF7_ 82 add a,d 
EFF8 67 ld h,a 
EFF9 ES push hl 
EFFA 0C inc c 
EFFB 18 04 jr FOOL 
EFFD IA ld a,(de) 
EFFE 13 inc de 
EFFF 77 ld (hl),a 
FO00 23 inc hl 
FOOL OD dec c 
F002 20 F9 jr nz,EFFD 
F004 36 30 ld (h1),30 
F006 23 inc hl 
F007 05 dec b 
F008 20 FA jr nz,F004 
FOOA EI pop hl 
FOOB ci pop bc 
FOOC DL pop de 
FOOD cC9 ret 

@ EEEC! EFOB! 
FOOE E5 push hl 
FOOF 2A 70 AE ld h1, (AE70) 
FOlL2 2B dec hl 
FO1l3 7E ld a,(hl) 
FOl4 23 inc hl 
FOl5 FE 30 cp 30 
FOL? 20 05 jr nz,FOIE 
FO1l9 2B dec hl 
FOlIA OD dec c 
FOIB 04 inc b 
FOlC 20 F4 jr nz,F0l2 
FOIE 36 00 ld (h1),00 
F020 . 22 70 AE ld (AE70),hl 
F023 El pop hl 
FO24 C9 ret 

@ EF29! F0551 
F025 CD 9B FO call FO9IB 
FO28 9F sbc a,a 
F029 3C inc a 
FO2A 47 ld b,a 
FO2B 7A ld a,d 
FO2C E6 04 and 04 
FO2E 28 01 jr z,FO31 
F030 04 inc b 
FO31l 3A 6F AE ld a, (AE6F) 


huslik, cpc464 inside out 


number edit buffer index 


oo 


’NUL 
number edit buffer index 


’EOT (D) 
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FO31 


F034 
FO35 


F036 
F039 
FO3A 
FO3B 
FO3C 


FO3D 
FO3E 
FO40 
FO4Ll 
FO42 
FO44 
FO45 
FO46 
FO47 
FO49 
FO4C 
FO4D 
FO4E 


FO50 
FOSL1 
F052 
FO54 
F055 
F058 
F059 
FO5A 
FO5B 
FO5D 


FOSF 
F060 
F062 
F063 
F065 
F066 
F067 
F068 


F069 
FO6C 
FO6D 


FO6F 
F070 
F073 
F074 
F075 
F077 
FO7A 
FO7B 


FO7B 


90 sub b 

c9 ret 

@ EF33! EF8B! 

3A 6E AE ld a, (AE6E) 
B7 ora 

c8 ret z 

3D dec a 

c9 ret 

@ EEBA! 

7A ld a,d 

E6 02 and 02 

c8 ret z 

78 ld a,b 

D6 03 sub 03 

D8 ret c 

c8 ret z 

F5 push af 

0E 2C ld c,2C 
CD A3 EF call EFA3 
04 inc b 

Fl pop af 

18 F2 jr F042 

@ EECL! 

7A ld a,d 

87 add a,a 

30 07 jr nc,FO5B 
Cc5 push bc 

CD 25 FO call F025 
cl pop bc 

D8 retc 

c8 ret z 

3E 30 ld a,30 

18 06 jr F065 

@ EEC4! 

7A ld a,d 

E6 04 and 04 

c8 ret z 

3E 24 ld a,24 

Ic inc e 

2B dec hl 

77 ld (hl),a 
c9 ret 

@ EEC7! 

CD 9B FO call FO9IB 
c8 ret z 

30 F6 jr nc,F065 
@ EF64! EF72! EF7F! EF85 
E5 push hl 

2A 70 AE ld h1,(AE70) 
77 ld (hl),a 
23 inc hl 

36 00 ld (h1),00 
22 70 AE ld (AE70),hl 
El pop hl 

c9 ret 


320 CONVERT NUMBERS TO ASCII 


temp store for char 


"STX (”B) 


"ETX (°C) 


"EOT (D) 


s 


number edit buffer index 


“NUL 
number edit buffer index 


huslik, cpc464 inside 


@ EECA! 


FO7C 7A ld a,d 
F07D B7 or a 
FOTE FO ret p 
FO7TF 3A 6F AE ld a,(AE6F) 
F082 93 sub e 
F083 C8 ret z 
F084 38 10 jr c,F096 
F086 47 ld b,a 
F087 7A ld a,d 
F088 E6 20 and 20 
FO8A 3E 2A ld a,2A 
FO8C 20 02 jr nz,F090 
FO8SE 3E 20 ld a,20 
F090 2B dec hl 
F091 77 ld (hl),a 
F092 05 dec b 
F093 20 FB jr nz,F090 
F095 c9 ret 

@ EF2E! F084° 
F096 7A ld a,d 
F097 F6 Ol or Ol 
F099 57 ld d,a 
FO9A CI ret 

@ FO25! F069! 
FO9B 78 ld a,b 
FO9IC 06 2D ld b,2D 
FOIE 87 add a,a 
FO9F 38 OF jr c,FOBO 
FOAlL 7A ld a,d 
FOA2 E6 98 and 98 
FOA4 EE 80 xor 80 
FOA6 37 sc£ 
FOA7 C8 ret z 
FOA8 06 2B ld b,2B 
FOAA E6 08 and 08 
FOAC 20 02 jr nz,FOBO 
FOAE 06 20 ld b,20 
FOBO 7A ld a,d 
FOBl F6 EF or EF 
FOB3 C6 10 add a,10 
FOB5S 78 ld a,b 
FOB6 C9 ret 

@ EEB3! 
FOB7 ES push hl 
FOB8 EB ex de,hl 
FOB9 CD DD FO call FODD 
FOBC EI pop hl 
FOBD 78 ld a,b 
FOBE 87 add a,a 
FOBF 4F ld c,a 
FOCO C8 ret z 
FOC1 1A ld a,(de) 
FOC2 E6 OF and OF 
FOC4_ C6 30 add a,30 
FOC6 2B dec hl 
FOC7 77 ld (hl),a 
FOC8 1A ld a,(de) 
FOC9 E6 FO and FO 
FOCB IF rra 
FOCC IF rra 
FOCD IF rra 


huslik, cpc464 inside out 


"SPACE 
x 


... 


"SPACE 


’SOH (TA) 


"BS (#) 


"SPACE 


"BREAK mark 
’DLE (“P) 


“CURSOR up 
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FOCD 


F117 


@ FOB9! 
11 46 AE 
AF 

47 

B6 

2B 

20 04 


18 11 


21 46 AE 


rra 
add a,30 
dec hl 

ld (hl),a 
inc de 

dec b 

jr nz,FOC1l 
cp 30 

ret nz 

dec c 

inc hl 

ret 


ld de,AE46 
xor a 

ld b,a 

or (hl) 
dec hl 

jr nz,FOEA 
dec c 

jr nz,FOE2 
ret 


scf 
adc a,a 
jr nc,FOEB 
ex de,hl 
push de 

ld d,a 

jr F104 


ld a,(de) 
dec de 
push de 
scf 
adc a,a 
ld d,a 
ld e,b 
ld a,(hl) 
adc a,a 
daa 
ld (hl),a 
inc hl 
dec e 
jr nz,FOFA 
jr nc,F107 
inc b 
ld (h1),01 
ld h1,AE46 
ld a,d 
add a,a 
jr nz,FOF8 
pop de 
dec c 
jr nz,FOF3 
ex de,hl 
ret 


o 


number edit buffer (1) 


"SOH (A) 


number edir buffer (1) 


edit value in binary representation 
@ E2A7! FEBE! 


11 01 01 
18 03 


1d de,0101 
jr FLIIC 


d= # of bits per digit, e= base 2 (-l) 


322 CONVERT NUMBERS TO ASCII 
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out 


— edit value in HEX representation 
@ E2B2! F8C8! 


d= # of bits per digit, e= base 16 (-l) 


= VARTYPE 


set VARTYPE <a>, copy VARIABLE (hl) to FAC 


function: UNT(<address expression>) 
=0 

mark end of text 

a= min # of digits to produce 

b= # of bits per digit, c= base 


’SOH (TA) 

’NUL 

get LSB 

mask out unwanted bits 

set upper nibble 

decimal adjust both nibbles 


change to ascii 


store digit on NUMBER EDIT STACK 


all bits done 


shift <h1l> right <b> times 


decrement bit count 
shift again 


produce a digit 


digit count not done, add a zero 
points to variable within basic text 


function: UNT(<address expression>) 
ld a,(h1l) from RAM 
set FAC to <a> and mark integer 


get unsigned-integer VAL(expr) in <de> 
save address argument 
CHRNEXT <a>, nz=Error; CHRGET 


F119 11 OF 04 ld de,040F 

FllIC D5 push de 

FliD 79 ld a,c 

FlIE CD 4B FF call FF4B 

Fl21l E3 ex (sp),hl 

F1l22 ES5 push hl 

F123 C5 push bc 

F1l24 CD C2 FE call FEC2 

F127 11 57 AE ld de,AE57 

F12A AF xor a 

Fl2B 12 ld (de),a 

Fl2C Fl pop af 

Fl2D ci pop be 

----- produce a digit 

Fl2E D6 O1 sub Ol 

F130 CE 00 adc a,00 

F132 F5 push af 

F133 7D ld a,l1 

F134 Al and c 

F135 F6 FO or FO 

F137 27 daa 

F138 C6 AO add a,A0 

Fl3A CE 40 adc a,40 

F13C 1B dec de 

FID 12 ld (de),a 

Fl3E 7D ld a,l 

FL3F Bl or c 

F140 A9 xor c 

Fl4l 6F ld 1,a 

Fl42 B4 or h 

Fl143 28 0E jr z,F153 

Fl45 C5 push bc 

F146 7C ld a,h 

F1l47 IF rra 

Fl48 67 ld h,a 

Fl49 7 ld a,l 

Fl4A IF rra 

F14B 6F ld 1,a 

Fl4AC 05 dec b 

Fl4D 20 F7 jr nz,F146 

FI4F_ cl pop bc 

F150 Fl pop af 

F15l 18 DB jr FI2E 

F153 Fl pop af 

F154 20 .D8 jr nz,Fl2E 

F156 EI pop hl 

Fl57 c9 ret 

----- function: PEEK (<address>) 
@ DID2 

F158 CD C2 FE call FEC2 

F15B E7 rst 4 

Fl5C C3 0A FF jp FFOA 

— command: POKE <address>,<byte value> 
@ DE7D 

Fl5F CD 91 CE call CE91 

F162 D5 push de 

F163 CD 37 DD call DD37 

F166 2C er 

F167 CD 67 CE call CE67 


huslik, cpc464 inside out 


get byte VAL(expression) in <de> 


PEEK POKE 323 


F167 


DL pop de get address 
12 ld (de),a and store 
c9 ret 


function: INP (<I/O address>) 


@ DIC4 

CD 8D FE call FE8D function: CINT(<num expression>) in <hl> 
44 ld b,h 

4D ld c,1 be=hl 

ED 78 in a,(c) read 1/O port 

c3 0A FF jp FFOA set FAC to <a> and mark integer 

command: OUT <I/O address>,<byte value> 

@ DE73 

CD 94 Fl call F194 get int VAL in <bc>, next byte VAL in <a> 
ED 79 out (c),a 

c9 ret 


command: WAIT <I/O address>,<AND mask>[,<XOR mask>] 


@ DEA9I 

CD 94 Fl call F194 get int VAL in <bc>, next byte VAL in <a> 
57 ld d,a 

lE 00 ld e,00 default XOR mask 

28 08 jr z,F18D wait for condition 

cD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 

2C 2 

CD 67 CE call CE67 get byte VAL(expression) in <de> 
5F ld e,a 

wait for condition 

ED 78 in a,(c) read I/O port 

AB xor e 

A2 and d 

28 FA jr z,F18D wait for condition 

c9 ret 


get int VAL in <bc>, next byte VAL in <a> 


@ F177! FL7D! 

CD 91 CE call CE91 get unsigned-integer VAL(expr) in <de> 
42 ld b,d bc=de 

4B ld c,e 

CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 

2C er 

c3 67 CE jp CE67 get byte VAL (expression) in <de> 
perform an EXTERNAL CALL 

@ D651 

23 inc hl 

7E ld a,(hl) 

B7 or a 

20 10 jr nz,F1B5 Error: Unknown command 

23 inc hl 

E5 push hl 

CD D4 BC call BCD4 KL FIND COMMAND (hl) in RSX or back ROM, =<c 
EB ex de,hl 

El pop hl 

30 07 jr nc,F1B5 Error: Unknown command 


skip over command 


7E ld a,(hl) 

23 inc hl 

17 rla 

30 FB jr nc,FlAE skip over command 

18 0A jr FIBF copy arg’s to stack, call routine in selecte 


324 EXTERNAL CALL huslik, cpc464 inside out 


-— Error: Unknown command 


F1B5 IE Ic ld e,Ic Unknown command 
F1B7 C3 94 CA jp CA94 perform ERROR <e> routine 
----- command: CALL <RAM address>[,<list of<argument>>] 
@ DEO7 
F1BA CD 91 CE call CE91 get unsigned-integer VAL(expr) in <de> 
FlBD OE FF ld c,FF disable ROMs on CALL 
.— copy arg’s to stack, call routine in selected ROM 
FlBF ED 53 72 AE ld (AE72),de address of CALLed routine 
Flc3 79 ld a,c 
FlC4 32 74 AE ld (AE74),a ROM selection on CALL 
FlC7 ED 73 77 AE 1d (AE77),sp save SP on CALL 
FlCB 06 20 ld b,20 count for up to 32. arguments 
— get all the arguments 
FlCcD CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
F1DO 30 06 jr nc,F1D8 skip if no more arguments 
F1D2 CD 91 CE call CE91 get unsigned-integer VAL(expr) in <de> 
F1lD5 D5 push de copy arguments onto stack 
FlD6 10 F5 djnz FICD get all the arguments 
F1D8 CD 4A DD call DD4A CHRGOT <a>; end of statement? else syntax er 
FiDB 22 75 AE ld (AE75),hl save HL on CALL 
FIDE 3E 20 ld a,20 max # of arguments 
FIEO 90 sub b - unused = # of arg’s in <a> 
FlEl DD 21 00 00 1d ix,0000 clear ix 
FlE5 DD 39 add ix,sp ix=index to find arg’s on stack 
FIE7 DF 72 AE rst 3,AE72 call routine 
— restore SP and HL after return from CALL 
FlIEA ED 7B 77 AE ld sp, (AE77) save SP on CALL 
FIEE 2A 75 AE ld h1,(AE75) save HL on CALL 
FIFl C9 ret 
— set default ZONE to 13. 
@cı7ı! 
FIF2 3E OD ld a,0D CR (CM) 
FIF4 18 03 jr FIF9 set ZONE 
— command: ZONE <byte value> 
@ DEBS5 
FlF6 CD 6D CE call CE6D <a>=next VAL, O=error 
FIF9 32 79 AE ld (AE79),a ZONE for TAB 
FIFC C9 ret 
.— command: PRINT [#<device>,] [<list of<variable>>] 
@ DE7F 
FIFD CD C6 Cl call C1C6 if ’# get chan; default=0; set output channe 
F200 F5 push af 
F201 CD 08 F2 call F208 do it here 
F204 Fl pop af 
F205 C3 A2 Cl jp C1A2 set output channel to <a>, a= old channel 
— do it here 
@ F20l! 
F208 CD 51 DD call DD51 CHRGOT <a>; end of statement? =carry 
F20B DA 4E C3 jp c,C34E output ’LF to channel 
—— print a variable 
F20E FE ED cp ED [USING] 
F210 CA C4 F2 jp z,F2C4 command: ‚USING <format>[<separator>] 
F213 EB ex de,hl 
F2l4 21 24 F2 ld h1,F224 TOKEN: COMMA SPC TAB SEMICOLON 
F217 CD 93 FF call FF93 search <a> in table(hl); hl=address 


huslik, cpc464 inside out PRINT FORMATTING 325 F217 


F27E 


EB 

CD FB FF 
cD 51 DD 
30 EB 

c9 


TOKEN: COMMA SPC 


@ F2l4: 

05 33 F2 
2C 5C F2 
E5 77 F2 
EA 80 F2 
3B 3F DD 


continue 
@ F224: 


ex de,hl 
call FFFB 
call DD51 
jr nc,F20E 
ret 


F233 =5. 
F25C °, 
F277 [SPC] 
F280 [TAB] 
DD3F °; 


jp(de) 
CHRGOT <a>; end of statement? =carry 
print a variable 


TAB SEMICOLON 


continue here if none of these 
function: °,° (TAB) 

function: SPC (<spaces>) 
function: TAB(<position>) 
CHRGET <a>, skip blank, cp Ol 


here if none of these 


call CEFB 
push af 
push hl 
call FF45 
jr z,F249 
call EE9D 
call F7DC 
ld (h1),20 
ld hl, (BOC2) 
inc (hl) 


it is a string 


2A C2 BO 


function: 


@ F227: 
CD 3F DD 
3A 79 AE 
4F 

CD 90 Cc2 


30 FD 


CD BI C2 
D2 4E C3 


18 1E 


ld h1,(BOC2) 
ld a,(hl) 
call C2B9 
call nc,C34E 
call F828 
pop hl 
pop af 
call z,C34E 
ret 


*,” (TAB) 


call DD3F 
ld a,(AE79) 
ld c,a 
call C290 
dec a 

sub c 

jr nc,F267 
cpl 

inc a 

ld b,a 

add a,c 
call C2B9 
jp nc,C34E 
ld a,b 

jr F295 


function: SPC(<spaces>) 


@ F22A: 
cD AO F2 
CD AF F2 
7B 

18 15 


call F2AO 
call F2AF 
ld a,e 
jr F295 


326 PRINT FORMATTING 


evaluate (expression), CHRGET, cp Ol 


get VARTYPE <a>; cp string 

it is a string 

test len of string; copy temp to stack 
"SPACE 

Floating point ACU, FAC 


Floating point ACU, FAC 

hl points to string, get a char 
check if char fits into this line 
output °’LF to channel 

print this line 


append ’LF if no argument nor ’; 
output ’LF to channel 


CHRGET <a>, skip blank, cp Ol 
ZONE for TAB 


get current print POS of <device> 


find remainder 


check if char fits into this line 
output ’LF to channel 


print <a> spaces to current channel 


get integer VAL (expression) 


print <a> spaces to current channel 


huslik, cpc464 inside out 


----- function: TAB(<position>) 


@ F22D: 
F280 CD AO F2 call F2AO 
F283 1B dec de 


F284 CD AF F2 call F2AF 
F287 CD 90 C2 call C290 


F28A 2F cpl 

F28B 3C inc a 
F28C IC inc e 
F28D 83 add a,e 
F28E 38 05 jr c,F295 
F290 CD 4E C3 call C34E 
F293 1D dec e 
F294 7B ld a,e 


get integer VAL (expression) 


... 


get current print POS of <device> 


print <a> spaces to current channel 
output ’LF to channel 


--- print <a> spaces to current channel 


@ F275° F27E’ F28E’ F39C! 


F295 47 ld b,a 
F296 04 inc b 
F297 05 dec b 
F298 C8 ret z 
F299 3E 20 ld a,20 
F29B CD 56 C3 call C356 
F29E 18 F7 jr F297 


-—— get integer VAL(expression) 
@ F2771 F280! 

F2AO CD 3F DD call DD3F 

F2A3 CD 37 DD call DD37 


F2A7 CD 86 CE call CE86 
F2AA CD 37 DD call DD37 


F2AD 29 ) 
F2AE C9I ret 
@ F27A! F2841 
F2AF 7A ld a,d 
F2BO 17 rla 
F2Bl 30 03 jr nc,F2B6 


F2B3 11 00 00 ld de,0000 
F2B6 CD 9F C2 call C29F 


F2B9 DO ret nc 
F2BA E5 push hl 
F2BB EB ex de,hl 
F2BC 5F ld e,a 
F2BD 16 00 ld d,00 
F2BF CD Cl BD call BDC1l 
F2C2 EI pop hl 
F2C3 C9I ret 


"SPACE 
output char <a> to channel 
next 


CHRGET <a>, skip blank, cp Ol 
CHRNEXT <a>, nz=Error; CHRGET 


get integer VAL(expression) in <de> 
CHRNEXT <a>, nz=Error; CHRGET 


get line w'dth of <device> 


“NUL 


INT ARITH, DVDu <hl>=<hl>/<de>; <de>=remaind 


et command: ‚USING <format> [<separator>] 


@ F210 
F2C4 CD 3F DD call DD3F 
F2C7 CD A5 CE call CEAS5 
F2CA CD 37 DD call DD37 


’ 
F2CE ES push hl 
F2CF 2A C2 BO ld h1,(BOC2) 
F2D2 7E ld a,(hl) 
F2D3 B7 ora 
F2D4 28 75 jr z,F34B 
F2D6 E3 ex (sp),;hl 
F2D7 CD FB CE call CEFB 
F2DA AF xor a 
F2DB 32 7A AE ld (AE7A),a 
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CHRGET <a>, skip blank, cp Ol 
evaluate (string expression) 
CHRNEXT <a>, nz=Error; CHRGET 


Floating point ACU, FAC 

len of mask string 

=0? =error 

Error: Improper argument 

evaluate (expression), CHRGET, cp Ol 
flag for PRINT USING 
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F2DB 


@ F306’° F30B’ 


F2DE DI pop de 
F2DF D5 push de 
F2EO EB ex de,hl 
F2El 46 ld b,(h1l) 
F2E2 23 inc hl 
F2E3 7E ld a,(hl) 
F2E4 23 inc hl 
F2E5 66 ld h, (hl) 
F2E6 6F ld 1,a 
F2E7 EB ex de,hl 
F2E8 CD 24 F3 call F324 ... 
F2EB 30 5E jr nc,F34B Error: Improper argument 
F2ED CD 51 DD call DD51 CHRGOT <a>; end of statement? =carry 
F2FO 38 1D jr c,F30F ... 
F2F2 FE 3B cp 3B “ 
F2F4 28 04 jr z,F2FA ... 
F2F6 FE 2C cp 2C . 
F2F8 20 4C jr nz,F346 Error: Syntax error 
F2FA CD 3F DD call DD3F CHRGET <a>, skip blank, cp Ol 
F2FD 28 10 jr z,F30F ... 
F2FF D5 push de 
F300 CD FB CE call CEFB evaluate (rxpression), CHRGET, cp Ol 
F303 DI pop de 
F304 78 ld a,b 
F305 B7 or a 
F306 28 D6 jr z,F2DE ... 
F308 CD 24 F3 call F324 ... 
F30B 30 DI jr nc,F2DE ... 
F30D 18 DE jr F2ED ur 

@ F2FO’ F2FD’ 
F30F F5 push af 
F310 3E FF ld a,FF "IGNORE 
F312 32 7A AE ld (AE7A),a flag £or PRINT USING 
F315 738 ld a,b 
F316 B7 or a 
F317 C4 24 F3 call nz,F324 ... 
F3lA Fl pop af 
F31B DC 4E C3 call c,C34E output °LF to channel 
F3lE E3 ex (sp),hl 
F3lF CD ES FB call FBE8 try to release string at low end of string s 
F322 El pop hl 
F323 cC9 ret 

@ F2ES! F308! F317! 
F324 E5 push hl 
F325 1A ld a,(de) no leading sign 
F326 FE 5F cp 5F Ge 
F328 20 09 jr nz,F333 .. 
F32A 78 ld a,b 
F32B FE 02 cp 02 "STX (”B) 
F32D 38 0C jr c,F33B ... 
F32F 13 inc de 
F330 05 dec b 
F331 18 08 jr F33B ... 
F333 CD 50 F3 call F350 ... 
F336 D4 A3 F3 call nc,F3A3 ... 
F339 38 09 jr c,F344 ... 
F33B 1A ld a,(de) 
F33C CD 56 C3 call C356 output char <a> to channel 
F33F 13 inc de 
F340 05 dec b 
F341 20 E2 jr nz,F325 ... 
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F343 B7 or a 
F344 El pop hl 
F345 C9 ret 
---n Error: Syntax error 
F346 IE 02 ld e,02 
F348 C3 94 CA jp CA94 
— Error: Improper argument 
F34B IE 05 ld e,05 
F34D C3 94 CA jp CA94 

@ F333} 
F350 IA ld a,(de) 
F35l FE 21 cp 21 
F353 OE Ol ld c,01 
F355 28 21 jr z,F378 
F357 FE 26 cp 26 
F359 OE 00 ld c,00 
F35B 28 1B jr z,F378 
F35D EE 5C xor 5C 
F35F CO ret nz 
F360 C5 push bc 
F361l D5 push de 
F362 OE 02 ld c,02 
F364 13 inc de 
F365 05 dec b 
F366 28 OA jr z,F372 
F368 1A ld a,(de) 
F369 FE 5C cp 5C 
F36B 28 09 jr z,F376 
F36D O0C ine c 
F36E FE 20 cp 20 
F370 28 F2 jr z,F364 
F372 DL pop de 
F373 cl pop bc 
F374 B7 or a 
F375 c9 ret 
F376 Fl pop af 
F377 Fl pop af 
F378 13 inc de 
F379 05 dec b 
F37A C5 push bc 
F37B D5 push de 
F37C 3A 7A AE ld a, (AE7A) 
F37F B7 or a 
F380 20 1D jr nz,F39F 
F382 CD 3C FF call FF3C 
F385 79 ld a,c 
F386 B7 or a 
F387 F5 push af 
F388 4l ld b,c 
F389 OE 00 ld c,00 
F38B 2A C2 BO ld h1,(BOC2) 
F38E EB ex de,hl 
F38F C4 71 F9 call nz,F971 
F392 CD 28 F8 call F828 
F395 Fl pop af 
F396 28 07 jr z,F39F 
F398 2A C2 BO ld h1,(BOC2) 
F39B 96 sub (hl) 
F39C CD 95 F2 call F295 
F39F DI pop de 
F3AO CI pop bc 
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Syntax error 
perform ERROR <e> routine 


Improper argument 
perform ERROR <e> routine 


EN 


"SPACE 


flag for PRINT USING 


test VARTYPE for string, else error 


Floating point ACU, FAC 


print this line 


Floating point ACU, FAC 


print <a> spaces to current channel 
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F3AO 


F3Al 
F3A2 


F3A3 
F3A6 
F3A7 
F3AA 
F3AB 
F3AD 
F3AE 
F3AF 
F3BO 
F3B3 
F3B6 
F3B7 
F3B8 
F3B9 


F3BA 
F3BB 
F3BC 
F3BE 
F3CO 
F3C1 
F3C3 
F3C5 
F3C6 
F3C7 
F3C9 
F3CA 
F3CC 
F3CD 
F3CF 
F3D1 
F3D3 
F3D5 
F3D6 
F3D7 
F3D9 
F3DA 
F3DB 
F3DC 
F3DE 
F3DF 
F3EO 
F3E2 
F3E4 
F3E6 
F3E8 
F3EA 
F3EC 
F3ED 
F3EE 
F3EF 


F3FO 
F3Fl 
F3F2 
F3F4 
F3F5 
F3F7 
F3F9 
F3FA 


F3FA 


37 
c9 


@ F336! 
CD BA F3 


3A 7A AE 


20 OB 


CD 9F EE 
cD 41 C3 


0E 80 
26 00 


FE 2B 
20 07 


28 23 


0E 88 


scf 
ret 


call F3BA 
ret nc 
ld a, (AE7A) 
or a 
jr nz,F3B8 
push be 
push de 
ld a,c 
call EE9F 
call C341 
pop de 
pop bc 
sc£ 
ret 


dec b 


inc h 


dec b 

jr z,F3EC 

ld a,(de) 

cp 23 

jr nz,F3EC 
dec de 

inc b 


330 PRINT FORMATTING 


flag for PRINT USING 


output texr (hl) to channel 


$ 


"SPACE 
x 
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out 


F3FB 


F3FD 
F3FE 
F3FF 
F401 
F402 
F404 
F406 
F407 
F409 
F40A 
F40B 
F40C 
F40D 
F40E 
F40OF 
F410 
F413 
F4l4 
F415 
F417 
F4AlA 


F4lB 
F41D 
F4I1E 
FAIF 
F420 
F42l 
F423 
F425 
F427 
F429 
F42B 
F42D 
F42E 
F42F 
F430 
F432 


F433 
F434 
F436 
F437 


F439 
F43A 
F43B 
F43C 
F43D 
F43E 
F440 
F442 
F443 
F444 
F446 
F448 
F449 
FA4A 
F4AC 
F44D 
F44E 
F450 


CD 1B F4 


FE 15 
D2 4B F3 


@ F410! 
2E 00 


FE 2E 
28 14 
FE 2C 
28 0A 
FE 23 
20 15 


20 EE 


F6 02 


18 FA 


20 10 


jr F40E 


inc de 
dec b 
jr z,F40B 
ld a,(de) 
cp 24 
jr nz,F40B 
inc h 
ld 1,24 
inc de 
dec b 
ld a,c 
or 1 
ld c,a 
pop af 
pop af 
call F41B 
ld a,h 
add a,l 
cp 15 
jp nc,F34B 
ret 


jr nz,F420 
ret 


ld a,c 
or 02 

ld c,a 
jr F42D 


inc 1 

inc de 

dec b 
ret z 

ld a,(de) 
cp 23 

jr z,F439 
ex de,hl 
push hl 

cp 5E 

jr nz,F460 
inc hl 

cp (hl) 

jr nz,F460 
inc hl 

cp (hl) 

jr nz,F460 
inc hl 
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Error: Improper argument 


“NUL 


"STX (”B) 
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F450 


F4B3 


BE 
20 
23 
78 
D6 
38 
47 
E3 
79 
F6 
4F 
El 
EB 
78 
B7 
c8 
79 
E6 
co 
1A 
FE 
3E 
28 
1A 
FE 
co 
3E 
Bl 
4F 
13 
05 
c9 


le 


04 
06 


40 


cp (hl) 
jr nz,F460 
inc hl 


ld a,c 


’EOT (”D) 


"BS (CH) 


. 


‘DLE (“P) 


+ 


"CAN (X) 


command: WRITE [#<device>,) [<list of<variable>>] 
@ DEB3 


CD 
F5 
cD 
38 
CD 
F5 
E5 
0) 
28 
cD 
CD 
CD 
18 


output text in 


c6 cl 


51 DD 
39 
FB CE 


45 FF 
OB 
8F EE 
DC F7 
28 F8 
OD 


@ F48C’ 


3E 
CD 
CD 
3E 
CD 
El 
Fl 
28 
FE 
28 
FE 
c2 


332 


call C1C6 
push af 
call DD51 
jr c,F4BD 
call CEFB 
push af 
push hl 
call FF45 
jr z,F499 
call EE3F 
call F7DC 
call F828 
jr F4A6 


.n 


ld a,22 
call C356 
call F828 
ld a,22 
call C356 


jp nz,F346 


PRINT FORMATTING 


if °# get chan; default=0; set output channe 


CHRGOT <a>; end of statement? =carry 
output ’LF and restore old channel 
evaluate (expression), CHRGET, cp Ol 


get VARTYPE <a>; cp string 

output text in °" 

edit FAC onto the NUMBER EDLT BUFFER 
test len of string; copy temp to stack 
print this line 


,n 


output char <a> to channel 
print this line 


,n 


output char <a> to channel 


output ’°LF and restore old channel 


’ 
B 


output °,’ and take next expression 
. 


’ 
Error: Syntax error 
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———- output 


F4B3 CD 3F DD 


F4B6 3E 


2C 


F4B8 CD 56 C3 
F4BB 18 C7 


’, 


call DD3F 
ld a,2C 
call C356 
jr F484 


and take next expression 


CHRGET <a>, skip blank, cp Ol 


’ 
output char <a> to channel 
next expression 


----- output ’LF and restore old channel 
@ F482° F4AB” 
F4BD CD 4E C3 


F4CO Fl 


Fa4cl C3 A2 CI 


call C34E 
pop af 
jp C1A2 


----- init all Basic pointers 
@ cooc! 


F4c4 01 


00 


AC 
FF 


AE 


BO 
AE 


AE 


ld bc,AC00 
call FFBE 
ret nc 

ld (AE7B),hl 
ld (BO8F),hl 
ld (AE7D),hl 
ex de,hl 

ld (AE7F),hl 
ld bc,Ol2F 
add hl,bc 
ret c 

ld (AE81),hl 
ex de,hl 

inc hl 

or a 

sbc hl,de 
ret c 

ld a,h 

cp 04 

ret c 

xor a 

ld (BO91L),a 
ret 


: MEMORY <address> 


call FC3E 
call CE91 
push hl 

call F759 
call F675 

ld (AE7B),hl 
pop hl 
ret 


output ’LF to channel 


set output channel to <a>, a= old channel 


default HIMEM 
test HL=BC? (try hl-bc) 


himem for Basic pointer 

upper bound for string space pointer 
himem for SYMBOL AFTER pointer 

low memory boundary pointer 


working space below Basic program 


start of BASIC program -1 pointer 


attempt to access system space 
forces a system reset 


tape buffer flag 


GARBAGE COT.LECT 
get unsigned-integer VAL(expr) in <de> 


release buffer 
himem for Basic pointer 


— enough space in memory for <bc>? 
@ EAO2! 


F501 D5 


F502 2A 7F AE 


F506 2A 7B AE 


CF 


CF 


B8 
03 


FF 


FF 


FF 


push de 

ld h1,(AE7F) 
ex de,hl 

ld h1,(AE7B) 
call FFCF 

ex (sp),hl 
call FFCF 
pop de 

inc de 

call FFB8 
jr c,F5lA 
dec hl 
add hl,bc 

ret nc 
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low memory boundary pointer 


himem for Basic pointer 
HL=HL-DE 


HL=HL-DE 


test HL=DE? (try hl-de) 
Error: Memory full 
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F519 


F5lA C3 3E F7 jp F73E Error: Memory full 


-_-- <bc>= space occupied by strings 
@ F75C! F78D! F7AO! 


F5S1D D5 push de 
FSlE E5 push hl 
FSIF 2A 8D BO ld h1,(BO8D) low end of used string space pointer 
F522 EB ex de,hl 
F523 2A 8F BO ld h1,(BO8F) upper bound for string space pointer 
F526 CD DA FF call FFDA BC=HL-DE 
F529 EI pop hl 
F52A DI pop de 
F52B cC9 ret 
----- shift all Basic pointers up by <bc> 
@ E6F3! E725 
F52C 2A 83 AE ld hl, (AE83) end of BASIC program pointer 
F52F 09 add hl,bc 
F530 22 83 AE ld (AE83),hl end of BASIC program pointer 
F533 2A 85 AE ld hl, (AE85) start of VAR table pointer 
F536 09 add hl,bc 
F537 22 85 AE ld (AE85),hl start of VAR table pointer 
--- shift DIM’d VAR pointers up by <bc> 
@ D758! 
F53A 2A 87 AE ld h1,(AE87) start of DIM’d VAR table pointer 
F53D 09 add hl,bc 
F5S3E 22 87 AE ld (AE87),hl start o£ DIM’d VAR table pointer 
F54l 2A 89 AE ld h1,(AE89) upper end of DIM’d variables pointer 
F544 09 add hl,be 
F545 22 89 AE ld (AE89),hl upper end of DIM’d variables pointer 
F548 cC9 ret 
@ EATA! 
F549 2A 85 AE ld h1,(AE85) start of VAR table pointer 
F54C EB ex de,hl 
F54D 2A 87 AE ld h1,(AE87) start of DIM’d VAR table pointer 
F550 CD CF FF call FFCF HL=HL-DE 
F553 ES push hl 
F554 2A 89 AE ld hl, (AE89) upper end of DIM’d variables pointer 
F557 CD DA FF call FFDA BC=HL-DE 
F5S5A C5 push bc 
F55B 2A 8D BO ld hl, (BO8D) low end of used string space pointer 
F5S5E EB ex de,hl 
F5S5F 2A 89 AE ld hl, (AE89) upper end of DIM’d variables pointer 
F562 2B dec hl 
F563 78 ld a,b 
F564 Bl or c 
F565 C4 F5 FF call nz,FFF5 lddr 
F568 EB ex de,hl 
F569 22 8D BO ld (BO8D),hl low end of used string space pointer 
F56C Cl pop be 
F56D DI pop de 
F56E C3 Bl D5 jp D5Bl reset all VARIABLE pointers to basic start 
@ EA97! 
F571l 2A 83 AE ld h1,(AE83) end of BASIC program pointer 
F574 22 85 AE ld (AE85),hl start of VAR table pointer 
F577 EB ex de,hl 
F578 19 add hl,de 
F579 22 87 AE ld (AE87),hl start of DIM’d VAR table pointer 
F57C 2A 8D BO ld hl, (BO8D) low end of used string space pointer 
F5S7F 23 inc hl 
F580 78 ld a,b 
F58l Bl or c 
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F582 C4 F2 FF call nz,FFF2 ldir 


F585 2B dec hl 
F586 22 8D BO ld (BO8D),hl low end of used string space pointer 
F589 EB ex de,hl 
F58A 22 89 AE ld (AE89),hl upper end nf DIM’d variables pointer 
F58D cC9 ret 
= reset BASIC STACK 
@ c183! F5C4! 
F5S8E F5 push af 
F58F E5 push hl 
F590 21 8B AE ld h1,AE8B start o£ BASIC STACK 
F593 22 8B BO ld (BO8B),hl BASIC STACK pointer 
F596 3E Ol ld a,0l 
F598 CD BO F5 call F5BO inc BASIC STACK pointer by <a>, (hl)=next lo 
F59B 36 00 ld (h1),00 
F5D EI pop hl 
F59E Fl pop af 
F59F CI ret 


— decrement BASIC STACK pointer by <a> 
@ C7B3! CF51l! D200! D23D! D831! D8BE! F8E7 FYOL! 


F5AO 2A 8B BO ld h1,(BO8B) BASIC STACK pointer 
F5A3 2F cpl 

F5A4  3C inc a 

F5A5 C8 ret z 

F5A6 85 add a,l 

F5A7 6F ld 1,a 

F5A8 3E FF ld a,FF 

F5AA 8C adc a,h 

F5AB 67 ld h,a 


—— set BASIC STACK pointer to <hl> 

@ C53B! C607! C628! C713! C753! C785! CAAA! D92F! D976! DA34! 
F5SAC 22 8B BO ld (BO8B),hl BASIC STACK pointer 
FSAF C9 ret 


— inc BASIC STACK pointer by <a>, (hl)=next loc, check ovfl 
@ C574! C6F9! C758! D86A! DY6L! DAL2! DA4E! DA6A! F598! FF59! 


F5B0O 2A 8B BO ld hl, (BO8B) BASIC STACK pointer 
F5B3 E5 push hl 
F5B4 85 add a,l 
F5B5 6F ld 1,a 
F5B6 8C adc a,h add <a> to <hl> 
F5B7 95 sub 1 
F5B8 67 ld h,a 
F5B9 22 8B BO ld (BO8B),hl BASIC STACK pointer 
F5BC 3E 78 ld a,78 <h1>+4F78 
FSBE 85 add a,l 
F5SBF 3E 4F ld a,4F check whether there is stll space for 
F5c1 8C adc a,h one more [FOR]-entry on the stack 
F5C2 EI pop hl 
F5C3 DO ret nc 
F5C4 CD 8E F5 call F58E reset BASIC STACK 
F5C7 cC3 3E F7 jp F73E Error: Memory full 
— set low string end up to himem 
@ CL8E! 
F5SCA 2A 8F BO ld hl, (BO8F) upper bound for string space pointer 
F5CD 22 8D BO ld (BO8D),hl low end of used string space pointer 
F5D0O C9 ret 
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allocate space for new string =(hl)low end 


<bc> is the complement of the size to alloca 


try allocate space for new string 


GARBAGE COLLECT 


try allocate space for new string 


String space full 
perform ERROR <e> routine 


upper end of DIM’d variables 
low end of used string space 
test HL=DE? (try hl-de) 


low end of used string space 


@ FCID! 

2F cpl 

4F ld c,a 

06 FF ld b,FF 

03 inc be 

CD E6 F5 call F5E6 
DO ret nc 

CD 3E FC call FC3E 

CD E6 F5 call F5E6 

DO ret nc 

lE OE ld e,0E 

c3 94 CA jp CA94 

try allocate space for new string 
@ F5D6! F5DD! 

2A 89 AE ld h1,(AE89) 
EB ex de,hl 

2A 8D BO ld hl, (BO8D) 
09 add hl,bc 
CD B8 FF call FFB8 
D8 ret c 

22 8D BO ld (BO8D),hl 
23 inc hl 

EB ex de,hl 

c9 ret 


allocate space for new variables 


@ D755! D89B! E6FO! 


2A 89 AE ld h1,(AE89) 
@ D8D9! 

c5 push bc 

D5 push de 

D5 push de 

E5 push hl 

cD 18 F6 call F618 
DA 3E F7 jp c,F73E 
El pop hl 

cl pop be 

D5 push de 

7D ld a,l 

9 sub c 

4F ld c,a 

7C ld a,h 

98 sbce a,b 

47 ld b,a 

2B dec hl 

1B dec de 

Bl orc 

C4 F5 FF call nz,FFF5 
El pop hl 

Dl pop de 

cl pop bc 

c9 ret 

add hl=hl+bc, check ovfl 
@ F5FF! 

09 add hl,bc 

D8 ret c 

EB ex de,hl 

cD 22 F6 call F622 

DO ret nc 

CD 3E FC call FC3E 
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upper end of DIM’d variables 


add hl=hl+bc, check ovfl 
Error: Memory full 


lddr 


pointer 


pointer 


pointer 


pointer 


get low end of string space, h1l=de? 


GARBAGE COLLECT 
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-—--- get low end of stri 


ng space, hl=de? 


@ F6lB! 
F622 2A 8D BO ld h1,(BO8D) low end of used string space pointer 
F625 C3 B8 FF jp FFB8 test HL=DE? (try hl-de) 
—---- space left between low string/upper DIM’d VAR 
@ FC38! 
F628 2A 89 AE ld h1,(AE89) upper end of DIM’d variables pointer 
F62B EB ex de,hl 
F62C 2A 8D BO ld h1,(BO8D) low end of used string space pointer 
F62F C3 CF FF jp FFCF HL=HL-DE 
----- allocate tape buffer for input 
@ D26D! 
F632 11 01 00 ld de,0001 <e>=mark for input 
F635 18 03 jr F63A 
— allocate a tape buffer for output 
@ D24B! D259! 
F637 11 02 08 ld de,0802 <e>=mark for output 
F63A C5 push bc 
F63B E5 push hl 
F63C 21 91 BO ld h1,B091 tape buffer flag 
F63F 7E ld a,(hl) 
F640 B7 or a 
F641 20 1D jr nz,F660 ... 
F643 D5 push de 
F644 ES push hl 
F645 21 00 10 ld h1,1000 size of buffer 2k 
F648 01 00 00 ld bc,0000 
F648B CD 43 F7 call F743 decrease HIMEM by <de>; below <bc>=error 
F64E 22 92 BO ld (BO92),hl pointer to tape buffer, lower end 
F65l EB ex de,hl 
F652 2A 7D AE ld h1,(AE7D) himem for SYMBOL AFTER pointer 
F655 22 94 BO ld (BO94),hl pointer to tape buffer, upper end 
F658 EB ex de,hl 
F659 22 7D AE ld (AE7D),hl himem for SYMBOL AFTER pointer 
F65C EI pop hl 
F65D DI pop de 
F65E 3E 04 ld a,04 „4, 
F660 B3 or e 
F661 77 ld (hl),a 
F662 2A 92 BO ld h1,(B092) pointer to tape buffer, lower end 
F665 23 inc hl 
F666 IE 00 ld e,00 
F668 19 add hl,de 
F669 EB ex de,hl 
F66A EI pop hl 
F66B CI pop bc 
F66C C9 ret 
— release tape input buffer 
@ D29C! D2B3! 
F66D 3E FE ld a,FE mark input buffer 
F66F 18 06 jr F677 
-— release tape output buffer 
@ D251! D2A8! D2B9! 
F671 3E FD ld a,FD mark output buffer 
F673 18 02 jr F677 
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F673 


release buffer 


mark any buffer 


tape buffer flag 
test buffer type 


=4. 


pointer to tape buffer, lower end 


size of 


reset 


buffer 


tape buffer flag 
pointer to tape buffer, upper end 
himem for SYMBOL AFTER pointer 


SYMBOL <symbol#>,<list of<parameter>> 


[AFTER] 


command: SYMBOL AFTER <first symbol#> 
get byte VAL (expression) in <de> 


CHRNEXT <a>, nz=Error; CHRGET 


count 8 arguments 
get byte VAL(expression) in <de> 
save arguments on stack 


all done 
CHRBACK comma?; if=:CHRGET <a>, scf 
next argument 


replace missing arguments by 0 


TXT GET char <a> MATRIX, 


Error: 
count 


add 8 for later decrement 


Improper argument 


get argument from stack 


store as user matrix byte 


next argument 


symbol#> 
CHRGET <a>, skip blank, cp Ol 
get integer VAL (expression) in <de> 


maximum VAL 
test HL=DE? (try hl-de) 


Error: 


@ FAF9! F6F7! 

3E FF ld a,FF 

c5 push bc 

D5 push de 

E5 push hl 

21 91 BO ld h1,B091 
A6 and (hl) 
77 ld (hl),a 
FE 04 cp 04 

20 16 jr nz,F699 
2A 92 BO ld h1,(B092) 
EB ex de,hl 
21 00 10 ld h1,1000 
CD 2E F7 call F72E 
20 0A jr nz,F699 
AF xor a 

32 91 BO ld (BO91L),a 
2A 94 BO ld h1,(B094) 
22 7D AE ld (AE7D),hl 
El pop hl 

Dl pop de 

cl pop bc 

c9 ret 

command: 

@ DE9IF 

FE 80 cp 80 

28 2C jr z,F6CD 

CD 67 CE call CE67 

4F ld c,a 

cD 37 DD call DD37 

2C ei 

06 08 ld b,08 

CD 67 CE call CE67 

F5 push af 

05 dec b 

28 08 jr z,F6BA 
cD 55 DD call DD55 

38 F4 jr c,F6AB 

AF xor a 

18 F4 jr F6AE 

EB ex de,hl 

79 ld a,c 

CD A5 BB call BBA5 

30 68 jr nc,F729 
01 08 00 ld bc,0008 
09 add hl,bc 

Fl pop af 

2B dec hl 

77 ld (hl),a 

OD dec c 

20 FA jr nz,F6C5 

EB ex de,hl 

c9 ret 

command: SYMBOL AFTER <first 
CD 3F DD call DD3F 

CD 86 CE call CE86 

E5 push hl 

21 00 01 ld h1,0100 
CD B8 FF call FFB8 

38 4D jr c,F729 

D5 push de 
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Improper argument 


(hl)=address, carry 
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F6DD CD AE BB call BBAE TXT GET user MATRIX TABLE (hl)=addr, <a>=fir 
F6EO EB ex de,hl 

F6El 30 1D jr nc,F700 ... 

F6E3 2F cpl 

F6E4 6F ld 1,a 

F6E5 26 00 ld h,00 

F6E7 23 inc hl 

F6E8 29 add hl,hl 

F6E9 29 add hl,hl 

F6EA 29 add hl,hl *% 8 bytes per symbol 
F6EB 1B dec de 

F6EC CD 2E F7 call F72E ... 

F6EF 20 38 jr nz,F729 Error: Improper argument 


F6Fl 2A 96 BO 
F6F4 22 7D AE 


ld h1,(B096) 
1d (AE7D),hl 


himem for SYMBOL AFTER (SYS) 
himem for SYMBOL AFTER pointer 


F6F7 CD 75 F6 call F675 release buffer 

F6FA 11 00 Ol ld de,0100 ... 

F6FD CD AB BB call BBAB TXT SET user MATRIX TABLE addr (de), (hl)=ne 
F700 DI pop de 

F7OL CD 06 F7 call F706 set SYMBOL AFTER <de> 

F704 El pop hl 

F705 cC9 ret 


— set SYMBOL AFTER <de> 
@ CO3A! F7OL! 


F706 AF xor a =0 

F707 93 sub e 

F708 6F ld 1,a 

F709 3E Ol ld a,0l <1>=0-<e> 

F70B 9A sbc a,d 

F70C 67 ld h,a <h>=1-<d>-carry 

F70D B5 or 1 

F70E C8 ret z nothing to do 

F7OF D5 push de 

F710 29 add hl,hl *2 

F7Il 29 add hl,hl *%4 

F712 29 add hl,hl *8 bytes per symbol 

F713 01 00 40 ld bc,4000 symbol image source, upper end 
F716 CD 43 F7 call F743 decrease HIMEM by <de>; below <bc>=error 
F719 EB ex de,hl 

F7TIA 2A 7D AE ld h1,(AE7D) himem for SYMBOL AFTER pointer 
F71D 22 96 BO ld (BO96),hl himem for SYMBOL AFTER (SYS) 
F720 EB ex de,hl 

F721l 22 7D AE ld (AE7D),hl himem for SYMBOL AFTER pointer 
F724 DI pop de 

F725 23 inc hl 

F726 C3 AB BB jp BBAB TXT SET user MATRIX TABLE addr (de), (hl)=ne 


ne Error: Improper argument 


F729 IE 05 ld e,05 Improper argument 

F72B C3 94 CA jp CA94 perform ERROR <e> routine 
@ F68A! F6EC! 

F72E E5 push hl 

F72F 2A 7B AE ld hl, (AE7B) himem for Basic pointer 

F732 CD B8 FF call FFB8 test HL=DE? (try hl-de) 

F735 EI pop hl 

F736 CO ret nz 

F737 19 add hl,de 

F738 22 7D AE ld (AE7D),hl himem for SYMBOL AFTER pointer 

F73B EB ex de,hl 

F73C 18 12 jr F750 
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F73C 


Error: Memory full 


@ F5SlIA F5C7 F602 F74D’ F75A’ F763° F769° 


1E 07 ld e,07 
c3 94 CA  jp CA94 


Memory full 
perform ERROR <e> routine 


decrease HIMEM by <de>; below <bc>=error 


@ F64B! F716! 

EB ex de,hl 

2A 7B AE ld h1,(AE7B) 
CD CF FF call FFCF 
CD BE FF call FFBE 
38 EF jr c,F73E 

EB ex de,hl 


@ F4F6! F73C’ 
CD 3E FC call FC3E 


D5 push de 

2A 7D AE ld hl, (AE7D) 
CD B8 FF call FFB3 

38 E2 jr c,F73E 

CD 1D F5 call F51D 

2A 89 AE ld hl, (AE89) 
09 add hl,bc 

38 DI jr c,F73E 

2B dec hl 

CD B8 FF call FFB8 

30 D3 jr nc,F73E 
2A 7B AE ld hl, (AE7B) 
EB ex de,hl 

CD CF FF call FFCF 

22 98 BO ld (B098),hl 
ll BB F7 ld de,F7BB 
CD 74 DA call DA74 
ED 4B 98 BO 1d bc, (B098) 
78 ld a,b 

07 rlca 

38 16 jr c,F799 

Bl or c 

28 2F jr z,F7B5 

2A 8F BO ld h1,(BO8F) 
54 ld d,h 

5D ld e,l1 

09 add hl,bc 

E5 push hl 

cD 1D F5 call F51D 
EB ex de,hl 

78 ld a,b 

Bl or c 

C4 F5 FF call nz,FFF5 
El pop hl 

18 15 jr F7AE 

2A 8D BO ld h1,(BO8D) 
54 ld d,h 

5D ld e,l 

09 add hl,bc 

E5 push hl 

CD 1D F5 call F51D 
EB ex de,hl 

23 inc hl 

13 inc de 

78 ld a,b 

Bl or c 

C4 F2 FF call nz,FFF2 
EB ex de,hi 
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himem for Basic pointer 
HL=HL-DE 

test HL=BC? (try hl-bc) 
Error: Memory full 


GARBAGE COLLECT 


himem for SYMBOL AFTER pointer 

test HL=DE? (try hl-de) 

Error: Memory full 

<bc>= space occupied by strings 
upper end of DIM’d variables pointer 


Error: Memory full 

test HL=DE? (try hl-de) 
Error: Memory full 
himem for Basic pointer 
HL=HL-DE 

used by GARBAGE COLLECT 


... 
... 


used by GARBAGE COLLECT 


... 


upper bound for string space pointer 


<bce>= space occupied by strings 


lddr 


low end of used string space pointer 


<bce>= space occupied by strings 


ldir 
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F7AC 2B dec hl 


F7AD DL pop de 
F7AE 22 8F BO ld (BO8F),hl upper bound for string space pointer 
F7Bl EB ex de,hl 
F7B2 22 8D BO ld (BO8D),h1 low end of used string space pointer 
F7B5S El pop hl 
F7B6 22 7B AE ld (AE7B),hl himem for Basic pointer 
F7B9I AF xor a 
FTBA C9 ret 
@ F775 
F7BB 2A 83 AE ld h1,(AE83) end of BASIC program pointer 
F7BE CD BE FF call FFBE test HL=BC? (try hl-bc) 
F7Cl DO ret nc 
F7C2 2A 98 BO ld h1,(B098) used by GARBAGE COLLECT 
F7C5 09 add hl,bc 
F7C6 EB ex de,hl 
F7C7 72 ld (hl),d 
F7C8 2B dec hl 
F7C9 73 ld (hl),e 
FICA C9 ret 


sea [+]"text"; calculate len; copy temp to stack 
@ CFDA DB95! DC31 


F7CB 23 inc hl 

FICC CD FI F7 call F7F9 caller first! Copy temp to stack 

FICF TE ld a,(hl) 

F7DO FE 22 cp 22 En 

F7D2 CA 3F DD jp z,DD3F CHRGET <a>, skip blank, cp Ol 

F7D5 B7 or a is it a zero byte? 

F7D6 28 37 jr z,F80F test previous <b> char’s for SP,HT,CR,LF 
F7D8 04 inc b 

F7D9 23 inc hl 

F7TDA 18 F3 jr F’ICF get next char 


—— test len of string; copy temp to stack 
@ DBOE! DC29 F240! F49L! 


F7DC CD F9 F7 call F7F9 caller first! Copy temp to stack 
FIDF 7E ld a,(hl) 
FTEO B7 or a is it a zero byte? 
FIEL CB ret z 
F7E2 23 inc hl 
F7E3 04 inc b inc len count 
F7E4 18 F9 jr F7DF next char 
— eliminate superfluous char’s at string end 
@ DC35 
F7E6 CD F9 F7 call F7F9 caller first! Copy temp to stack 
F7EI 4F ld c,a 
FTEA TE ld a,(hl) 
FTEB B7 or a 
FIEC 28 21 jr z,F80F test previous <b> char’s for SP,HT,CR,LF 
F7EE B9I cp c 
FIEF 28 1E jr z,F80F test previous <b> char’s for SP,HT,CR,LF 
F7FL FE 2C cp 2C Fr 
F7F3 28 1A jr z,F80F test previous <b> char’s for SP,HT,CR,LF 
F7F5 23 inc hl 
F7F6 04 inc b 
FIF7 18 Fl jr F7EA test next rhar 


—— caller first! Copy temp to stack 
@ F7CC! F7DC! F7E6! 


F7F9 DI pop de get return address 
F7FA E5 push hl 
F7FB 06 00 ld b,00 initial string len count 
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F7FD CD FB FF call FFFB jp(de); do calling routine first, return her 
F800 DL pop de 


F801 ES push hl 

F802 21 BA BO ld h1,BOBA temporary string descriptor 

F805 70 ld (h1),b =len 

F806 23 inc hl 

F807 73 ld (hl),e 

F808 23 inc hl =address 

F809 72 ld (h1l),d 

F80A CD BA FB call FBBA copy string descr to string stack, check ovf 
F80D EL pop hl 

F80E C9 ret 


_— test previous <b> char’s for SP,HT,CR,LF 
@ F7D6° F7EC’ F7EF’ F7F3’ 


F8OF ES push hl 

F810 04 inc b 

F8ll 05 dec b 

F81l2 28 12 jr z,F826 all done 
F81l4 2B dec hl 

F815 7E ld a,(hl) 

F816 FE 20 cp 20 "SPACE 
F818 28 F7 jr z,F8ll 

F8lA FE 09 cp 09 HT CI 
FölCc 28 F3 jr z,F8ll 

FölE FE OD cp OD CR (CM) 
F820 28 EF jr z,F8ll 

F822 FE OA cp 0A ’LF (°%) 
F824 28 EB jr z,F8ll 

F826 EI pop hl 

F827 cC9 ret 


— print this line 
@ DBIC! F253! F392! F494! F4IE! 


F828 CD DA FB call FBDA try to release string (FAC); <a>=len, z=zero 
F82B C8 ret z 
F82C 1A ld a,(de) 
F82D 13 inc de 
F82E CD 6E C3 call C36E output char <a> to channel 
F83l 10 F9 djnz F82C next char 
F833 C9I ret 
— function: LOWER$ (<string expression>) 
@ D1DO 
F834 01 39 F8 ld bc,F839 change <a> to lower case 
F837 18 0C jr F845 
— change <a> to lower case 
@ F834: 
F839 FE 4l cp 41 A 
F83B D8 retc 
F83C FE 5B cp 5B “{ 
F83E DO ret nc 
F83F C6 20 add a,20 "SPACE 
F841 C9 ret 
— function: UPPER$(<string expression>) 
@ DIE6 
F842 O1 8A FF ld bce,FF8A change <a> to upper case 
F845 C5 push bc 
F846 2A C2 BO ld h1,(BOC2) Floating point ACU, FAC 
F849 TE ld a,(hl) 
F84A CD 19 FC call FC19 allocate new string (ed), set VAR pointer to 
F84D D5 push de 
F84E CD DA FB call FBDA try to release string (FAC); <a>=1len, z=zero 
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----- append string (hl) to string 


F9 


FF 


@ CF2B! 


F863 ES 
F864 TE 
F865 2A 
F868 86 
F869 IE 
F86B DA 


c2 


OF 
94 
19 


DA 


E8 


8B 


8B 
BA 


BO 


FB 


FB 


F8 


F8 
FB 


pop hl 
pop bc 
inc a 
dec a 
jp z,FBBA 
push af 
ld a,(de) 
inc de 
call FFF9 
ld (hl),a 
inc hl 
pop af 
jr F854 


push hl 
ld a,(hl) 
ld h1,(BOC2) 
add a,(hl) 
ld e,OF 
jp c,CA94 
call FC19 
pop hl 
push de 
push hl 
call FBDA 
ld c,b 
ex de,hl 
ex (sp),hl 
call FBE8 
pop hl 
ex (sp),hl 
ld a,b 
call F88B 
pop de 
ld a,c 
call F88B 
jp FBBA 


copy string descr to string stack, check ovf 


jp(be) 


next 


(FAC) 


Floating point ACU, FAC 


String too long 
perform ERROR <e> routine 
allocate new string (ed), set VAR pointer to 


try to release string (FAC); <a>=len, z=zero 


try to release string at low end of string s 


copy <a> bytes from (de) to (hl) 


copy <a> bytes from (de) to (hl) 
copy string descr to string stack, check ovf 


.- copy <a> bytes from (de) to (hl) 
@ F880! F885! 


F88B C5 


push bc 

ex de,hl 

ld c,a 

ld b,00 

or a 

call nz,FFF2 
ex de,hl 

pop bc 

ret 


reset upper byte 


ldir 


u compare string (hl) with string (de) 
@ CF78! 


DA 


E8 


FB 


FB 


push hl 
call FBDA 
ld c,b 

pop hl 

push de 
call FBE8 

pop hl 

ld a,b 

or c 

ret z 

ld a,c 
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try to release string (FAC); <a>=1len, z=zero 


try to release string at low end of string s 


both strings zero len; equal 
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F8A6 B7 or a 


F8A7 28 0C jr z,F8B5 string (hl) zero len; not equal 
F8A9 78 ld a,b 
F8AA B7 ora 
F8AB 28 09 jr z,F8B6 string (de) zero len; it’s the smaller one 
F8AD 05 dec b 
FSAE OD dec c 
F8AF 1A ld a,(de) 
F8B0 13 inc de 
F8Bl BE cp (hl) compare two string bytes 
F8B2 23 inc hl 
F8B3 28 ED jr z,F8A2 equal, check len now and continue 
F8B5 3F ccf 
F8B6 9F sbc a,a 
F8B7 CO ret nz 
F8B8 3C inc a 
F8B9 C9 ret 
.-- function: BIN$(<unsigned integer>[,<digits>]) 
@ D190 
F8BA CD CE F3 call F8CE get (EXPRESSION) and next arg in b 
F8BD D5 push de 
FSBE CD 14 Fl call Fl14 edit value in binary representation 
F8Cl EB ex de,hl 
F8C2 18 5E jr F922 allocate new string; copy (hl) to new (de) 
----- function: HEX$(<unsigned integer>[,‚<digits>]) 
@ D194 
F8C4 CD CE F8 call FSCE get (EXPRESSION) and next arg in b 
F8C7 D5 push de 
F8C8 CD 19 Fl call Fl19 edit value in HEX representation 
F8CB EB ex de,hl 
FSCC 18 54 jr F922 allocate new string; copy (hl) to new (de) 


--- get (EXPRESSION) and next arg in b 
@ FSBA! F8C4! 


FSCE CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
F8Dl CD 53 FF call FF53 get VARTYPE, copy FAC to BASIC STACK 
F8D4 CD 55 DD call DD55 CHRBACK comma?; if=:CHRGET <a>, scf 
F8D7 9F sbc a,a 
F8D8 DC 67 CE call c,CE67 get byte VAl. (expression) in <de> 
F8DB FE ll cp 11 max # of digits =16. 
F8DD D2 9C FA jp nc,FA9C Error: improper argument 
F8EO 47 ld b,a b= # of digits to edit 
F8ElL CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
F8E4 29 >) 
F8E5S EB ex de,hl 
F8E6 79 ld a,c 
F8E7 C3 AO F5 jp F5AO decrement BASIC STACK pointer by <a> 
-_- function: DEC$(<num VAR>,<string VAR>) 

@ D192 
F8EA CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
F8ED 28 « 
F8EE CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
F8Fl CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
F8F4 2C er 
F8F5 CD 53 FF call FF53 get VARTYPE, copy FAC to BASIC STACK 
F8F8 CD 9F CE call CE9IF evaluate evpression, release string again 
FöFB CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
F8FE 29 2) 
F8öFF ES push hl 
F900 79 ld a,c 
F901L CD AO F5 call F5AO decrement BASIC STACK pointer by <a> 
F904 D5 push de 
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CD 4B FF 


C4 BA F3 


30 0A 


20 06 


CD 9F EE 
18 07 


Error: 
c3 9C FA 


ld a,c 
call FF4B 
pop de 
ld a,b 
or a 
call nz,F3BA 
jr nc,F91B 
ld a,b 
or a 
jr nz,F91B 
ld a,c 
call EE9IF 
jr F922 


Improper argument 


jp FA9C 


set VARTYPE <a>, copy VARIABLE (hl) to FAC 


Error: Improper argument 
Error: Improper argument 


allocate new string; copy (hl) to new (de) 


Error: improper argument 


function: STR$(<numeric expression>) 


@ DIEO 
E5 
CD 9D EE 


push hl 
call EE9D 


..o 


allocate new string; copy (hl) to new (de) 
@ F8C2° F&CC’ F919’ 


E5 
Ol FF FF 


20 FA 


CD 19 FC 


C4 F2 FF 


CD BA FB 


push hl 
ld bce,FFFF 
inc bc 
ld a,(hl) 
inc hl 
or a 
jr nz,F926 
ld a,c 
call FC19 
pop hl 
ora 
push de 
call nz,FFF2 
pop de 
call FBBA 
pop hl 
ret 


initial len count = -1 


check len of string to copy 
string not terminated, check next byte 


allocate new string (ed), set VAR pointer to 


ldir 


copy string descr to string stack, check ovf 


function: LEFT$(<string expression>,<len>) 


@ D198 
CD EI F9 
0E 00 
18 2A 


call F9E9I 
ld c,00 
jr F96D 


get string expression (de) and byte <a> 


function: RIGHT$(<string expression>,<len>) 


@ DIAO 


call F9E9I 
ld a,(de) 
sub b 

ld c,a 

jr F96D 


get string expression (de) and byte <a> 


function: MID$(<string expression>,<position>[,<len>]) 


@ D007 
CD 37 DD 
28 

CD EI F9 
78 


call DD37 
« 

call F9E9I 
ld a,b 
ora 

jp z,FA9IC 
dec b 
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CHRNEXT <a>, nz=Error; CHRGET 


get string expression (de) and byte <a> 


Error: improper argument 
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CD FB 


06 00 
38 05 


38 01 


CD 37 


F9 


DD 


@ F383F! 


E5 
EB 
TE 
B8 
78 
30 03 


c4 F2 
CD BA 


FC 


FB 


FF 
FB 


command: 
@ DE59 


cD 37 
28 

CD 86 
cD 3C 
cD 21 
cD 37 
CD 6D 
CD FB 


cD 37 


CD 37 


346 


DD 


D6 


FF 


FB 


DD 


CE 


F9 


DD 


DD 
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ld c,b 
push de 
push bc 
call F9FB 
pop be 
ex (sp),hl 
ld a,(hl) 
sub c 


pop hl 
call DD37 
) 


push af 
call FC19 
push de 
call FBE8 
ex de,hl 
pop de 
ld b,00 
add hl,bc 
pop af 
ld c,a 
or a 
call nz,FFF2 
call FBBA 
pop hl 
ret 


call DD37 
« 
call D686 
call FF3C 
push hl 
ex de,hl 
call FB21 
ex (sp),hl 
call DD37 


’ 
call CE6D 
ld b,a 
call FY9FB 
ld c,e 
call DD37 


call DD37 
[=] 
push be 


"NUL 


CHRNEXT <a>, nz=Error; CHRGET 


allocate new string (ed), set VAR pointer to 


try to release string at low end of string s 


ldir 
copy string descr to string stack, check ovf 


MID$(<stringvar>,<startpos>,<len>)=<string expression» 


CHRNEXT <a>, nz=Error; CHRGET 
get address of VARIABLE or subscript 


test VARTYPE for string, else error 


CHRNEXT <a>, nz=Error; CHRGET 
<a>=next VAL, O=error 
CHRNEXT <a>, nz=Error; CHRGET 


CHRNEXT <a>, nz=Error; CHRGET 
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FIEL 06 
F9E3 B7 
FI9EL CA 
F9E7 EL 
FIES CI 


9F CE 


ol 


00 


F2 FF 


call CE9IF 
ld a,b 
pop bc 
ex (sp),hl 
inc c 
dec c 
jr z,F9E7 
push af 

ld a,(hl) 
sub b 

jp e,FA9IC 
inc a 

cp c 

jr c,F9cD 
ld a,c 

ld c,a 

ld a,b 
dec a 

inc hl 


add a,(hl) 


inc hl 
ld h,(hl) 


or a 


call nz,FFF2 


pop hl 
ret 


evaluate expression, release string again 


Error: improper argument 


ldir 


---- get string expression (de) and byte <a> 
@ F93C! F943! FY4F! 


F9E9 CD A5 CE call CEA5 
F9EC CD 37 DD call DD37 
FIEF 2C e 
F9FO E5 push hl 
F9FlL 2A C2 BO ld h1,(BOC2) 
F9F4 E3 ex (sp),hl 
F9F5 CD 67 CE call CE67 
FY9F8 47 ld b,a 
F9F9 DL pop de 
F9FA CI ret 

@ F95B! FYAB! 
FIYFB IE FF ld e,FF 
FI9FD TE ld a,(hl) 
F9FE FE 29 cp 29 
FAOO C8 ret z 
FAOlL CD 37 DD call DD37 
FAO4  2C , 
FAO5S CD 67 CE call CE67 
FAO8 5F ld e,a 
FAOI CI ret 
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evaluate (string expression) 
CHRNEXT <a>, nz=Error; CHRGET 
Floating point ACU, FAC 


get byte VAL(expression) in <de> 


=255. 
) 
CHRNEXT <a>, nz=Error; CHRGET 


get byte VAL(expression) in <de> 
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FA0O9I 


function: LEN(<string expression>) 
@ DICA 

CD DA FB 
Cc3 OA FF 


call FBDA 
jp FFOA 


try to release string (FAC); <a>=len, z=zero 
set FAC to <a> and mark integer 


function: ASC(<string expression>) 


@ D1BO 


cD 70 FA 
C3 0A FF 


function: CHR$(<byte value>) 
@ DI1B4 


CD 92 FA 


@ FA2D’ 


12 


C3 BA FB 


function: 


C3 BA FB 


call FA70 
jp FFOA 


call FA92 


push af 
ld a,0l 
call FC19 
pop af 
ld (de),a 
jp FBBA 


INKEY$ 


push hl 
call FA2A 
pop hl 

ret 


call C439 
jr c,FAl9 
xor a 


ld (BOBA),a 


jp FBBA 


set FAC to <a> and mark integer 


convert FAC to 1 byte in <A> 


"SOH (TA) 
allocate new string (ed), set VAR pointer to 


copy string descr to string stack, check ovf 


... 


jp KM read char from keyboard 


temporary string descriptor 
copy string descr to string stack, check ovf 


function: STRING$(<repeat>,<character>) 
@ D1A4 


CD 


67 
37 
FB 
37 


45 
05 
92 
03 


70 


07 


CE 


DD 


CE 


DD 


FF 


FA 


FA 


call CE67 
ld c,a 
call DD37 


’ 
call CEFB 
call DD37 
*) 
push hl 
call FF45 
jr z,FA50 
call FA92 
jr FA53 


call FA70 
ld b,c 

ld c,a 

jr FASE 


get byte VAL (expression) in <de> 
CHRNEXT <a», nz=Error; CHRGET 
evaluate (expression), CHRGET, cp Ol 
CHRNEXT <a>, nz=Error; CHRGET 

get VARTYPE <a>; cp string 


convert FAC to 1 byte in <A> 


function: SPACE$(<# of spaces>) 


@ DIDA 
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call FA92 
ld b,a 
ld c,20 
push hl 
ld a,b 
call FC19 
inc b 


convert FAC to 1 byte in <A> 


"SPACE 


allocate new string (ed), set VAR pointer to 
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05 dec b 

28 05 jr z,FA6B ... 

79 ld a,c 

12 ld (de),a 

13 inc de 

18 F8 jr FA63 ... 

CD BA FB call FBBA copy string descr to string stack, check ovf 
El pop hl 

c9 ret 


@ FALO! FASO! 


CD DA FB call FBDA try to release string (FAC); <a>=1len, z=zero 
28 27 jr z,FA9IC Error: improper argument 

1A ld a,(de) 

c9 ret 


function: VAL (<string expression>) 


@ DIES 

CD DA FB call FBDA try to release string (FAC); <a>=1len, z=zero 
CA OA FF jp z,FFOA set FAC to <a> and mark integer 
EB ex de,hl 

E5 push hl 

5F ld e,a 

16 00 ld d,00 

19 add hl,de 

5E ld e,(hl) 

72 ld (hl),d 

E3 ex (sp);,hl 

D5 push de 

CD A3 EC call ECA3 get either HEX or integer VAL 
Dl pop de 

El pop hl 

73 ld (hl),e 

D8 ret c 

lE OD ld e,O0D Type mismatch 

18 0C jr FA9E error message, READY 


convert FAC to 1 byte in <A> 
@ FAl6! FA4B! FA57! FAAB! 


E5 push hl 

CD 8D FE call FE8D function: CINT(<num expression>) in <hl> 
EB ex de,hl 

El pop hl 

7A ld a,d 

B7 or a 

7B ld a,e 

c8 ret z 


Error: improper argument 
lE 05 ld e,05 Improper argument 


error message, READY 
c3 94 CA jp CA94 perform ERROR <e> routine 


function: INSTR([<start >,]<string expr>,<searched string?) 
@ D196 


CD FB CE call CEFB evaluate (expression), CHRGET, cp Ol 
CD 45 FF call FF45 get VARTYPE <a>; cp string 

0E O1 ld c,01 default <start> 

28 OF jr z,FABA argument not present 

CD 92 FA call FA92 convert FAC to 1 byte in <A> 

B7 or a is it zero? that’s an error 

CA 9C FA jp z,FA9C Error: improper argument 

4F ld c,a 
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FAB3 CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 


’ 

FAB7 CD A5 CE call CEA5 evaluate (string expression) 
FABA CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
FABD 2C e, 
FABE ES push hl 
FABF 2A C2 BO ld hl, (BOC2) Floating point ACU, FAC 
FAC2 E3 ex (sp),hl 
FAC3 CD 9F CE call CE9F evaluate expression, release string again 
FAC6 CD 37 DD call DD37 CHRNEXT <a>, nz=Error; CHRGET 
FAC9 29 ) 
FACA E3 ex (sp),hl 
FACB 79 ld a,c 
FACC CD D4 FA call FAD4 ... 
FACF CD 0A FF call FFOA set FAC to <a> and mark integer 
FAD2 EI pop hl 
FAD3 C9I ret 

@ FACC! 
FAD4 F5 push af 
FAD5S 48 ld c,b 
FAD6 D5 push de 
FAD7 CD E8 FB call FBE8& try to release string at low end of string s 
FADA EI pop hl 
FADB Fl pop af 
FADC E5 push hl 
FADD 6F ld 1,a 
FADE 60 ld h,b 
FADF 78 ld a,b 
FAEO BD cp 1 
FAEl 38 2D jr <,FBlO ... 
FAE3 2D dec 1 
FAE4 MD ld a,1 
FAE5 83 add a,e 
FAE6 5F ld e,a 
FAE7 8A adc a,d 
FAE8 93 sub e 
FAE9 57 ld d,a 
FAEA 78 ld a,b 
FAEB 95 sub 1 
FAEC 47 ld b,a 
FAED 79 ld a,c 
FAEE D6 Ol sub Ol 
FAFO 7D ld a,l 
FAFl 3C inc a 
FAF2 38 1D jr c,FBll us 
FAF4 E3 ex (sp),hl 
FAF5S C5 push bc 
FAF6 D5 push de 
FAF7 E5 push hl 
FAF8 1A ld a,(de) 
FAF9 BE cp (hl) 
FAFA 20 0D jr nz,FBO9 ... 
FAFC 23 inc hl 
FAFD OD dec c 
FAFE 28 13 jr z,FBl3 SE 
FBOO 13 inc de 
FBOl 05 dec b 
FBO2 20 F4 jr nz,FAF& ... 
FBO4 EI pop hl 
FBOS DI pop de 
FBO6 Ci pop bc 
FBO7 18 07 jr FBlO ... 
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FBOE 20 E5 


@ EAG6E! 
FBlB 11 2E FB 
FBIE C3 74 DA 


@ FYIF! 
FB2l ES 


FB29 C4 2E FB 


pop hl 
pop de 
pop bc 
inc de 
dec b 
jr nz,FAF5 
xor a 
pop de 
ret 


pop hl 
pop de 
pop bc 
pop hl 
ld a,h 
sub b 
inc a 
ret 


1d de,FB2E 
jp DA74 


push hl 
ld a,(hl) 
inc hl 
ld c,(hl) 
inc hl 
ld b,(hl) 
ex de,hl 
or a 
call nz,FB2E 
pop hl 
ret 


@ FBlB: FB29! 


FB2E 2A 8D BO 


FB4l CD 8F FB 


FB46 C3 A6 FB 


@ D188! 
FB49 2A C2 BO 
FB4C 11 BA BO 
FB4F CD B8 FF 
FB52 D8 
FB53 CD 8F FB 
FB56 C3 BA FB 


— release string, allocate new 


@ D676! 
FB5S9 2A C2 BO 
FB5SC E5 
FB5D 7E 


ld hl, (BO8D) 

call FFBE 

jr nc,FB3D 
ld h1,(BO8F) 
call FFBE 
ret nc 

ex de,hl 

dec hl 

dec hl 

push hl 
call FB8F 
ex de,hl 

pop hl 

jp FBA6 


ld h1,(BOC2) 
ld de,BOBA 
call FFB8 
ret c 

call FB8F 
jp FBBA 


ld h1,(BOC2) 
push hl 
ld a,(hl) 
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low end of used string space pointer 
test HL=BC? (try hl-bc) 


upper bound for string space pointer 
test HL=BC? (try hl-bc) 


allocate string and copy it from (FAC) 


copy string descriptor (de) to (hl) 


Floating point ACU, FAC 
temporary string descriptor 
test HL=DE? (try hl-de) 


allocate string and copy it from (FAC) 
copy string descr to string stack, check ovf 


one, copy string from (FAC) 
Floating point ACU, FAC 
len of string 
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FBB2 


El 


26 


FF 


FB 


CD FF FB 


or a 
jr z,FB87 
inc hl 
ld e,(hl) 
inc hl 
ld d,(hl) 

ld h1,(AE81) 
call FFB8 

jr nc,FB8B 
ld hl,(BO8F) 
call FFB8 

jr c,FB8B 

ld h1,(AE83) 
call FFB3 

jr nc,FB87 
pop hl 

push hl 
ld de,BOIC 
call FFB8 
jr nz,FB8B 

pop hl 

jp FBFF 


pop hl 
call FBFF 


zero len, do nothing here 


(ed)=string address 


start of BASIC program -1 pointer 
test HL=DE? (try hl-de) 

string below Basic program 

upper bound for string space pointer 
test HL=DE? (try hl-de) 

string outside string space 

end of BASIC program pointer 

test HL=DE? (try hl-de) 

string within Basic program 


string stack 
test HL=DE? (try hl-de) 
string not on string stack 


try delete string from string stack 


try delete string from string stack 


allocate string and copy it from (FAC) 
@ FB4l! FB53! 


allocate new string (ed), set VAR pointer to 


clear most significant byte for ldir 


(hl)=string address 
=0 
=len 


ldir 


temporary string descriptor 


7E ld a,(hl) 
CD 19 FC call FC19 
D5 push de 

4E ld c,(hl) 
06 00 ld b,00 
23 inc hl 

7E ld a,(hl) 
23 inc hl 

66 ld h, (hl) 
6F ld 1,a 

78 ld a,b 

Bl or c 

C4 F2 FF call nz,FFF2 
Dl pop de 

21 RA BO ld h1,BOBA 
c9 ret 

copy string descriptor (de) to (hl) 
@ FB46 FBD3! 

1A ld a,(de) 
13 inc de 

27 ld (hl),a 
23 inc hl 

1A ld a,(de) 
13 inc de 

77 ld (h1l),a 
23 inc hl 

1A ld a,(de) 
13 inc de 

72 ld (hl),a 
23 inc hl 

c9 ret 
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huslik, cpc464 inside out 


reset string stack 
@ Cc162! CAAD! 


21 9C BO 
22 9A BO 
c9 


ld h1,BO9C 
ld (BO9A),hl 
ret 


string stack 
pointer to start of string stack 


copy string descr to string stack, check ovfl 


@ F80A! 


F855 F888 F937! FYBE! FA2I1 


ld a,03 

ld (BOC1l),a 
ld hl, (BO9A) 
ld (BOC2),hl 
ld de,BOBA 
call FFB8 

ld e,10 

jp z,CA94 

ld de,BOBA 
call FBA6 

ld (BO9A),hl 
ret 


FA33 FA6B! FB56 
<string VAR$> 

VARTYPE 

pointer to start of string stack 
Floating point ACU, FAC 

=end of string stack 

test HL=DE? (try hl-de) 

String expression too complex 
perform ERROR <e> routine 
temporary string descriptor 

copy string descriptor (de) to (hl) 
pointer to start of string stack 


try to release string (FAC); <a>=len, z=zero len 
@ CEA2 DBAO! DBE2! F828! F84E! F874! F898! FAOA! FA70! FA77! FC32! 


ES 
CD 3C FF 
2A C2 BO 
CD Ed FB 
El 


push hl 
call FF3C 
ld h1,(BOC2) 
call FBE8 
pop hl 
ld a,b 
ora 
ret 


test VARTYPE for string, else error 
Floating point ACU, FAC 
try to release string at low end of string s 


len of string 


try to release string at low end of string space 
@ F3lF! F87A! F89E! F980! FAD7! FBEI! 


CD FF FB 


2A 8D BO 
CD B8 FF 
20 07 
16 00 


22 8D BO 


call FBFF 
ret nz 
push de 

dec de 

ld h1,(BO8D) 
call FFB8 

jr nz,FBFD 
ld e,b 

ld d,00 

add hl,de 

ld (BO8D),hl 
pop de 

ret 


try delete string from string stack 


low end of used string space pointer 
test HL=DE? (try hl-de) 
string not the last created string 


<de>=len of string 
adjust pointer to lower end to upper end 
low end of used string space pointer 


try delete string from string stack 
@ FB88 FB8C! FBES! 


CD B8 FF 
20 03 


push hl 
ld b,(hl) 
inc hl 
ld a,(hl) 


ld h,(hl) 

ld l1,a 

ex (sp),hl 
ex de,hl 

ld h1,(BO9A) 
dec hl 

dec hl 

dec hl 

call FFB8 

jr nz,FC16 
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b=len 


hl = string address 


pointer to start of string stack 


test HL=DE? (try hl-de) 
string was not on string stack 


MISCELLANEOUS ROUTINES 353 FCIl 


22 


9A BO 


ld (BO9A),hl 
ex de,hl 

pop de 

ret 


pointer to start of string stack 


allocate new string (ed), set VAR pointer to it 
@ F84A! F86E! F92D! F97C! FAlC! FASF! FB90! 


F5 
c5 
E5 
F5 
cD 
Fl 
21 


function: FRE(0), or FRE("") 


DI F5 


BA BO 


@ DICO 


push af 
push bc 
push hl 
push af 
call F5Dl 
pop af 
ld h1,BOBA 
ld (hl),a 
inc hl 
ld (hl),e 
inc hl 
ld (hl),d 
pop hl 
pop bc 
pop af 
ret 


call FF45 
jr nz,FC38 
call FBDA 
call FC3E 
call F628 
jp FE60 


GARBAGE COLLECT 
@ EA7L! F4EF! F5DA! F6LF! F750! FC35! 


c5 
D5 
E5 
2A 
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push bc 

push de 

push hl 
ld h1,(BO8F) 
ld (BO8D),hl 
ld h1,0000 
ld (BOBD),hl 
ld hl, (AE89) 
ld (BOBF),hl 
call FC7B 
ld h1,(BOBD) 


jr z,FC77 
ld d,(hl) 
dec hl 


ld e,(hl) 
push hl 
dec hl 
ld c,(hl) 
ld b,00 
ld h1,(BO8D) 
ex de,hl 
add hl,bc 
dec hi 
call FFF5 
inc de 
pop hl 


allocate space for new string =(hl)low end 


temporary string descriptor 
len 


(ed)=address of string 


get VARTYPE <a>; cp string 

not a string 

try to release string (FAC); <a>=1len, z=zero 
GARBAGE COLLECT 

space left between low string/upper DIM’d VA 
convert unsigned integer (hl) to real 


upper bound for string space pointer 
low end of used string space pointer 


used on GARBAGE COLLECT 


upper end of DIM’d variables pointer 
save on GARBAGE COLLECT 


used on GARBAGE COLLECT 


low end of used string space pointer 


lddr 
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FC70 
FC7l 
FC72 
FC73 
FC74 
FC75 


FC77 
FC78 
FC79 
FC7A 


FC7B 
FC7E 
FC82 
FC85 
FC87 
FC88 
FC89 
FCBA 
FC8B 
FCSC 
FC8D 
FC8E 
FC8F 
FC92 
FC93 
FC94 


FC96 
FC99 


FC9IC 
FCIF 
FCA2 
FCA3 
FCA6 
FCA9I 
FCAA 
FCAB 
FCAE 
FCB2 


@ FC53! 

21 9C BO 

ED 5B 9A BO 
CD B8 FF 

28 OF 


C4 9C FC 


18 E8 


11 9C FC 
c3 74 DA 


ld (hl),e 
inc hl 

ld (h1),d 
dec de 

ex de,hl 

jr FC44 


pop hl 
pop de 
pop bc 
ret 


ld h1,BO9C 
ld de, (BO9A) 
call FFB8 
jr z,FC96 
ld a,(hl) 
inc hl 

ld c,(hl) 
inc hl 

ld b,(hl) 
push hl 

ex de,hl 
or a 

call nz,FCI9C 
pop hl 

inc hl 
jr FC7E 


ld de,FCIC 
jp DA74 


@ FC8F! FC96: 


2A 8D BO 
CD BE FF 


22 BD BO 
ED 43 BF BO 


1d h1,(BO8D) 
call FFBE 
retc 

ld hl, (BOBF) 
call FFBE 
ret nc 

ex de,hl 

ld (BOBD),hl 
ld (BOBF),bc 
ret 
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string stack 
pointer to start of string stack 
test HL=DE? (try hl-de) 


... 


low end of used string space pointer 


test HL=BC? (try hl-bc) 


save on GARBAGE COLLECT 
test HL=BC? (try hl-bc) 


used on GARBAGE COLLECT 
save on GARBAGE COLLECT 
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@ EEA3! 


FCB3 CD 2D FF call FF2D <a>=VARTYPE;3=err;1d hl,(FAC);ret c;1d hl,FA 
FCB6 D2 52 BD jp nc,BD52 REAL ARITH ?? 
FCB9 CD A3 BD call BDA3 INT ARITH, ?? 
FCBC 22 C2 BO ld (BOC2),hl Floating print ACU, FAC 
FCBF 21 C3 BO ld h1,B0C3 (=FAC+1) 
FCC2 CI ret 
@ EEB4! 
FCC3 CD C2 FE call FEC2 function: UNT(<address expression>) 
FCC6 21 C3 BO ld h1,B0C3 = string address 
FCC9 CI A6 BD jp BDA6 INT ARITH, BC=0002; E=0 


.- per£orm [+] (plus) 
@ C67B! CF82 


FCCC CD 15 FE call FEI5 compare VARTYPEs; change if <>; string illeg 
FCCF 30 09 jr nc,FCDA it’s at least one real argument 
FCDlL CD AC BD call BDAC INT ARITH ADD; <hl>=<hl>+<de> 
FCD4 DA OD FF jp e,FFOD set FAC to <hl> and mark integer 
FCD7 CD 4F FE call FE4F ... 
FCDA CD 58 BD call BD58 REAL ARITH, ADD, (hl)=(hl)+(de) 
FCDD D8 retc 
— Error: Over£low 
FCDE C3 F3 CA jp CAF3 Error: Over£low 
en perform [-) (minus) 
@ CF86 
FCEl CD 15 FE call FEI5 compare VARTYPEs; change if <>; string illeg 
FCE4 30 09 jr nc,FCEF it’s at least one real argument 
FCE6 CD B2 BD call BDB2 INT ARITH, SUB; <hl>=<de>-<hl> 
FCE9 DA OD FF jp c,FFOD set FAC to <hl> and mark integer 
FCEC CD 47 FE call FE4F ... 
FCEF CN 5E BD call BDSE REAL ARITH, SUB (hl)=(de)-(hl) 
FCF2 D8 ret c 
FCF3 18 E9 jr FCDE Error: Over£flow 
— perform [*]) (multiply) 
@ CF3A 
FCF5 CD 15 FE call FEI5 compare VARTYPEs; change if <>; string illeg 
FCF8 30 09 jr nc,FD03 it’s at least one real argument 
FCFA CD B5 BD call BDB5 INT ARITH MUL; <hl>=<hl>*<de> 
FCFD DA 0D FF jp c,FFOD set FAC to <hl> and mark integer 
FDOO CD 4F FE call FE4F ... 
FDO3 CD 61 BD call BN61l REAL ARITH, MULT, (hl)=(hl)*(de) 
FDO6 D8 ret c 
FDO7 18 D5 jr FCDE Erroc: Overflow 


-—- compare two numbers (int or real) 
@ C68C! CFAB! N205! 


FDO9 CD 15 FE call FEl5 compare VARTYPEs; change if <>; string illeg 
FDOC DA C4 BD jp c,BDC4 INT ARITH, COMPARE <hl>,<de>; <a>= FF,00,01 
FDOF C3 6A BD jp BD6A REAL ARITH, COMPARE (hl),(de); <a>=FF,00,01 
---- perform [/] (devide) 
@ CF8E 
FDl2 3A C1 BO ld a,(BOC1) VARTYPE 
FD15S Bl orc 
FDl6 FE 02 cp 02 <integer VAR%> 
FD18 20 05 jr nz,FDIF it’s real 
FDIA CD 4F FE call FE4F ... 
FDID 18 03 jr FD22 
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FDIF CD 15 FE call FEI5 compare VARTYPEs; change if <>; string illeg 
FD22 EB ex de,hl 


FD23 D5 push de 
FD24 CD 64 BD call BD64 REAL ARITH DVD; (hl)=(hl)/(de) 
FD27 DL pop de 
FD28 F5 push af 
FD29 01 05 00 ld bc,0005 # of bytes 
FD2C CD F2 FF call FFF2 ldir 
FD2F Fl pop af 
FD30 D8 ret c 
FD3l CA EA CA jp z,CAEA Error: Division by zero 
FD34 C3 F3 CA jp CAF3 Error: Overflow 
_- perform [\] (devide=integer) 
@ CF96 
FD37 CD 9A FE call FE9A <de>=VAL(h1), <hl>=(FAC) 
FD3A EB ex de,hl 
FD3B CD B8 BD call BDB8 INT ARITH, DVD; <hl>=<h1>/<de> 
FD3E DA OD FF jp c,FFOD set FAC to <hl> and mark integer 
FD4l 28 10 jr z,FD53 Error: Division by zero 
FD43 21 00 80 ld h1,8000 sign bit set 
FD46 C3 60 FE jp FE60 convert unsigned integer (hl) to real 
----- perform <hl> [MOD] <de> 
@ CF9E 
FD49 CD 9A FE call FE9A <de>=VAL(h1), <hl>=(FAC) 
FDA4C EB ex de,hl 
FD4D CD BB BD call BDBB INT ARITH, MOD; <hl>=remainder (<h1>/<de>) 
FD50 DA OD FF jp c,FFOD set FAC to <hl> and mark integer 
----- Error: Division by zero 
FD53 IE OB ld e,Oß Division by zero 
FD55 C3 94 CA jp CA94 perform ERROR <e> routine 
—— perform <h1> [AND] <de> 
@ CF9A 
FD58 CD 9A FE call FE9A <de>=VAL(h1), <hl>=(FAC) 
FD5B 7B ld a,e 
FD5C A5 and 1 
FD5D 6F ld 1,a 
FD5E 7C ld a,h 
FD5F A2 and d 


—— set FAC to <al> and mark integer 
@ CFA6 FD6B’ 


FD60 C3 0C FF jp FFOC set FAC to <al> and mark integer 
.-- perform <hl> [OR] <de> 
@ CFA2 
FD63 CD 9A FE call FE9A <de>=VAL(hl), <hl>=(FAC) 
FD66 7B ld a,e 
FD67 B5 or 1 
FD68 6F ld 1,a 
FD69 7A ld a,d 
FD6A B4 or h 
FD6B 18 F3 jr FD60 set FAC to <al> and mark integer 
- perform <hl> [XOR] <de> 
@ CFA6 
FD6D CD 9A FE call FE9A <de>=VAL(hl), <hl>=(FAC) 
FD70 7B ld a,e 
FD71l AD xor 1 
FD72 6F ld 1,a 
FD73 TC ld a,h 
FD74 AA xor d 
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FD75 18 E9 jr FD60 set FAC to <al> and mark integer 


—- perform [NOT] <hl> 


@ CFC8 
FD77 ES push hl 
FD78 CD 8D FE call FE8D function: CINT(<num expression>) in <hl> 
FD7B 7D ld a,l 
FD7C 2F cepl 
FD7D 6F ld l1,a 
FD7E 7C ld a,h complement <hl> 
FD7F 2F cpl 
FD80 CD 0C FF call FFOC set FAC to <al> and mark integer 
FD83 EI pop h1 
FD84 C9 ret 
----- function: ABS(<num expression>) 
@ DIAE 
FD85 CD A3 FD call FDA3 get [SGN] <a> (FF,00,01) 
FD88 FO ret p already positiv 
@ CFBF 
FDS9 55 push hl 
FD8A C5 push bc 
FD8B CD 2D FF call FF2D <a>=VARTYPE;3=err;ld hl,(FAC);ret c;1d hl,FA 
FDSE 30 OD jr nc,FDID it’s real 
FD90O CD C7 BD call BDC7 INT ARITH, COMPLEMENT <hl> 
FD93 22 C2 BO ld (BOC2),hl Floating point ACU, FAC 
FDI6 D5 push de 
Fn97 D4 60 FE call nc,FE60 convert unsigned integer (hl) to real 
FDIA DL pop de 
FD9B 18 03 jr FDAO 
FD9D CD 6D BD call BD6D REAL ARITH, COMPLEMENT SIGN (hl) 
FDAD CI pop bc 
FDAl EI pop hl 
FDA2 C9I ret 


.--- get [SGN] <a> (FF,00,01) 
@ C5BB! C603! C7A5! FD85! FFO2! 


FDA3 CD 2D FF call FF2D <a>=VARTYPE;3=err;1d hl,(FAC);ret c;1d hl,FA 
FDA6 DA CA BD jp e,BDCA INT ARITH, get SGN of <hl>; <a>= FF,00,01 
FDA9 C5 push bc proceed if real 
FDAA CD 70 BD call BD70 REAL ARITH, SGN (hl); <a>=FF,00,01 
FDAD CI pop bc 
FDAE C9 ret 
@ D241! 
FDAF E5 push hl 
FDBO 79 ld a,c 
FDBl CD 4B FF call FF4B set VARTYPF <a>, copy VARIABLE (hl) to FAC 
FDB4 DL pop de 
FDB5S CD 2D FF call FF2D <a>=VARTYPE;3=err;1d hl,(FAC);ret c;1d hl,FA 
FDB8 78 ld a,b 
FDB9I 30 OB jr nc,FDC6 ... 
FDBB B7 or a 
FDBC FO ret p 
FDBD CD 6A FE call FE6A convert integer (de) to real 
FDCO CD CE FD call FDCE ... 
FDC3 C3 8D FE jp FE8D function: CINT(<num expression>) in <hl> 
FDC6 B7 or a 
FDC7 20 05 jr nz,FDCE ... 
FDC9 11 49 BD ld de,BD49 REAL ARITH ?? 
FDCC 18 26 jr FDF4 ... 
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@ FDCO! FDC7” 


FDCE D5 push de 
FDCF C5 push bc 
FDDO 78 ld a,b 
FDDI CD 55 BD call BD55 REAL ARITH ?? 
FDD4 DC 49 BD call c,BD49 REAL ARITH ?? 
FDD7 78 ld a,b 
FDD8 CI pop be 
FDD9 DI pop de 
FDDA 30 08 jr nc,FDE4 ... 
FDDC CD 43 BD call BD43 REAL ARITH, CREAL (hl) 4 byte integer to rea 
FDDF AF xor a 
FDEO 90 sub b 
FDEl C3 55 BD jp BD55 REAL ARITH ?? 
@ FDDA’ 
FDE4 EB ex de,hl 
FDE5S C3 4E FF jp FF4E copy VARIABLE (hl) to FAC 
----- function: FIX(<numeric expression>) 
@ DIBE 
FDE8 11 4C BD ld de,BD4C REAL ARITH, FIX (hl) 
FDEB 18 03 jr FDFO 
-_--- function: INT(<numeric expression>) 
@ DIC6 
FDED 11 4F BD ld de,BD4F REAL ARITH, INT (hl) 
FDFO CD 2D FF call FF2D <a>=VARTYPE;3=err;1d hl,(FAC);ret c;1d hl,FA 
FDF3 D8 ret c if already integer 
@ FDCC’ 
FDF4 CD FB FF call FFFB jp(de) 
FDF7 DO ret nc 
FDF8 3A Cl BO ld a,(BOC1) VARTYPE 
FDFB CD 06 FE call FEO6 ... 
FDFE D8 ret c 
FDFF CD 1D FF call FFID get VARTYPE <c>, <hl>=FAC 
FEO2 78 ld a,b 
FEO3 C3 43 BD jp BD43 REAL ARITH, CREAL (hl) 4 byte integer to rea 
@ ED26! FDFB! 
FEO6 79 ld a,c 
FEO7 FE 03 cp 03 <string VAR$> 
FEO9 DO ret nc not integer, return 
FEOA TE ld a,(hl) 
FEOB 23 inc hl 
FEOC 66 ld h, (hl) ld hl,(hl) 
FEOD 6F ld 1,a 
FEOE CD A9 BD call BDA9 INT ARITH, unsigned to sign <b>; z=zero, c=+ 
FEll DO ret nc 
FEl2 C3 0D FF jp FFOD set FAC to <hl> and mark integer 
----- compare VARTYPEs; change if <>; string illegal 
@ FCCC! FCEL! FCF5! FDO9! FDIF! 
FEl5 79 ld a,c = VARTYPE 
FEl6 FE 03 cp 03 <string VAR$> 
FEl8 28 32 jr z,FE4C Error: Type mismatch 
FEIA 3A Cl BO ld a,(BOC1) VARTYPE 
FEID FE 03 cp 03 <string VAr$> 
FEIF 28 2B jr z,FE4C Error: Type mismatch 
FE21 BI cp c both arguments of same vartype? 
FE22 28 17 jr z,FE3B yes, both the same 
FE24 30 0C jr nc,FE32 second VARTYPE was integer 
FE26 E5 push hl 
FE27 21 Cl BO ld h1,BOC1 VARTYPE 
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FE27 


71 ld (hl),c 

23 inc hl 

CD 63 FE call FE63 convert signed integer (hl) to real 
Dl pop de 

B7 or a 

c9 ret 

CD 63 FE call FE63 convert signed integer (hl) to real 
EB ex de,hl 

21 C2 BO ld h1,B0C2 Floating point ACU, FAC 

B7 or a 

c9 ret 

EE 02 xor 02 <integer VAR%> 

28 05 jr z,FE44 yes, both integer 

EB ex de,hl 

21 C2 BO ld h1,B0C2 Floating point ACU, FAC 

c9 ret (de) points to value, (hl) to FAC 
yes, both integer 

5E ld e,(hl) 

23 inc hl 

56 ld d,(h1l) 

2A C2 BO ld h1,(BOC2) Floating point ACU, FAC 

37 scf 

c9 ret <de>=(h1l); <hl>=(FAC); =carry 
Error: Type mismatch 

Cc3 40 FF jp FF40 Error: Type mismatch 

@ FCD7! FCEC! FDOO! FDIA! 

2A C2 BO ld h1,(BOC2) Floating point ACU, FAC 

CD 6A FE call FE6A convert integer (de) to real 
2A 8B BO ld h1,(BO8B) BASIC STACK pointer 

CD 63 FE call FE63 convert signed integer (hl) to real 
EB ex de,hl 

21 C2 BO ld h1,BOC2 Floating point ACU, FAC 

c9 ret 

convert unsigned integer (hl) to real 

@ D069! D102! FC3B FD46 FD97! 

AF xor a =0 = unsigned integer £lag 

18 08 jr FE6B 

convert signed integer (hl) to real 

@ FE2C! FE32! FE58! 

5E ld e,(hl) 

23 inc hl 

56 ld d,(hl) 

2B dec hl 

7A ld a,d flag for signed/unsigned conversion 
18 08 jr FE72 

convert integer (de) to real 

@ FDBD! FE52! FEEF 

7C ld a,h hi byte 

EB ex de,hl 

21 Cl BO ld h1,BOC1 VARTYPE 

36 05 ld (h1),05 <FAC real> 

23 inc hl points to FAC 

EB ex de,hl 

F5 push af 

B7 or a is it a signed conversion? 

FC C7 BD call m,BDC7 INT ARITH, COMPLEMENT <hl> 

Fl pop af 

360 ARITHMETICS 
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FE79 C3 40 BD  jp BD40 REAL ARITH, CREAL <hl> to (de) 


----- set FAC to <hl,de> and normalise to real 


@ DOE9! 
FE7C 22 C2 BO ld (BOC2),hl Floating point ACU, FAC 
FE7F EB ex de,hl 
FE80O 22 C4 BO ld (BOC4),hl (=FAC+2) 
FE83 21 Cl BO ld h1,BOC1 VARTYPE 
FE86 36 05 ld (h1),05 <FAC real> 
FE88 23 inc hl points to FAC 
FE89 AF xor a 
FE8A C3 43 BD jp 3843 REAL ARITH, CREAL (hl) 4 byte integer to rea 


----- function: CINT(<num expression>) in <hl> 
@ C99F! CESB! DIB6 D329! D409! D427! FL6D! FAY3! FD78! FDC3 FEE7” 


FE8D CD 93 FE call FE93 perform function CINT 
FE9O D8 ret c 
FE9l 18 3F jr FED2 Error: Over£flow 
— perform function CINT 
@ FE8D! 
FE93 CD A5 FE call FEA5 set VARTYPE integer, <a>=old VARTYPE 
FE96 22 C2 BO ld (BOC2),hl Floating print ACU, FAC 
FE99 CI ret 


En ee <de>=VAL (hl), <hl>=(FAC) 
@ FD37! FD49! FD58! FD63! FDED! 


FE9A 79 ld a,c = VARTYPE 

FE9B CD AC FE call FEAC <hl>=integer VAL(hl) 

FE9IE EB ex de,hl 

FE9F DC A5 FE call c,FEA5 set VARTYPE integer, <a>=old VARTYPE 
FEA2 D8 ret c 

FEA3 18 2D jr FED2 Error: Overflow 


— set VARTYPE integer, <a>=old VARTYPE 
@ FE93! FEIF! 


FEA5S 21 Cl BO ld h1,BOC1 VARTYPE 
FEA8 7E ld a,(hl) 
FEA9 36 02 ld (h1),02 set integer 
FEAB 23 inc hl hl points to FAC now 
-— <hl>=integer VAL(hl) 
@ FE9B! 
FEAC FE 03 cp 03 <string VAR$> 
FEAE 38 OD jr c,FEBD it is INTEGER; 1d hl,(hl) 
FEBO CA 40 FF jp z,FF40 Error: Type mismatch 
FEB3 C5 push bc 
FEB4 CD 46 BD call BD46 REAL ARITH, CINT; <hl>=int(hl); <a>=sign 
FEB7_ 47 ld b,a 
FEB8ß DC A9 BD call c,BDA9 INT ARITH, unsigned to sign <b>; z=zero, c=+ 
FEBB Cl pop bc 
FEBC C9 ret 
— it is INTEGER; 1d hl,(hl) 
FEBD 7E ld a, (hl) 
FEBE 23 inc hl 
FEBF 66 ld h,(hl) 
FECO 6F ld 1,a 
FECl cC9 ret 


— function: UNT(<address expression>) 
@ CE97! DIE F124! F158! FCC3! 


FEC2 CD 2D FF call FF2D <a>=VARTYPE;3=err;1d hl,(FAC);ret c;1d hl,FA 
FEC5 D8 ret c already integer 
FEC6 CD 46 BD call BD46 REAL ARITH, CINT; <hl>=int(hl); <a>=sign 
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FEC9 30 07 jr nc,FED2 Error: Overflow 


FECB 47 ld b,a 

FECC FC A9 BD call m,BDA9 INT ARITH, unsigned to sign <b>; z=zero, c=+ 
FECF DA OD FF jp c,FFOD set FAC to <hl> and mark integer 

_--- Error: Overflow 

FED2 IE 06 ld e,06 Over£flow 

FED4_C3 94 CA jp CA94 perform ERROR <e> routine 


=---- test <a>=VARTYPE? if not CINT,CREAL 
@ C584! C598! C5B4! DI8D D66C! 


FED7 E5 push hl 
FED8 D5 push de 
FED9 C5 push bc 
FEDA 21 Cl BO ld h1,BOC1 VARTYPE 
FEDD BE cp (hl) <a>=VARTYPE? 
FEDE C4 E5 FE call nz,FEE5 goto (CINT CREAL or STRING), <a> 
FEEl Cl pop bc 
FEE2 DI pop de 
FEE3 EL pop hl 
FEE4 C9 ret 
----- goto (CINT CREAL or STRING), <a> 
@ FEDE! 
FEE5 D6 03 sub 03 <string VAR$> 
FEE7 38 A4 jr c,FE8D function: CINT(<num expression>) in <hl> 
FEE9I CA 3C FF jp z,FF3C test VARTYPE for string, else error 


— function: CREAL(<numeric expression>) 
@ DIBA D4F6! D51B! D57C! D594! 


FEEC CD 2D FF call FF2D <a>=VARTYPE;3=err;1d hl,(FAC);ret c;1d hl,FA 
FEEF DA 6A FE jp c,FE6A convert inreger (de) to real 
FEF2 C9 ret 


-_— set FAC to all zeroes 
@ DOLF ECB9I! 


FEF3 ES push hl 
FEF4 21 00 00 ld h1,0000 
FEF7 22 C2 BO ld (BOC2),hl Floating point ACU, FAC 
FEFA 22 C4 BO ld (BOC4),hl 
FEFD 22 C5 BO ld (BOC5),hl 
FFOO EI pop hl 
FFOlL C9 ret 
— function: SGN(<numeric expression>) 
@ D1D6 
FFO2 CD A3 FD call FDA3 get [SGN] <a> (FF,00,01) 


----- set FAC to (-l, 0, +1); <a> was FF,00,01 
@ CALF! CFB6 


FFO5 6F ld 1,a 

FF06 87 add a,a 

FFO7 9F sbc a,a 

FF08 18 02 jr FFOC set FAC to <al> and mark integer 


_- set FAC to <a> and mark integer 

@ c288! C500! DOEO! D33E D433 F15C F174 FAOD FAL3 FA7A FACF! 
FFOA 6F ld 1,a 
FFOB AF xor a 


—— set FAC to <al> and mark integer 


@ FD60 FD80! FFO8” 
FFOC 67 ld h,a 
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set FAC to <hl> and mark integer 
@ C5A4! CY9AE DO53! DI12! D420 EL70! E283! E29B! ECD2! EEOA! EE79! 


@ FCD4 FCE9I FCFD FD3E FD50 FEIl2 FECF 


22 C2 BO ld (BOC2),h1l 


set VARTYPE integer; <a>=2 
@ ECB6! ECFO! 


Floating point ACU, FAC 


3E 02 ld a,02 <integer VAR?> 
32 Cl BO ld (BOCl),a VARTYPE 

c9 ret 

ld h1,FAC; set VARTYPE real; <a>=5 


@ D5A6! ED37! 
21 C2 BO ld h1,BOC2 


set VARTYPE real; <a>=5 
@ D4DC! EDO4! ED9IO! 


Floating print ACU, FAC 


3E 05 ld a,05 real 

18 F5 jr FFl2 set VARTYPE 
get VARTYPE <c>, <hl>=FAC 

@ D4DF! FDFF! 

21 Cl BO ld h1,BOC1 VARTYPE 

4E ld c,(hl) 

23 inc hl 

c9 ret 

get VARTYPE <a>; 

@ D667! EO7L! 

3A Cl BO ld a,(BOC1) VARTYPE 

c9 ret 

get VARTYPE <a>; cp string 

@ EO22! EDIF! 

3A Cl BO ld a,(BOC1) VARTYPE 

FE 03 cp 03 <string VAR$> 
c9 ret 


<a>=VARTYPE;3=err;1d hl,(FAC);ret c;1d hl,FAC 
@ FCB3! FD8B! FDA3! FDB5! FDFO! FEC2! FEEC! 


3A Cl BO ld a,(BOC1) VARTYPE 

FE 03 cp 03 <string VAR$> 

28 0C jr z,FF40 Error: Type mismatch 

2A C2 BO ld hl, (BOC2) Floating point ACU, FAC 
D8 ret c 

21 C2 BO ld h1,BOC2 Floating point ACU, FAC 
c9 ret 


test VARTYPE for string, else error 
@ CEA8 CF27! DBO6! F382! F99A! FBDB! FEEI 


CD 45 FF 
c8 


call FF45 
ret z 


Error: Type mismatch 
lE OD ld e,0D 
c3 94 CA jp CA94 


get VARTYPE <a>; cp string 


get VARTYPE <a>; cp string 


Type mismatch 
perform ERROR <e> routine 


@ CF19! CF62! D185! D66F! DCO3! F238! F489! FA46! FAA4! FC2D! FF3C! 


3A Cl BO ld a,(BOC1) VARTYPE 
FE 03 cp 03 is it a string? 
c9 ret 
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FF4A 


m. set VARTYPE <a>, copy VARIABLE (hl) to FAC 
@ C66F! DOLl8! D043! D503! E2CA! FILE! F906! FDBLl! 


FF4B 32 Cl BO ld (BOC1),a VARTYPE 
- copy VARIABLE (hl) to FAC 
@ D20E! FDES5 
FF4E 11 C2 BO ld de,BOC2 Floating point ACU, FAC 
FF5l 18 13 jr FF66 copy variable (hl) to (de) 


----- get VARTYPE, copy FAC to BASIC STACK 
@ CF42! DIF8! D21C! F8DL! FF5! 


FF53 D5 push de 

FF54 E5 push hl 

FF55 3A Cl BO ld a,(BOCL) VARTYPE 

FF58 4F ld c,a number of bytes 

FF59 CD BO F5 call F5BO ine BASIC STACK pointer by <a>, (hl)=next lo 
FF5C CD 62 FF call FF62 copy FAC to (hl) 

FF5SF El pop hl 

FF60 DI pop de 

FF6l C9 ret 


— copy FAC to (hl) 
@ C58B! C59B! C5B8! C685! D672 FFSC! 
FF62 EB ex de,hl 
FF63 21 C2 BO ld h1,BOC2 Floating point ACU, FAC 


.-- copy variable (hl) to (de) 
@ C5E6! D67A FF5L1’ 


FF66 C5 push bc 

FF67 3A Cl BO ld a,(BOC1) VARTYPE 
FF6A 4F ld c,a 

FF6B 06 00 1d b,00 

FF6D ED BO ldir 

FF6F Cl pop bc 

FF70 C9 ret 


----- test <a> for A-Z, =carry 
@ D6LF! D630! DEE7! FF7B! 


FF7l CD 8A FF call FF8A change <a> to upper case 
FF74 FE 4l cp 41 A 

FF76 3F ec 

FF77 DO ret nc 

FF78 FE 5B cp 5B L 

FF7A C9 ret 


-— test <a> for A-Z, =carry 
@ DF64! DF6F! DF90O! DFBL! EOD9! E243! 


FF7B CD 71 FF call FF7l test <a> for A-Z, =carry 
FF7TE D8 ret c 
.- test <a> for °.” or digit, =CARRY 
@ DEEC! ECBL! 
FF7F FE 2E cp 2E 2 
FF8l 37 scf 
FF82 C8 ret z 


----- test <a> for digit, =carry 
@ ECE4! ED58! ED85! EE63! 


FF83 FE 30 cp 30 o 
FF85 3F ccf 

FF86 DO ret nc 

FF87_ FE 3A cp 3A .. 
FF89 C9 ret 
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change <a> to upper case 
@ DF56! E33D! ED5SE EE2O! 
FE 61 cp 6l 

D8 ret c 

FE 7B cp 7B 

DO ret nc 

D6 20 sub 20 

c9 ret 

search <a> in table(hl); 
@ CFE6! EC271! F217! 

F5 push af 

c5 push bc 

46 ld b,(hl) 
23 inc hl 

E5 push hl 

23 inc hl 

23 inc hl 

BE cp (hl) 

23 inc hl 

28 04 jr z,FFA2 
05 dec b 

20 F7 jr nz,FF98 
E3 ex (sp),hl 
Fl pop af 

7E ld a,(hl) 
23 inc hl 

66 ld h, (hl) 
6F ld 1,a 

cl pop bc 

Fl pop af 

c9 ret 

search <a> in table(hl); 
@ DFL6! DFCD! 

c5 push bc 

4F ld c,a 

7E ld a,(hl) 

B7 or a 

28 05 jr z,FFB5 

23 inc hl 

B9 cp c 

20 F8 jr nz,FFAC 
37 scf 

79 ld a,c 

cl pop be 

c9 ret 

test HL=DE? (try hl-de) 

@ C54E! C654! C7D9! D2351 
@ E7D3! E814! EADF! EAF9I! 
@ FB4F! FB68! FB70! FB78| 
7C ld a,h 

92 sub d 

co ret nz 

7D ld a,l 

93 sub e 

c9 ret 

test HL=BC? (try hl-bc) 

@ DABE! EBCE! F4C7! F74A! 
7C ld a,h 

90 sub b 

co ret nz 

7D ld a,l 
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EE68! F842: FF71! 
"a 


{ 


"SPACE 


hl=address 


skip over address part 


match found 


next entry 


=carry 


end of table 


get next byte 


D40F! D8381 D9A3! E053! El2A! E7781 E7B6! 
F512! F5EE! F625 F6D7! F732! F757! F766! 
FB82! FBC8! FBFL! FCOE! FC82! 


F7BE! FB3ll FB39! FCIF! FCA6! 
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FFC1 


FFC2 91 sub c 


FFC3 CI ret 
— ED=HL-ED 
FFC4 C5 push bc good old 8080 
FFC5 47 ld b,a 
FFC6 7D ld a,l 
FFC7 93 sub e 
FFC8 5F ld e,a 
FFC9 7C ld a,h 
FFCA 9A sbe a,d 
FFCB_ 57 ld d,a 
FFCC 78 ld a,b 
FFCD Cl pop be 
FFCE C9 ret never used 
-— HL=HL-DE 
@ DIE9Y! E712! E749! EBCB! EC52! F509! F50D! F550! F62F F747! F76F! 
FFCF C5 push bc 
FFDO 47 ld b,a 
FFDL 7D ld a,l 
FFD2 93 sub e 
FFD3 6F ld 1,a 
FFD4 7C ld a,h 
FFD5 9A sbce a,d 
FFD6 67 ld h,a 
FFD7 78 ld a,b 
FFD3 Cl pop bc 
FFDI CI ret 
.— BC=HL-DE 
@ C145! E722! EAC7! F526! F5571! 
FFDA ES push nl 
FFDB 67 ld h,a 
FFDC E3 ex (sp),hl 
FFDD 7D ld a,1 
FFDE 93 sub e 
FFDF 4F ld c,a 
FFEO 7C ld a,h 
FFEl 9A sbc a,d 
FFE2 47 ld b,a 
FFE3 E3 ex (sp),hl 
FFE4/7C ld a,h 
FFE5S EI pop hl 
FFE6 CI ret 
— HL=HL-BC 
FFE7 D5 push de good old 8080 
FFE8 57 ld d,a 
FFE9 7D ld a,l 
FFEA 91 sub c 
FFEB 6F ld 1,a 
FFEC 7C ld a,h 
FFED 98 sbc a,b 
FFEE 67 ld h,a 
FFEF 7A ld a,d 
FFFO DL pop de 
FFFl C9 ret never used 
--- ldir 
@ D797! DIFL! E704 E7I1B! EB53! F582! F7A8! F891l! F933! F98B! FIEA! 
@ FBIE! FD2C! 
FFF2 ED BO ldir 
FFF4 C9 ret 
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----- 1ddr 
@ EADO! F565! F6ll! F793! FC6B! 


FFF5 ED B8 lddr 
FFF7 CI ret 
re jp(h1) 
@ DA8F! DAFL! 
FFF8 EI jp (hl) 
Se Jp (be) 
@ cipc! c2lc! C285! CAFD! C515! D4BE! E9I2! FE5B! 
FFF9 C5 push bc 
FFFA C9 ret 
ae jp(de) 
@ CF54! D3E2! DC74! F21B! F7FD! FDF4! 
FFFB D5 push de 
FFFC C9 ret 


FFFD C7C754 
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Nobody is perfect! 

Werden bei der Eingabe einer Basic-Zeile am Schluß noch Blanks 
angehängt oder, was viel öfter passiert, wird eine Basic-Zeile mittels 
Copy-Cursor übernommen - und wer stoppt schon genau hinter dem 
letzten Zeichen -, so werden alle überflüssigen Blanks mit ins Basic- 
Programm eingebaut. Wer das nicht weiß, verschwendet bald erhebli- 
chen Speicherplatz. Es ist eine Routine vorhanden, die bei der Zeilen- 
Assemblierung alle überflüssigen Blanks, Tabs und CR’s eliminiert und 
ein Flag (AC00), das den Rechner dazu veranlaßt. Geben Sie also vor 
einer Programmierung im Direktmodus ein: 


POKE &AC00,255 


Sie werden sich bald an die 'enge’ Schreibweise gewöhnen. Leider 
funktioniert das nur bei der Direkteingabe oder bei der Übernahme einer 
Zeile mit dem Copy-Cursor. Bestehende Programme lassen sich leider 
nicht mehr so elegant komprimieren. 
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* (c)1984 Amstrad Consumer .. « 
*64K Microcomputer « « 2 ee. . 
"in eo 
’%k%%* PROGRAM LOAD FAILED *** .. 
"kBreak* mins 
"Basic 
‘Basic 1.0 Pe 
"brand names ee a ee 
"Break a a ee ee ie 
ERROR MESSAGES 2 2.220020 
“press play then any key ...» 
Random number seed . . ..... 
Ready een. 
‘Redo from Start a en 
Token table ve ee 000% 
"Undefined line . x ve oe... 
A, save as ASCII file . .. ... 
address of CALLed routine ...» 
addresses of first letter . ... 


adjust VARTYPE, copy result to variable 


allocate a tape buffer for output 


allocate new string (ed), set VAR pointer to 


D 


. 


. 


(command table, only one ni) 


.o. 


. 
. 
. 


.. 
.. 
.. 
.. 


allocate new string; copy (hl) to new (de) . 
allocate space for new string =(hl)low end . 


allocate space for new variables 


. 


allocate string and copy it from (FAC) 


allocate tape buffer for input .» 
append string (hl) to string (FAC) 
ask keys pressed and set map re 
assemble a program line; 


B, save as binary file oo 00.0. 
BACKGROUND Er . 
Basic COMMAND TOKEN ADDRESS List 
BASIC £lag ?? . 2... 0.0. 
BASIC program counter Pc ... 
BASIC Program line format ...« 
BASIC STACK pointer „vv . ... 
bit map masks . 
boot systen co. 
calculate TOKEN TABLE offset <de> 
call function routine, a=TOKEN . 
call function routine, c=TOKEN . 
call if ’( a Ne ae EL Brei ne 
call if TOKEN [+] <expression> . 
call if TOKEN [-] <expression> . 
call if TOKEN [NOT] <expression> 
called from WILE x ce... 
CAS CATALOG, (de)= 2k buffer to use 
CAS change <a> to upper case letter 
CAS CHECK tape with store, 
CAS get file type on read; cp 05 


cas I/O abandon, set RAD, release buffers 


CAS IN ABANDON Paar a Ba er Er er 
CAS IN block number „vo... 
CAS IN buffer pointer (hi) . 
CAS IN buffer pointer (lo) . 
CAS IN CHAR from input file ... 
CAS IN CLOSE er... 


. 


. 
. 
. 
. 


(hl)=edit buffer 
assemble and insert line into program 


(hl)=data, <de>=1en, 


..o. 
... 
... 
... 


. 
. 
. 
. 


CAS IN DIRECT, read input file fuca store (hl) 


CAS IN file type Dee Br a Er BE 
CAS IN file type on read ..o.. 
CAS IN filename 
CAS IN flag ?? a ee 
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. 


HEADER RECORD up to B846 . 


0.0. 


<a>=sync 


ee a Be Tr Er 


..o0.. 


CAS IN 
CAS IN 

CAS IN 

CAS IN, 
CAS IN, 
CAS IN, 
CAS IN, 
CAS in/ 
CAS INI 
CAS NOIL 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 
CAS OUT 


flag; enable prompt message Da Ba Een 
last block flag ve 200er e00 rn. 
OPEN, (hl)=filename, <b>=len, (de)=2kbuff 2 
data length . oe oe oe 0 00000 00010000 0. 0 
data location ve 2 ee ee een. 
first block flag ve... 
user fields . ee 02 0200000000000. 
out abandon, release I/O buffers „2. 2.2.2.0. 
TIALISE cassette manager . 2» 2 2 2 2220000. 
SY, enable or disable en messages <a> oo... 
ABANDDON oe... nee ee. ee 
CHAR <a> to output file ee tete 
CLOSSEE oo 2 0 0 0 0 0 0 1 0 1 0 0 LE 1 
DIRECT block number . 2» 22220 ee ee... 
DIRECT file type on write ve ee ee 00. 
DIRECT filename HEADER RECORD up to B88B ... 
DIRECT, data location „ve. 222200000. 
DIRECT, file type 2 oe 2 0 00 00000 0. 
DIRECT, first block flaz ee ee 
DIRECT, last block flag . 2: ce ee 00000. 
DIRECT, pointer to data (lo) NE Eee 
DIRECT, pointer to data (hi) Pa ar a a a a 
DIRECT, total len of data . x ev ee 20. ... 
DIRECT, (hl)=data,<de>=len,<a>=type, (bejmantry addr 
DIRECT; entry for HEADER Pe 
filenane HEADER RECORD up to BECB x... 00% 
OPEN, (hl)=filename, <b>=len, (de)=2kbuff .... 
» block number „2 ve ee 0 0 1000000... 
‚ data length Paar a a 
‚ data location a ee 
‚ file type Dee ee EEE 


CAS OUT, first block flag «ve 2 ee 2 1 20000. 


CAS OUT 


‚„ len of data, updated while writing «vv. ..%. 


CAS OUT, user fields (entry addr for machine code program) 
CAS OUT, user fields (logical length) „ce ee 00. 
CAS READ a record, (hl)=data, <de>=len, <a>=expected sync 


CAS RES 


TORE MOTOR ta previous state <a? „ve ee 00. 


CAS RETURN, put last char read back . vv ve... 


CAS SET 


CAS STO 
CAS TES 
CAS WRI 
CAS wri 
change 
change 
change 
change 
change 
change 
check £ 
check £ 
check £ 
check £ 
check £ 


header 


eo... 
0. 


..o. 


on 249A, 


write SPEED, <hl>=len of half a zero bit, <a>=precompens 
CAS START MOTOR 2 0 0 0 0 0 0 er ne. 


P MOTOR Paar a ee BE 
T EOF ee ee ee ee 
TE a record, (hl)=data, <de>=1len, <a>=sync char . 
te speed ve 2 ee 0er ern ee 
<a> to lower case ee ae ee le 
<a> to upper case Dee Be BE BE EEE EEE Zr 
Basic program to line# format Pa Er 
£lash period, change colours «ve ee ee. 00.%. 
MARK <next addr> to <next linef> „ee 00%. 
to real, perform function (de) «ve ee. 000%. 
or ’I’ in filename . 2: ce ee ee een. . 
or a BREAK request „vv 2 ee ee 00. 
or a line# in command line . x 2 eve ee... 
or a second ’ESC „2. oe 0 ee ee 0000.“ 
or legal SOUND chan u ee ie ee 


check if char fits into this line . 2 cv 2222000. 


check i 


check if point is inside GRA WINDOW 2.0... 


check 1 


check whether cursor is within window, force it in 
check whether FOR/NEXT match Pa er 


£ parentheses pair . vv ce ee ee een. 


ine for direct command . cc: ee... 000% 


CHRBACK comma?; if=:CHRGET <a>, Sc » ve ee een. 


CHRGET 
CHRGOT 


index 


<a>, skip blank, cp Ol . 2. v2 2 ee 00 00. 
<a>; end of statement? else syntax error „ve... 
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B800 
B818 


»„ BC77 


B81lA 
B8IC 
B8IlE 
B8ölF 
D2AD 
BC65 
BC6B 
BC92 
BC95 
BC8F 
B85C 
B847 
B84C 
B861 
B85E 
B863 
B85D 
B848 
BB4A 
B864 
BC98 
B866 
B8SC 
BC8C 
B89IC 
B89IF 
BBAl 
B89D 
B8A3 
B85F 
B8A6 
BBA4 


„ BCAL 


BC74 


‚ Cäla 


DO6D, 


BC68 
BC6E 
BC7l 


‚„ BC89 


BCIE 
B8DL1 
F839 
FFBA 
E687 
OD6D 
E69D 
n519 
D285 
C43C 
E6BC 
C46F 
c95D 
C2B9 
E8cl 
16FC 
COB8 
11DA 
c9c5 
DD55 
DD3F 
DD4A 
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CHRGOT <a>; end of statement? =carıy «ee... ee een ee. DD5Ll 
CHRNEXT <a>, nz=Error; CHRGET  » » oe ee ee ee ee ee ee ee ee ee. DD37 
CHRSKIP <a>; skip over blank, tab, linefeed .. ee... . ee... 0. DD6l 
clear <a> locations, starting (hl) na eie DICH 
clear ADDO..AEOB to OO . 2 ee 0 ee ee 000 ee 0 ee ee ee... . D5BE 
clear AE04..5 to 0 ie en a ee ee Bien DDE 
clear AE06. .AEOB to O0 oc ce 0 0 ee 0 0 ee 0 000 ee ee ee ee. ee . D5C6 
clear all VARIABLE indices ee ee ne ee. 00. 0. . FEI8I 
clear this window 2 2 ve ee 0 ee 0 ee ee ee ee ee ee ee ee. . 1597 
closeout, return er ee een nen ee ECIE 
command: ‚USING <format>[<separator?]) .. .... “ee eeee.. 0. 0.  F2C4 
command: AFTER <time period> [,<timer>] GOSUB <line#> een O9 
command: AUTO [<line#>] [,<line step] . «ve ee ee... ee... ee. CODF 
command: BORDER <ink> [,<ink>] Be nern lee 165, Ba ee nee nr 022L 
command: CALL <RAM address>[,<list of<argument>>] „oe. ee... . 0...  FIBA 
command: CAT, list filenames from TAPE oe ee 000000... 0. . D246 
command: CHAIN <filename>[,<run line#>] [,DELETE<line#>[-<line#>]] ee.  EA3C 
command: CLEAR PAPER ee er er re er ar ee + 6 7 


command: CLG [<ink>] er ee ee ee 000er... C4HB5 
command: CLOSEIN oe ee Lee nee nenn... . D298 
command: CLOSEOUUT co 2 0 0 0 en ee ee ee ee ee een ee ee 0. D2Al 
command: CLS [#<device>] Be ee ee er ee ae le ea Eee a re a Ee wr O2 DA 
command: CCNT «se ee ee ee 000. ee ee ee ee. ee... CBCO 
command: DATA <list of<data>> (skip this line) “ee ee... 0.0. . ESEF 
command: DEF FN<name>[(<argument>)]=<expression [using argument])> - .. . DII7 
command: DEFINT <I[-N])> » 2 2 2 0 2 en ee ee ee ee ee ee ee 0. . D618 
command: DEFREAL <B[-H]> Pa EEE ı 1:3 {0} 
command: DEFSTR <A[,0-2])> «2 ve ee ee ee ee ee een ee ee... D6l4 
command: DEG Pe Er ar er Er ee ee ee ann DWEI 
command: DELETE <line#> [-<line#>] Eee EZB 
command: DI oe oe ee ee 0 0 ee een en ee. CBEL 
command: DIM <name>(<maxindex.1>[,<...>] [,<maxindex.n>]) [,<name>(.....)] D67D 
command: DRAW <x>,<y>[,<ink?] oe 0 ee ee ee ee ee ernennen en. C4AC6 


command: DRAWR <xd>,<yd>[,<ink>] oo 0 0 0 Eee en 000. CACB 
command: EDIT <line#> „2 2 0 0 ee nee ee ee een ee... C0O52 
command: Ex ce ee 0 ee 0 ee ee ee ee een een ee ee. . CBE7 


command: ELSE REM 2» vs ee nee ee ee ee ee een ee ee ee. EBF3 
command: END EEE ne ee GB 
command: ENT <sequence#> [,<steps>,<step>,<pause>] “ee... ee 0.0. D385 
command: ENV <sequence#> [,<steps>,<step>,<pause>] eo. 0.0.00... D34E 


command: ERASE <list o£f<DIM’d variable name>> „ce ee... ee... 0... DICO 
command: ERROR <errorf> «ve... 0. ee ee ee en... . CA8F 
command: EVERY <time period> [,<timer>] GOSUB <line#f> „ee... 000.0. C979 
command: FOR <variable> = <start> TO <end> [STEP <step>] ee 00.0... C529 
command: GOSUB <line#> rer nee ee a KGOED 
command: GOTO <lined> 2 2 0 0 ee 0 0 0 1 00 ee een ee... C6E8 
command: IF <logic expr> oe 0er ee 0.00. . C6C7 
command: INK<ink>,<colour>[,<colour?] «ve ee ee ee een ee een. . C22A 
command: INPUT [#<device>,)[;] [<message>;]<list of<variable>> „. . . . . . DB2B 
command: KEY <expansion code>,<string expression? «ve ee... ee... D439 
command: KEY DEF <key#>,<repeat>[,<normal>[,<shift>[,<control>]]] » « » ». D456 
command: LET <variable>=<expression> Eee e an ee en ee; -D65A 


command: LINE INPUT [#<device>,)[;][<message>;]<string variable> ee. 0.  DAF8 
command: LIST [<line>[-<line>]] [‚,#<device?]) » ve. ee... 0%. 0 0. EOF? 
command: LOAD <filename>[‚<startaddress?]) ee ee. 00 .. ee... E9IF6 

eo... C2D2 


eo 000.  F4EF 
eo 0. EAA6 
0.0.0. F993 
eo... C24AF 


command: MEMORY <address> .» ve ee ee ee een. 
command: MERGE [<filename?] . vv ee. ee ee 00000. 
command: MID$(<stringvar>,<startpos>,<len>)=<string expression> . 
command: MODE <mode> Dee ee ee 

command: MOVE <x>, <y> Pa EEE Er er ee. 0.0. C505 
command: MOVER <xd>,<yd> ae en ee ee CEO‘ 
command: NEW Deere ee een ee... ee. C12B 
command: NEXT [<list of <variable>>] een ee. ee. ee.  C5FB 


command: LOCATE [#<device>,] <x coord>, <y coord? «ve... 0% 


. 
. 
. 
. 
. 
. 
. 
. 
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command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 

command: 
command: 

command: 
command: 
command: 
command: 
command: 

command: 

command: 

command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 
command: 

command: 
command: 
command: 
command: 
command: 
command: 
command: 
COMPARE 

compare 

compare 

compare 

compare 

compare 


ON aa a ee ie 
[0) S BuB :):3 9.) EEE 
ON ERROR 2 2 0 00 2 0 0 0 0 0000. . 
ON SQ(<sound channnel>) GOSUB oo... 
OPENIN <filename> ee ee een Tee 
OPENOUT <£filename> ..... oo... 


ORIGIN <x>,<y> [,<left>, <right>,<top> ,<bottom>] Pe 


OUT <I/O address>,<byte value ..... 
PAPER [#<device>,] <Iin> 2a. wet 
PEN [#<device>,] <ink> „2 2 2.0000 
PLOT <x>,<y>[,<ink]) 2.000000 0% 
PLOTR <xd>,<yd>[,<ink>] re ee ee 
POKE <address>, <byte value> Fr . . 
PRINT [#<device>,] [<list ofstärleble>s] 
RAD era) E EN ee er.enennenietie ferne, ie 
RANDOMIZE [<start expression] . x... 
READ <list of<variable> ........ 
RELEASE <channels> ..... Ernie . 
RENUM [<line#>] [, [<old line®$] [, <atep>]] 
RESTORE [<line#>] ... slrern,s. Ye: a 
RESUME [<line#>] or RESUME "NEXT .... 
RESUME NEXT ee te 
RETURN 2 0 0 0 0 0 0 0 01 0 0 1 0 0 0 0. 
RUN [<line#>] ers Biere 
SAVE <filename>[,<filetype>] [,<startaddr>, 
SOUND <stat>,<period>,<tim>,<vol>,<v-env>, 
SPEED Dar ar a Br BE 
STOP oo 0 0 0 0 0 0 0 ln... 
SYMBOL <symbol#>,<list of<parameter> . 
SYMBOL AFTER <first symbolf> . 2... .. 
TAG [#<device>] ee re ee 
TAGOFF [#<device?] „2 2 2 2 200 00.0 
TROFF Da ee a a Er 
j 4 170) \ Er ... 
WAIT <I/O address>,<AND mask>[, <XOR mask>] 
WEND 2 0000000000 000000. 
WHILE <logic expression> „vv... ..%. 
WIDTH <width> Pa Ba Er Be 


<len>) ..» 


“oe... C7E3 
“ee. 0.  C8CB 
“ee 0.0. CBF& 
“ee... C940 
“ee 0. .  D25F 
“eo... 0. D256 
ee. C48C 
“ee... Fl7 
“ee... C20A 
“ee0.. C2l2 
“ee...  C4D0 
“eo... 0. C4D5 
“ee... FI5F 
. FIFD 
. D4EB 
. D559 
.  DCEB 
“ee...  D3IE 
“eo... 0.  E7TDF 
ee. 0.0. 0.  DCDI 
“ee 00.0.0. CC03 
“eo... 0. CC20 
ve... 0. C70F 
ee .0 0000.  EIBD 
“eo... 0. ECOI 


<t-env>,<noise> e . . D2CO 


WINDOW [#<device>,]<left>,<right>,<top>,<bottom . . 


WINDOW SWAP [<device>,] <device> ....» 
WRITE [#<device>,) [<list of<variable>>] 
ZONE <byte value> ee ee re. 


(ix), (iy); <a>=FF,00,01 ... 
COPYCURSOR with CURSOR; =carry 
screen matrix with matrix table 
string (hl) with string (de) 
two numbers (int or real) . » 
VARTYPEs; change if <>; string 


COMPLEMENT <hl> if negative . .... 
constant -88.7228391 ee eiie 


constant 


0.301029996 Dar EEE 


constant 0.318309886 PR Er er 
constant 0.693147181 Pa Er er 
constant 0.707106781 Par a ae 
constant 1 E+9 Paar ar a a BE 
constant 1. «oe 0 2 ee 0000. 


constant 
constant 
constant 
constant 
constant 
constant 
constant 
CONTinue 


index 


1.44269504 2220000. 
1.74533 E-02 . 
3124999.98 .. 
5.55556 E-03 . 
57.2957795 .» 
88.0296919 «2 200000. 
PI = 3.14159265 or... 
pointer Dauer Baar Er Br Er Er ze 
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.o0.. 
... 
... 
.o0.. 


illegal 


“eo... 0. D494 
“ee... CB5A 
“ee... F6D 
“ee... F6CD 
“ee... C319 


ee... 0. C320 
“eo 00.00. 0.  DDE6 
“eo 000.0.  DDE2 
ee... FIT 


“e.00.. C776 
“ee... C747 
“ee...  C3E3 
“oe...  C2ElL 


“eo... 0. C2FD 
“ee... F47B 
“ee... FIF6 
een. 35A0 


“ee... 2C76 
ee... 0.  13E3 
“ee... F897 
ee 000.0. FD09 
. FEI5 
.  37Dl 
. 3105 
.  308B 
“ee... 321D 
“ee... 3086 
“een. 3081 
“ee... 2Fl8 
Se 4 x 7 
“ee 00. 30FB 


een... 3227 
“eo... 0.  2Fl3 
“ee... 3222 
san wıa :322C 


ee... 0. 3100 
“ee. 3149 
ee 0000. ADAB 
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control code table; <# of parameters>, <routine address> 

convert a Basic line element to Basic code Pa 
convert Ascii decimal# to <hl> Pa Er 
convert Ascii HEX or BIN to <hl> Pa a Er 
convert CONSTANT to ascii, according MARK . . co... .. 
convert FAC to 1 byte in <A> Pe a EEE 
convert FAC to ASCII, (hl)=address of text oo. 0.0.00. 
convert integer (de) to real ee ee 
convert signed integer (hl) to real vv ee. 000%. 
eonvert unsigned integer (hl) to real . v2... 2... 
copy (hl) bytes to address (h1l+l),(h1+2) re ... 
copy 0000..0040 ROM to RAM, restore HI KERNEL JUMPBLOCK . 
copy 15. bytes (hl) to (de) . . ne ee ee 
copy 5 bytes, (de)>(hl); 1d a,(hl- D Pe Se a er 
copy 8 bytes (hl) to (de) » v2 2 2 2 ee een. 
copy <a> and <VARTPE> bytes from FAC to program line .. 
copy <a> bytes from (de) to (hl) ee ee 
copy arg’s to stack, call routine in selected ROM . ... 
copy char <a> or "text" . .. . Pr a a 
copy edit buffer to Basic Line tl <hl>=<de> ee RR 
copy edit buffer to basic text en are 10° 6er ar Le) 1e.re, 
copy FAC to (hl) Eee u a Nr ae Mr var ae ar Be ar ee ar Be ee Ber 
copy FAC to variable (hl) ... . te ee ee 
copy NUMBER EDIT BUFFER to EDIT BUFFER Paar a BE er 
copy REMark to basic text vv 2 2 2 ee 0er. 
copy string descr to string stack, check ovfl . . . ..%. 
copy string descriptor (de) to (hl) » ve ee ee 000%. 
copy text up to *" or end of buffer „ce ee 000. 
copy variable (hl) to (de) u Se ee ee er 
copy VARIABLE (hl) to FA «ce oe ee ee een. 
eursor disable (user) » ve 0 ee ee ee ee. . 
cursor enable (user) a EEE 
eursor ON; wait for key; cursor OFF... ee ee. 00% 
data for °.’ and ’ENTER sc oe ee een. . 
data for control code table (copied to B2C3) oo. 00.0. 
data for graphics jumpblock .... Da er 
data for HIGH KERNEL JUMPBLOCK (eairigd to BAE8 . . BAE8) 

data for KM test BREAK or RESET . cv ee ee 0000. 
data for printer jumpblock De EEE EEE Er 
data for SCREEN PACK JUMPBLOCK Pa a a a En 
data for STANDARD JUMPBLOCK (copied to BBOO . .) 2... 
data for VDU jumpblock ee rt 
data to ring BELL vs ee ee 000er 1 0 0. 
de=hl; skip over VARIABLE name ee 
decrease HIMEM by <de>; below <bc>=error er 0.‘ 
decrement BASIC STACK pointer by <a> ee ie 
decrement flash timer x ve ee ee 0 ee 0000. 
default <a>=<c>; if comma, get byte <a „ee. 00%. 

default KEY normal/shift/control/repeat entries (copied to 
delete a line# from Basic program . vs 2 ee 000% 
delete line area; shift rest of pgm down PET TR a ar er 
DEVIDE by 10., (hl)=(h1)/10. Pa a ar Dr Er er ee 
disable ROMs, ldir or lddr, ROMs restore oo 0.100 0%° 
draw cursor, if enabled . 2. 2 ee ee ee... 
dummy string descriptor, zero len . 2 2 2 22.2.0000. 
ED=HL-ED ne 
EDI COPYCURSOR position colum/row Pr ee 
EDI cursor on flag N aaa ee 
EDI ESC key pressed (first time) ee wre ae. 
EDI find key token, address = (hl) eier ee 
EDI function key (COPY ve ever ern en 
EDI function key ”COPYCURSOR RIGHT er 
EDI function key ’COPYCURSOR LEFT x 2 2 2 2 0 een. 
EDI £unction key ’COPYCURSOR UP... 2 2 22er. 
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“0.00. FF66 
ee... FF4E 
0.0. 129C 
“0... 128B 
eo... C430 
000. 1AB3 
“eo...  146B 
eo. 0. 15E5 
eo... 0391 
vo... 1A36 


eo... 1091 
eo 00.  l4CF 
eo... D731l 
oo... F743 
“0. F5AO 
“00.  OD5B 
. « D30D 


function key ’COPYCURSOR DOW . . . 
function key ’CURSOR DOWN 2... 
function key ’CURSOR end of line . 
function key ’CURSOR end of text « 
function key ’CURSOR LEFTT oe. . 
function key ’CURSOR RIGHT...» 
function key ’CURSOR start of line 

function key ’CURSOR start of text 

function key ’CURSOR UP... 0... 
function key ’DC3 (”S) 
function key DELL... ee. .00.% 
function key ’DLE (CLR) » vo... 
function key ’Enter .. oo... 
function key ’INSERT TAB) . . 
get window width <d>; current colum 
handle function key <a> „cv... 
INSERT/OVERWRITE flag « «cv...» 
key-input a char at cursor pos .. 
LINE EDITOR (hl) Der a Ba Ba a a er 
LINE EDITOR (hl) ... 
move COPYCURSOR down . 
move COPYCURSOR left . 
move COPYCURSOR right . 
move COPYCURSOR up .. 
move cursor <d> steps left .... 


. 
. 
.o 000° 
. 
. 


move cursor <d> steps right .... 
output °*BREAK*” Pe 
output BEL «see ee 00. 
per£orm CURSOR DOW vo... 0. 


perform CURSOR LEFT x... . . . 
perform CURSOR RIGHT AuR So Var a Sr 
perform CURSOR UP... .. . . 
reset COPYCURSOR to zero . . 
write char <a>, handle both cursors 


write string at cursor pos; update cursor 


edit a line# ce een. 
edit a one byte value „2. co 000%. 
edit a real constant Dee EEE 
edit a signed integer constant oo... 
EDIT BUFFER . vo. 000%. ... 
edit FAC onto the NUMBER EDIT BUFFER . 
edit in binary representation . ve... 


in hex representation er... 


edit value in binary representation . . 
edit value in HEX representation ... 


eliminate superfluous char’s at string 


end 


o£ BASIC program pointer eo... 


enough space in memory for <bc>? ... 
entry to upper ROM Paar Ba a Er Br Br Be er 
envelope table address Te 
ERASE a <DIM’d VAR NAME> eo or... 
ERROR ADDRESS (addr where error occurred) 
error message, READY ee 
Error: Array already dimensioned ... 
Error: Division by zero vo ee... 
Error: EOF met Pe a a Er EEE Er 


Error: File type error .. 


Error: Improper argument .. 

Error: Improper argument er 0... 
Error: Memory full Paar a a a Er er er 
Error: Operand missing er 000. 


Error: Overflow vo ee ee 0000. 
Error: Subscript out of range ..... 
Error: Syntax error eve eve... 


index 374 


. 


D07B, D642, DDC6 


oo... 
eo... 
eo... 
eo... 
eo... 
eo... 
eo... 

..o0.0. 
eo... 
..o 0.0.0. 
eo... 
eo... 

..0.0. 


oo... 


eo... 


eo... 


oo... 


CAF3, FCDE, 


CAEA, 
DC42, 


. 0205, C96C, CEAB, 0349, D436, E755, F34B, 
FIIB, 
EB34, 


‚ E8EA, EC38, 


2CA7 
2B7E 
2B89 
2B92 
2BAA 
2B75 
2BBD 
2BC7 
2BB3 
2c0l 
2C3D 
2C4A 
2B69 
2BF9 
2BEB 
2AC6 
B8DD 
2DD9 
2498 
BD3A 
2D2D 
2D4A 
2D50 
2D29 
2BC8 
2B93 
2B42 
2B2B 
2B33 
2B37 
2B3B 
2B2F 
2C6F 
2DA8 
2067 
E288 
E277 
E2C8 
E27D 
ACA4 
EE8F 
E2A3 
E2AE 
Fll4 
F119 
F7E6 
AE83 
F501 
c006 
ADBB 
DICC 
ADA6 
FA9E 
D64A 
FD53 
EB38 
EBB3 
F729 
FA9IC 
F73E 
CFED 
FED2 
D646 
F346 
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Error: Type mismatch ... 
Error: Unexpected next .. 
Error: Unknown command PN 
establish BREAK EVENT . . .» 


evaluate (expression), CHRGET, cp Ol .. 
evaluate (expression); <b> priority . . «» 


evaluate (string expression) 
evaluate expression, release 
event routine BREAK . . 
event routine BREAK, part 2 
event routine SOUND .... 
event routine TIMER . ..» 
expand a CONSTANT value . » 
expand a token to its TEXT 
expand a VARIABLE . .. 
expand basic code, copy to 
EXTERNAL CALL or LET ... 
EXTERNAL COMMAND TABLE .. 
EXTERNAL INTERRUPT oo... 
FAC used by [”] (power) . » 
FAC used by FOR 
FAC1 ... 


eo 00. 


FAC2 re ee, her. 8 
1 7 \ ck 
fill new line with ink <a> 
find 


find 
find 
find 
find 
find 
find 
find 
find 
flag 
flag 


brand name 
brandname and print . 
entry (de) within chain 


next DATA 
RETURN on BASIC STACK 


DEG/RAD ER 
file read protected 


£lag for AUTO so. 00% 
flag for PRINT USING ... 
£flag ON ERROR «ve... 0%. 


TRON/TROFF ££/0 .. 
flag used assembling a basic 
flag used by FOR oo 0.0. 
Floating point ACU, FA .. 


flag 


flush sound queues of channel(s) 


.. 


function: ’, 
function: 
function: 
function: 
function: 
function: 
function: 
function: 
function: 


(TAB) . ... 
ATN (<argument>) » 
CHR$(<byte value>) 


COS(<argument?>?) » 


text(hl) within table(de) 


@<used VARIABLE name>, 
ABS(<num expression?) «ev... 
ASC (<string expression>) “ne 


string again 


Due Br Br er er er 


eo re... 


a WHILE entry on the Basic sack .. 
any variable and clear index 


eo... 
. eo re. 0. 


(h1) eo... 


line# element; if not defined: error 


line „2... 
<c> .. 


=addr 


CINT(<num expression>) in <hl> 


function: CREAL(<numeric expression?) . » 
function: DEC$(<num VAR>,<string VAR>) . 
function: EEF «ee... %. 
function: EEL «ee... 
function: ER » ve... %. 


function: 
function: 


EXP (<argument>) » 


function: 
function: FRE(0), or FRE("") 
function: 
function: HIMEM . . ...%. 


huslik, cpc464 inside out 


oe re 0. 


FIX(<numeric expression?) . . .» 
FN<name>(<list of<arguments>>) 


BIN$(<unsigned integer>[,<digits>]) 


HEX$ (<unsigned integer>[, <digits>]) 


. 


FE4C, FF4O 


. 
..o0.. 


375 


C5F6 
F1B5 
c453 
CEFB 
CFO7 
CEA5 
CE9IF 
C45E 
c847 
1F03 
c879 
EIDE 
E220 
ElE7 
El96 
D64F 
c004 
003B 
ADCB 
AC27 
B8E8 
B8ED 
B8F2 
0E24 
C7B8 
E9II6 
0712 
065C 
0363 
E888 
DDIB 
CT2E 
E327 
B8F7 
AE45 
ACIC 
AE7A 
ADB 
AE38 
AE39 
AC26 
BOC2 
1E9A 
F25C 
DOFA 
FD85 
FA1lO 
D53E 
F8BA 
FAl6 
FE8D 
D534 
FEEC 
F8EA 
C417 
DOEE 
DODC 
D520 
FDE8 
D130 
FC2D 
F8C4 
DOF4 


index 


£unction: INKEY$ erde ee 
function: INKEY(<key#>) in hl> „2... 
function: INP (<I/O address?) . 2... 


function: 


function: INT(<numeric expression?) . . . 
function: JOY(<stick#>) in <hl> he 
function: LEFT$(<string expression>,<len>) 
function: LEN(<string expression») ... 
function: LOG(<argument?) «ve... 00% 
£uncetions LOGlO(<argument?) vv... %. 
function: LOWER$(<string expression?) . » 
Function: MAX(<list of<arguments>>) ... 


function: 


£unction: MIN(<list of<arguments>>) ... 
function: PEEK (<address>) ee 

function: PI Paar ar Baar a Ba a a 
function: POS (#<device>) 8. a le dar verdie De 
function: REMAIN(<timer?) 2 2 2.00% 

function: RIGHT$(<string expression», aus) 
£unction: RND [(<argument>)] ie era 
£unction: ROUND (<expression>[,<digits>]) 

function: SGN(<numeric expression?) ... 
£unetion: SIN(<argument?) «ve 2000. 
£unction: SPACE$(<# of spaces?) . .... 
£unetion: SPC(<spaces?) «ve ee 00. 

Function: SQ(<sound channel>) . x...“ 
£unction: SQR(<argument?) «ve ee 0. 
£unction: STR$(<numeric expression>) .. 
function: STRING$(<repeat>,<character>) . 
function: TAB(<position?) ve... 0% 
function: TAN(<argument?) vv ee. 0%. 
£unction: TEST(<x>,<y?) 2 ee ee 00. 
function: TESTR(<xd>,<yd>) Pe EP Er Er 
function: TIME Pe er er 
function: UNT(<address expression?) .. .« 
function: UPPER$(<string expression?) « » 
function: VAL(<string expression>) ... 
function: VPOS(#<device?) «ver er0.“ 
Euncetion: XPOS PIE an Var a Dur Bar Bar ar vr ae 
function: YPOS Sera 0 ee, tee 


get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 


(EXPRESSION) and next arg in b .. 
<filename> argument from Basic text 
<£ilename>, allocate buff, OPENIN » » 
a command line from keyboard oo... 


GARBAGE COLLECT sv ce 2 0 een 0. 


INSTR([<start >,]<string expr>,<searched 


eo. 00.0. 


.. 000%. 


MID$(<string expression>, SnoatkionsL,<ien>]) 


eo. .0.0. 


. eo. .0.0. 


addr (hl) of envelope <a>, in: (hl)=block start . 


address o£ TIMER BLOK 000% 
address of VARIABLE or subscript .. 
address VAL into <de® «ve ee 00% 
[SGN] <a> (FF,00,01) Re ne No.c rier ans 
all the arguments ce ee... 
BASIC line# at PC in <hl>, =carıy . . 
BASIC program counter in <hl> .... 
bounds of the lines to delete .... 
byte VAL into <b>; max=7; else error 

byte VAL(expression) in <de> ee 
channel#, default=0; set in/out chan 

colour hardware# in <chl> ve... 

colour table (de) of flash period 1 or 
control, shift or translate entry . « 
eurrent print POS of <device .... 
cursor position and validate ur 
DATA element, z-flag if empty »...» 
either HEX or integer VAL vv... 


index 376 


eo 00. 


2: <a>=time 


string?) » 


huslik, 


ee "FA2L 
oo 0.0.0. D409 
rt ne 8 LED 
ee... FAAl 
Een. we „EDEN 
Sr an en DE23 
ee ae EIIC 
eg de e= TEAOK 
a  »1.77\ 
ee ie D525 
a lerusısse \FBIA 
ve... DIEE 
Pe 1.77: 
sn in "DIE 
taltarneirsetiiee „FLIB 
ee. 0. D4DB 
ee 0.2... 0276 
eo 00.0. 0.  CIIF 
ee 000.6. F943 
oo 00.0.0. D584 
“ae. .D219 
“ee... FFO2 
ven. D52F 
eo 00.. 0. FA57 

oo... .F277 
.. ND329 
..  D4EF 
.. FILE 
.. FA36 
eo 00.0.0. F280 
ea 0539 
veee.. C4EE 
ee 000.0. C4EI 
ee 00.0. 0. DOES 
ee... FEC2 
ee 00.6. F842 
nee. FAZ] 
ee een: 0262 
eo... 0. D107 
.. DIOE 
..  FC3E 
... F8CE 
.. D273 
oe 0 0...  D26A 
& ee re SCOBO 
ee 23 
ae ar CO 
een. D686 
tee es  E767 
ai ta SFOA3 
“a. -FiCD 
ee. DDD6 
sea. is DDD2 
Seen 8737 
ie een 0312 
0: Sana SCE6T 
re a ee, + C1LDO, 
“west a 20DOA 
re ee ODE 
nes 1BAO 
sn hal, 0290 
a rien ee 7 C3IC 
esse KDDIZ 
© 0. ECA3, ECBE 


cpc464 inside out 


get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 


get 


get 
get 
get 
get 
get 
get 
get 
get 
get 
get 
get 


GNEXT byte VAL; cp b; ret c; syntax error 


error message text (hl) »..... 
filename, OPENIN, get startaddr, NEW 


HEX VAL 


input channel; cp 09 or 0... 


int VAL 
integer 
integer 
integer 
integer 
integer 
integer 


in <bc>, next byte VAL in <a> 
ML na ee 
VAL in <de>, O=error ... 
VAL of expression, neg=error 
VAL to <de>, next to <bce> . 
VAL (expression) in <de . .» 
VAL(expression) » «co... 


integer, >15. =error or 0 0.0. 


len and 


addr of expansion string . 


line width of <device> ee 
line# and RN 2 cs 2 ee 0000. 
line# at (hl) in <hl>, =carıy . ..» 
line# £rom line address . ve... 
line# in <hl> 2.2 2200000. 
line# into <de .... 

line#’s, default <bc>=l, <de>=65535. 


low end 


of string space, hil=de? . . 


new line# 2 2 220000000. 
next char, skip blank, cp Ol ... 
next line after error <hl>, if none <hl>=0000 
next VAL in <a>; cp <old a>; nc=error 


next VAL in <a>; 


max=10.; else error 


output channel; cp 8... . 0... 


pointer 


to TOKEN TEXT, =carry .. « 


pointers (hl), (de), to colour <a> 


POS (printer) <a ... 


reciprocal value (hl), use FAC3 .. 
start of textstream parameters .. 
get string expression (de) and byte <a> 
the program counter and RUN .... 
get the sequence arguments Pa 
unsigned-integer VAL(expr) in <de> 
VAL in <b>, next in <a>, both max 31. 
VAL into <a>, max=15.; else error . 
VAL into <a>, max=31.; else error . 
variable entry Be Hate ae ee 


VARTYPE ad; een. 


VARTYPE 
VARTYPE 


VARTYPE, copy FAC to BASIC STACK 


VPOS of 


<a>; cp string eo... 
<c>, <hl>=FAC ... 


<device> .. en 


WIDTH; cp FF Pa Ba a a Ba Br Br Bu er 


go thru Basic program and do function <bc> 


goto (CINT CREAL or STRING), <a> 


ASK CURSOR, <de>=x, <hl>=y RE 
CLEAR GRAPHIC WINIDW ve... 0. 
cursor HOME, x=y=000 ve... 


cursor x a U we 
cursor y ee ... . 
DRAW LINE ABSOLUTE, eleg; <hils=y 

DRAW LINE RELATIVE, <de>=xd, <hl>=yd 
GET ORIGIN <de>=x, <hl>=y of user oorüinates 
GET PAPER, <a>=ink ee. 
GET PEN, <a>=ink Par a Er a Er er 
GET WINDOW HEIGHT, <de>=ytop, <hl>=ybottom . 


get WINDOW width, 


INITIALISE graphics DI . x. ... 
MOVE ABSOLUTE, <de>=x, <hl>=y ... 
MOVE RELATIVE, <de>=xd, <hl>=yd . «. 


huslik, cpc464 inside out 


<de>=xleft, <hl>=xright> . 


.oo.. 


ee. 0. CC45 
e . .  EAOD 
eo.  ECCD 
.. .  CICO 
.o.  F194 
eo. .  ECDC 
eo.  D34l 
0. .  CE7C 
eo. 0. C5lA 
er CE86 
“eo.  F2AO 
ee .  D3FF 
eo.  1B3E 
“ee.  C29F 
ee.  E9IEO 
.e . . DDDI 
ee.  E290 
ee. DO59 
oe. 0. CEEI 
“ee.  CEBO 
ee... F622 
“eo. C102 
oe. . CFCB 
ee.  CADF 
eo.  CIFB 
eo. CIP5 
ee.  CIBA 
“ee.  E31l3 
“. .  0D2F 
“ee. C3DF 
eo.  32FD 
eo.  112A 
ee. .  F9IEI 
ee. DD 
D367, D3AE 
oe. CEI 
“0.  C23C 
0. C24B 
oo. 0244 
. . . D690 
ee... FF23 
FF27, FF45 
eo.  FFID 
“eo. .  FF53 
0. 0267 
“ee.  C2B3 
ee. D317 
eo.  E8FF 
ee. FEES 
15FC, BBC6 
17C5, BBDB 
“0. 160B 
eo.  B32C 
“ee.  B32E 
‚„ BBF6, BDE2 
1836, BBF9 
1612, BBCC 
180A, BBE7 
1804, BBEI 
17BC, BBD8 
17A6, BBD5 
15B0O, BBBA 
15F4, BBCO 
15Fl, BBC3 
377 index 


GRA PAPER ink v2 2 ee een. 
GRA PEN INK 2 ee ee ee ern. 
GRA PLOT a POINT, <de>=x, <hl>=y ie 
GRA PLOT ABSOLUTE, <de>=x, <hl>=ey .... 
GRA PLOT RELATIVE, <de>=xd, <hl>=eyd . . . 
GRA RESET oo ee 0 ee 1er ne. 
GRA SET ORIGIN, <de>=x, <hl>=y De 
GRA SET PAPER, <a>=ink rl... 
GRA SET PEN, <a>=ink Bu een ar ur’ 
GRA set WINDOW height, <de>=yl, <hl>=y2 . 
GRA set WINDOW width, <de>=xl, <hl>=x2 . 
GRA temp flag 
GRA temp store 
GRA temp store 
GRA temp store 
GRA temp store Dee a a a BE 
GRA temp store x on draw Der Bar Ba u 

GRA temp store y on draw ER 
GRA TEST a POINT, <de>=x, <hl>=y wanna 
GRA TEST ABSOLUTE, <de>=x, <hl>=y .... 
GRA TEST RELATIVE, <de>=xd, <hl>=y ... 
GRA user originx » 2 ve een. . 
GRA user originy «2 2 ee ee 000. 
GRA WINDOW HEIGHT, ybotton ee. ..% 
GRA WINDOW HEIGHT, ytop «ve ee. 00. 
GRA WINDOW WIDTH, xleft „cc 20000. 
GRA WINDOW WIDTH, xright Pa re 
GRA WRITE CHAR <a> at current graphic pos 
here: ON ERROR ve ee 00er. 
himem DEFAULT, SYMBOL AFTER 240. oo... 
himen for Basic pointer ve eve... 
himem for SYMBOL AFTER (SYS) er 0.%. 
himem for SYMBOL AFTER pointer .. 


or 2 22110100. 


Dauer Basar Bar Bar Taerar Ber er SE Be 


-e0nre 


HL = inc BASIC STACK pointer by <a>, (hl)=ne 


inc of£fset of SCREEN START by <de> ... 
Indirection: ERROR MESSAGE 
Indirection: Get a token while assembling 
Indirection: Line Assembling eo... 
Indirection: LIST and EDIT ae var ar ee 
Indirection: RESET Basic er 1... 
Indirection: Syntax error ve ee... 
Indirection: Token not found on LIST .. 
Indirection: Undefined token Pa a 
Indirection: Undefined token after switch 
init all Basic pointers . ve 2.2000. 
initialisation data 50Hz „cc ee 202.0 
initialisation data 60 Hz «vv ee. 0% 
initialise all event blocks . x... .. 
initialise all inks for 8 textstreams .. 
initialise all windows Da a BE 
initialise variable value . vv ce... 
ink colours, flash period l vv ev ec... 
ink colours, flash period 2 «ve... 
input channel number Da Br BE Er Er er 
insert Ol, ’REM and text following ... 
insert a space if <e>=]l and return re 
insert EXTERNAL COMMAND introducer ’| .. 
insert MARK <a> and 2 zero bytes .... 
INT ARITH ADD; <hl>=<hl>+<de> . v2... 
INT ARITH MUL; <hl>=<h1l>*<de> . 
INT ARITH SUB; <hl>=<hl>-<de> . 

INT ARITH, ?? x 200000. P 

INT ARITH, BC=0002; ED 2.000. 

INT ARITH, COMPARE <hl>,<de>; <a>= FF,00,01 


index 378 


. 


xt 


check ov£l 


huslik, 


cpc464 


2... B339 
“2. B338 
1816, BDDC 
1813, BBEA 
1810, BBED 
15DF, BBBD 
1604, BBC9 
LTFD, BBE4 
17F6, BBDE 
1779, BBD2 
1734, BBCF 
ve. B346 
2.2  B33A 
2.2. B33C 
2.2. B33E 
©. B340 
20. B342 
2. .  B344 
182A, BDDF 
1827, BBFO 
1824, BBF3 
2. 8328 
2.2. B32A 
“2. B336 
2.2. B334 
©. B330 
©... B332 
1945, BBFC 
©. .  CBES 
“0. AB8O 
ve. AETB 
©... B096 
v0. AED 
©. . 0837 
ve. AC04 
oo. AC16 
ee. AC1O 
oe. AC13 
oe. AC0l 
ACOD, D078 
vo. Ac19 
22. AC07 
2. ACOA 
20. F4Ch 
2. 0584 
2.2.0504 
“0. 0924 
oe. 1087 
2... 1043 
“0. DOW 
0. 104D 
0. 105E 
2.0. A022 
“2. EOE6 
2.0. E2lA 
ve.  E205 
e 0. .  DFA4 
3728, BDAC 
3739, BDB5 
3731, BDAF 
BDA3, BDBE 
370E, BDA6 
37E9, BDC4 


inside out 


F5B 


INT ARITH, COMPLEMENT <hl> Pa a er 
INT ARITH, DVD; <hl>=<hl>/<de> ee 
INT ARITH, DVDu <hl>=<hl>/<de>; <de>=remainder .. 
INT ARITH, get SGN of <hl>; <a>= FF,00,01l » .. .. 
INT ARITH, MOD; <hl>=remainder (<hl>/<de>) ne 
INT ARITH, SUB; <hl>=<de>-<hl> Pa ee 


INT ARITH, unsigned to sign <b>; z=zero, c=+, m=negative 


INTERRUPT SERVICE ROUTINE (every 1/300 second) .. 
jp(h1), FAR CALL, (hl)=addr, <c>=ROM select .... 


jp(hl), low ROM or RAM, bit l4=lower, 15=upper ROM disabled 


JUMP RESTORE standard jumpblock ve. 0 00% 
keyboard edit line in edit buffer . ve... ... 
kick a ticker „oe... .... CE a Er a 
KL ADD FAST TICKER, put block (hl) 6ne6 list ... 
KL ADD FRAME FLY; (hl)=addr of block TE EEE ar er 


KL ADD TICKER, (hl)=tick block, <de>=initial count, <bc>=recharge 


KL ask CLASS <a> VERSION/MARK <hl> of ROM „2... . 
KL ask UPPER ROM selection <a> PR So a a er NE RE) 
KL CHOKE OFF, reset the kernel ar ee er er 
KL contains c006 = start of ROM . 2 cv ee 200% 
KL current upper ROM disable, <a>=prevoius ROM state 
KL current upper ROM enable, <a>=prevoius ROM state 
KL DEL FAST TICKER, remove block (hl) from the list 
KL DEL FRAME FLY, remove a block (hl) from the list 
KL DEL SYNC, delete block (hl) £from queue „vv... 
KL DEL TICKER, remove block (hl) from tick list . . 
KL DISARM EVENT block (hl) Pa er er a 
KL DO SYNC, perform SYNC EVENT block (hl) ..... 
KL DONE SYNC, (hl)=block, <a>=prev. priority ... 
KL EVENT CLASS OB IR Er Der yaR Dr Vor ao TOR HAT FE ar Ar ar Er ER 
KL EVENT DISABLE Dee er a Be 
KL EVENT ENABLE . . . .. Cu BE RT TEE Hr a} 
KL EVENT, kick an event blöck (hl) PR er 
KL FAR ICALL, jp(hl=param), <addr><ROM state> . 
KL FAST TICKER LIST pointer „ve ee ee 000%. 


KL FIND COMMAND (hl) in RSX or back ROM, =<c>ROM sel, 


KL FRAME FLY LIST pointer . x eve ee ee. 
KL get ROM address and call . vs eve ee 000% 


=(hl)routine 


KL INIT BACKground ROM, <c>=ROM sel, <de>=lomem, <hl>=himenm 
KL INIT EVENT BLOCK (hl)=block, <b>=class, <c>=ROM sel, 


KL INTERRUPT SERVICE CHAIN Dauer Bar a BE Er re 
KL INTERRUPT SERVICE CLASS Damee Ba vr Br Er EEE 
KL INTERRUPT SERVICE QUEUE DL SR er Sr ur ea 
KL jp(hl1) to a sideways ROM x ve ve ee ee ee 00. 
KL lddr, ROMs disabled PR SR u Er a a er A BE RR ER TENP) 
KL ldir, ROMs disabled ... PR a ee Ya SE TE ER 
KL link SYNC EVENT block (hi)=<addr>, <a>=class . 

KL LOG EXT, (bce)=RSX cmd table, (hl)=4 byte RAM area 
KL lower ROM disable, <a>=prevoius ROM state ... 
KL lower ROM enable, <a>=prevoius ROM state .... 


. 


(de)=routine 


37D4, BDC7 
377A, BDB8 
378C, BDCL 
37E0, BDCA 
3781, BDBB 
3730, BDB2 
3715, BDA9 
2.2. 00Bl 
001B, BIBL 
000B, B97C 
0888, BD37 
2. CA43 
2. . 0153 
017D, BCE3 
O16A, BCDA 
0183, BCE5 
2. BA83 
B912, BAA2 
005C, BCC8 
2. BlA9 
B903, BA68 
B900, BA5E 
0183, BCE6 
0170, BCDD 
0285, BCF8 
O1C5, BCEC 
028E, BDOA 
021A, BCFE 
0277, BDO 
ve. B195 
0295, BDO4 
0298, BD07 
O1E2, BCF2 
0023, BIBI 
©. . BI8E 
0282, BCD4 
2. BLSC 
20. B92D 
0332, BCCE 
01D2, BCEF 


0013, BAIO 
BIIE, BAAC 
BILB, BAA6 
©. . 022F 
02Al, BCDL 
B909, BA54 
B906, BA4A 


KL NEW FAST TICKER, (hl)=block,<b>=class,<c>=ROM sel, (de)=event routine . 0176 
KL NEW FAST TICKER, (hl)=block,<b>=class,<c>=ROM sel, (de)=event routine . BCEO 
KL NEW FRAME FLY, (hl)=addr, <b>=class, <de,c>=far addr 


KL NEXT SYNC, =(hl), =<a> prev. prio, =carry ... 
KL pointer to TICK LIST . 2» 2» 2 2 0 ee 0000. 
POLL SYNCHRONOUS, check for higher priority event 


.e. 


. 


. 


. 


.o0.%. 


. 


0163, BCD7 
0256, BCFB 
“0... B190 
“.. B921 


PREPARE TO CALL AN UPPER ROM; <c>=ROM sel, (hl)=entry addr O=default . 0077 


restore previous ROM selection, <c>=prev. POM, <b>=prev. state 


ROM RESTORE, <a>=previous ROM state eo... 
ROM select address » » ce ee ee ee ee 000%. 
KL ROM state to call Pa ee a Er EEE 
KL ROM WALK, (de)=low, (hl)=hi avail. memory ..o. 
KL RSX QUEUE Pe a a EEE 


KL 
KL 
KL private interrupt stack Dee a a BE 
KL 
KL 
KL 


huslik, cpc464 inside out 


. 


eo... B1l07 
B918, BASC 
B9OC, BA72 
“00 BIA8 


ZBRERBEEBRZERBERRERRBRREREBERRERBZRRRRERBRERBERERERBEREBAFFRFAÄRFERFR 


save for SP on interrupt service . 2 2 ee 2 ee ee. 
SELECT an UPPER ROM <c> Paaaee er a EEE 
SLOW TICKER COUNT Der Baar Taar Vaar Baar Baar er ar a EEE 
SYNC EVENT queue 2 2 0 0 0 ee en ee 
SYNC EVENT queuetl 2 0 00 0000er. 
SYNC RESET, clear synchronous event queue Dee Be Ba 
temp store for EXTERNAL COMMAND NAME on search ve... .%. 
TIME byte 0,1,2,3,4 ee ee ee ee ee ee... B1l87 
TIME PLEASE in <de,hl> ve 0 een er ern. 
TIME SET <de,h] 3 20 0 0 00H 0 a na eh 
used £or rst 3, FAR CALL «0 0 0 oe 0 1 0 0 0 0 1 0 0 0 1 0 0° 
allocate EXP BUFFER (de), <hl>=elen . 2 2 2 2 2 2 2 2 2 2 0 0 0. 
ARM BREAK, (de)=routine, <c>=ROM select PR NER an Baer er ER SR ER Er 
BREAK ENABLE FLAG Pe Er BE Er ee 
BREAK EVENT Tree 
caps lock state ee ee 
DISARM BREAK 0 0 0 0 0 0... 
event block BREAK a ne ne ae 
expansion buffer flag ee re ei ie en 
expansion buffer pointer vv oe ee er ee ee. 
expansion string flag and count ee ar en N ee 
function KEY expansion buffer Pe Br er er ae 
GET CONTROL entry, in: <a>=key#, out: <a>=translation ... 
GET DELAY key, <h>=start, <l>=rep. speed x ve ee ee 000. 
GET EXPANSION string, <a>=exp. token, <l>=charf#, =<a>char, =carry 
GET JOYSTICKs 1=<h>, 2=<1l> 2 0 0 0 ee er ren 
GET REPEAT key# <a>, nz if repeat SE EERE OR ea 
GET SHIFT entry, in: <a>=key#, out: <a>=translation er... 
GET STATE <h>=caps, <l>=shift lock 2 ee ee een re. 
GET TRANSLATE, in: <a>=keyf, out: <a>=translation er |... 
INITIALISE key manager 2 ev ee ee ee rer. 
KEY change state map . .» 
KEY control entry ... 
KEY last cycle state map 
KEY normal entry . ... 
KEY REPEAT MAP. oe ee ee re 
KEY repeat speed vv ee 0 ee rer Tree 
KEY shift entry Pe ar aa er a ar er a a ee a a a a a a a Er a a ar 
KEY startup delay re 
key state map (marks pressed keys by setting the appropriate bit) 
KEYBOARD ’put back” character ee 
pointer to end of expansion buffer +1 ee ee 
pointer to FUNCTION KEY EXPANSION BUFFER x... ee 000. 
READ aKEY 200 000 Tree 
read char from keyboard ee ee ee ee ee ie 
repeat key, pointer to table „2 vv ee re ee een. 
RESET key manager te ae ee ee 
RETURN CHAR <a> to put back’ location . vv ee ene 
SET CONTROL entry, <a>=keyf, <b>=enew translation «cv 2 ee... 
SET DELAY key, <h>=start, <l>=erep. speed «ve ee ee ee 00. 
SET EXPANSION string : vv ee en ee er er ee 
SET REPEAT key# <a>, <b>=0 = not ve ee er e er nre en 
SET SHIFT entry, <a>=keyf, <b>=enew translation «ce ee ee... 
SET TRANSLATE entry, <a>=keyf, <b>=new translation cv eve... 
shift lock state ve ee re er Tree 


.... 
. 


1B5C, 
c439, 
lAIE, 
1A77, 
1D5C, 
1C6D, 
1ABD, 
1CAB, 
1057, 
1052, 


.o. 


TEST BREAK or reset; in: interrupts disabled, <c>=shft/ctl key states 
TEST BREAK or reset; in: interrupts disabled, <c>=shft/ctl key states 


TEST if KEY #<a> is pressed ee ern en 
time count for repeat speed Paar aa ae Er 
translate control entry, pointer » ve ee ee ee een. 
translate normal entry, pointer Dee Ba er EB EEE Er EEE 
translate shift entry, pointer „x eve ee ee een. 
update key state map (every 1/50 second) «ever 0. 
WAIT CHAR from keyboard =<a> „ve 2 2 re ee een ee 


ICBD, 


1A3C, 


B1l05 
BATE 
B192 
B193 
B194 
BCF5 
B196 
B18B 
BDOD 
BD10 
BLAC 
BB15 
BB45 
B50C 
BB4B 
B4E7 
BB48 
B50D 
BADF 
B4ES5 
B4DE 
B446 
BB36 
BB42 
BBl2 
BB24 
BB3C 
BB30 
BB21 
BB2A 
BBOO 
B4F5 
B3EC 
B4AFF 
B34C 
B43C 
B4E9 
B39C 
B4EA 
B4EB 
B4EO 
B4E3 
BAEL 
BBIB 
1A42, B 
B547 
BBO3 
BBOC 
BB33 
BB3F 
BBOF 
BB39 
BB2D 
BB27 
B4E8 
IC2F 
BDEE 
BBIE 
B509 
B545 
BS4l 
B543 
1BB7 
BBO6 
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KM WAIT for KEY x ee 2 0 ee 002. 
last Basic ERROR nunber . 2... 2.00... 
last DATA linef . 2. 2:2 22220000. 
ld hl,FAC; set VARTYPE real; <a>=5 Pe: 
lddr Pa Er er BE 
ldir Pa er a a 
line# for ON BREAK GOSUB Dee BE 
link a block (hl) onto list (de) . .. 
list a basic line into the edit buffer . 
list of function routines „ce... .% 
load a file into store Dee a a En 
load as a Basic program „x ce. ee 0.20% 
load as Ascii file N RE 2er ie 
load pointer while LOAD . x. 2. 2 2 200% 
LOAD/CHAIN flag 2 2 22200000. 
LOAD/MERGE flag : . ... ie 
look for - (d=FF) or + (d=00) TR ee 
look for a NEXT entry on the Basic stack 

look for other tokens . vv 2 ee... 0% 
look up hardware# for colour <a> oo... 
low end of used string space pointer .. 
low memory boundary pointer „ve... 
mark end of name, set bit 7 x. 2 2 2.0. 
mark end of variable name . vv ee. 2... 
mask for four pixels in a byte eo... 
mask for one pixel in a byte Ve Da a 
mask for two pixels ina byte „vv... 
MC BOOT PROGRAM, load and run FOREGROUND 

MC BUSY PRINTER, if port is busy, =carry 


MC CLEAR INKS to one colour, (de)=ink vector 


MC PRINT CHAR <a> to Centronics port .. 
MC RESET PRINTER indirection er... 
MC SEND char <a> to PRINTER . x. 2.2... 
MC SET INKS, (de)=ink vector Pe ET ER TR; 
MC SET SCREEN MODE <a> FE Kr ER Ir ar ER FAT RR 


MC set SCREEN OFFSET, <a>=base, <hl>=offset 


MC SOUND REGISTER, send <a>=regif, <c>=data 


MC START FOREGROUND PROGRAM, (hl)=entry addr, 


MC WAIT FLYBACK vs ee 0000000. 


MC WAIT PRINTER, print char <a> or time out 


mode 0 ie nee 
mode 1 Cr ya ae Sr Gr .. | 0 0.0. 
MULTIPLY by 10., (hl)= (h1)*10. oo... 
name found, get pointer to entry (de) . . 
NAME SEARCH; if not used before make entry 
new line number . 2 ve ee ee 0.00. 


. 


. 


no change of ROM select, 1B6=lower, 1B7=upper ROM disabled 
not used so far . . BOC7, BlBA, B209, B323, B347, B549, BIEA, 


not used so far? may be doch! . ..... 
number edit buffer ee ei 
number edit buffer index CIE ER TE SE Ra 
numeric expression Dee er a  e 
ON <expression ve ee een... 
ON <expression> GOTO or GOSUB . . .... 
on board ROM Pe er BE EEE ee 
ON ERROR address EURER EEE 
output ”,’ and take next expression . . . 
output CR ’LF to printer eve 00. 
output CR ’LF to screen .. v2... 
output ’CR ’LF to tape Dr Er er 
output °LF and restore old channel ... 
output ’LF to channel . . 22.2.2020. 
output channel number „ve ee 2.00%. 
output char <a> to channel Dr ES 


huslik, cpc464 inside out 


AE46, 


1856, 


BB18 


output 
output 
output 
output 
output 


P, save as protected file . 
perform <hl> [AND) <de> .. 


char <a> to channel FE 
char <a> to tape „oe ee... 
char <c> to printer; update POS 

text (hl) to channel . ..... 
text in "" 220200 ee 


... 
. 
. 
. 
. 
. 


perform <hl> [MOD] <de> „2 2 2 2 202% 
perform <hl> [OR] <de> re ae, Ne 
perform hl> [XOR) <de> . 2... 00% 


perform a BBEK . ve... 0.0. 
perform a direct command er 
perform [*] (multiply) een a 
perform [+] (plus) een 
perform [-) (minus) „2.2... 


perform [/] (devide) „2222000. 
perform [NOT] <hl> .. a ar 
perform [\] (devddasinteger) ..... 
perform [”])] (power) „ve ee. 200 
perform an error break Dar er Er re 
perform an error break Omen. 
perform an EXTERNAL CALL Lee 
perform asyncronous event (s) . . 
perform command DIM <name> (aeindersist 
perform comparsion <hl>=<de?? ..... 


perform EDIT line# <de .... 


perform either ldir or lddr .. x... 


perform ERROR <e> routine . . . 


perfor 


m ERROR <e> routine, part 2 ..» 


perform function CINT x ce ve oe 22 0. 
perform function on en oo... 
perform LIST oo... . eo... 
perform normal RETURN, part 2 Pe era ee 
perform output char <a> to <device> .„. 
perform plus [+] constant 0-9 . x... 
perform plus [+] VARIABLE «vv ec... 
per£form RETURN from EVERY/AFTER . . . » 


performs ALLOCATE EXPANSION BUFFER 
performs command NEW Sl 
performs NEW, part 2 u 
performs reset KM, part l ....» 
pointer to BASIC STAK . . ... 
pointer to FN subprogram oo... 
pointer to next data eo... 
pointer to start of string stack 
pointer to tape buffer, lower end 
pointer to tape buffer, upper end 


POS(printer); # of char’s written this 
POS(tape); # of char’s written on this 


predefine VARTYPE 
print ’BREAK’; if RUN: 
print 


‘in <line#> 


"<b>...’<c> to <a> 


print a char (hl) to output channel 


print a variable Pa a a a er) 
print line# 
print message in (HL) . ..... 
print message, if any; CHRGET . » 
print text (de); if RUN: 
print text (hl) and line# <de> . 
print this line „x cv ee 000.0. 
proceed with parameters .... 
proceed with token after SWITCH . 
produce a digit ve ee. 00. 


index 382 


‘in <line#> 


“undefined line <line#> in <line#> 
print <a> spaces to current channel 


eo... 


..0.o. 


.>]), <name>( 


eo. 00.0. 


C356, C36E 
C40D, C3F8 


C3B5 
C341 
F499 
EC3D 
FD58 
FD49 
FD63 
FD6D 
CB6B 
coc2 
FCF5 
FCCC 
FCEL 
FD12 
FD77 
FD37 
D4F4 
DDA8 
CB76 
FLAO 
010A 
D7B5 
CFA9I 
c056 
BAC7 
CA94 
CAA4 
FE93 
D50A 
ELOD 
C8B6 
c35C 
DO2C 
DOOD 
C8A4 
1A81 
C13E 
C16B 
ICED 
AE27 
AE2B 
AE3O 
BOIA 
B092 
B094 
AC23 
AC25 
D601 
cB33 
CB18 
F295 
El45 
F2OE 
EE79 
06EB 
DB89 
CB36 
CB48 
F828 
1427 
D080 
F12E 
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produce 
program 
program 
program 
provide 


a random nunber 2. ee eve... 
counter on error break Pa 
counter on RUN Pe 
load failed . vo ve 2... 000%. 
result of comparsion, -1,0,+1 ... 


put 0 in edit buffer and read a line ... 


PUT CHAR <a> into Basic line (de), inc de, dec 


PUTCHAR to (bc), update count and pointer . 
rad a char from input, test EEF ...... 


RANDOM 


read 
read 
read 
read 
read a 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 


REAL 


release 


a char 
a char, 
a char, 
a line 

line 


ARITH DVD; 


ARITH, 
ARLTH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARLTH, 
ARITH, 
ARLTH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 

ARITH, 
ARITH, 
ARLTH, 
ARITH, 
ARLTH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARLTH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 
ARITH, 


release 1/0; 


release 
release 
release 


string, allocate new one, copy 
tape input buffer . ve ee... 
tape output buffer Pr ee rer 


NUMBER byte 0,1,2,3 ein 


from input file „2.2020. 
ignore ’blank, ’tab, ’LF ... 
skip ’LF after "CR «co... 

from tape to edit buffer ... 

into edit buffer Pa Be 

(hl)=(hl)/(de) Pe a er 
2% 2.  2ESE, 2ESE, 2EB6, 2FID, 

ADD, (hl)=(hl)+t(de) ve... 
ATN (hl) Paar ar a a a a Er er 
CINT; <hl>=int (hl); <a>=sign . 
COMPARE (hl),(de); <a>=FF,00,01 
COMPLEMENT SIGN (hl) eo... 
COMPLEMENT SIGN (ix) N 
copy (de) to FAC3 v2. 0... 
copy (hl) to FAAl „vo. e 2... 

copy (hl) to FACI3 ...» er 
copy (hl) to FAC2; mult ur (de) 

copy constant 1. to (hl) ... 
coS (hl) PR ee le 

CREAL (hl) 4 byte. integer to real 

CREAL <hl> to (de) ... .. 

EXP; (hl)=(hl)" (de) » oe. 2... 

FIX (hl) Da ar a a a a 

get EP x. 22 ee. 

get last RANDOM NUMBER (hl) . . 

INT (hl) DEE Ba ar a 

LOG (hl) ee, ee 

LOG10 (hl) ... Pa er 

MULT, (hl)= (h1)*(de) oo... 

PL (kb) se. 00000 ne 

RANDOMIZE 2» 2 ee ee een 0.. 

seed RANDOM NUMBER Dr Er 

set DEG/RAD <a> . 2. 22200. 

set initial RANDOM NUMBER . » » 

SGN (hl); <a>=FF,00,01 eo... 

SIN (hl) Pa BE N TE NE 

SQR (hl) ” 0.5 er ee 8 

SUB (hl)=(de)-(hl) 0.0. 

SUB, (hl)=(hl)-(de) «ve. 2... 

TAN (hl) tee 


buffer eo... eier ne se 


get <eilanenası OPENIN x... 


remove bit 7 £from last char . vv... 
remove cursor, validate, scroll up oo... 
remove old cursor, place at new location . 
remove old cursor, place at new location . 
all VARIABLE pointers „ve. 0... 


reset 
reset 
reset 


reset 


all VARIABLE pointers 


all VARIABLE pointers to basic start 
reset Basic 
BASIC pointer; test AUTO; wait for input 


or Te te... 
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. 


. 


string from 


. 


to Basic start, elaar ADDO. 


(FAC) 


„ BD55 


ee. 2FFA 
e 0.  ADAB 
ve. AE34 
22. 06E8 
“2. CFAF 
2.“ CA3B 
©. . DF25 
ee. EIFE 
©... DC66 
B8E4, B8E6 
oe. 0424 
«ee . DC9D 
22. DCAB 
2. CA4C 
DBAD 

349E, BD64 
3578, BD67 
333F, BD58 
3241, BD91 
2E66, BD46 
3594, BD6A 
35F8, BD6D 
“0. 35FB 
ea 3317 
2. 330F 
2.2. 3316 
“0. 331D 
i 3328 
31B2, BD8B 
2E55, BD43 
2E29, BD40 
310D, BD7C 
2EAl, BD4C 
3090, BD85 
2FE6, BDAO 
2EAC, BD4F 
3014, BD7F 
300F, BD82 
3415, BD6l 
31A3, BD76 
2FB7, BD9D 
2FAl, BDIA 
31AE, BD73 
2F94, BD97 
35E8, BD70 
31BC, BD88 
310A, BD79 
333B, BD5E 
3337, BD5B 
3231, BD8E 
20. F675 
oe... EB8F 
ve. FB59 
©. .  F66D 
2. E67 
“0. E2OF 
ve. 1148 
... 2CCD 
©. .  2CD2 
©. .  CISC 
“0. DS5AE 
ee. DSB 
C064, CB9O 
2.0096 
383 index 


reset BASIC program counter „ee... .. 
reset BASIC STACK  . oe 2 0000000000. 
reset CONTinue pointer Pa ar ar Er a 
reset DATA pointer to basic start . x...» 
reset flag for AUTO oo 00.000. 00% 
reset FN pointers as not used .... ... 
reset FN subprogramm pointers to zero in .. 
reset last error# to 0 Pe EEE 
reset line MARK, basic end=start eier. 
reset ON ERROR ADDRESS RL 
reset ON ERROR FLAG and ADDRESS . x... .%. 
reset pointers; program, error, data oo... 
reset string stack Pa Baar BE Er 
reset string stack, FN pointers, 1/O chan=0 . 
reset to default inks and times of flash period 
reset to RAD Der Bar ar er Be BE 
restore previous ROM state Ce Se ar Su ar a ar ae 
restore SP and HL after return from CALL .. 
result is zero .. . EB 
ROM MARK#, VERSION#, REVISION LEVEL . . 0... 
ROM selection on CALL FR u 
rst 0, SYSTEM RESET x. ce... 02020 Pe 
rst l <addr>, LOW JUMP, bit 1l4=lower, ae 


l. 


ROM disabled . 


rst 2, call to a sideways ROM <addr>, bit 14/15 select 


rst 3, FAR CALL (hl=param), <addr>, ROM state> 
rst 4, RAM LAM, 1d a,(hl) with ROMs disabled 
rst 5 <addr>, FIRM JUMP, jump to lower ROM . 
est 6, USER RESTARTT oc 00 0 0 0 0 0 0 0%. 
rst 7, INTERRUPT ENTRY coocoocenncoonennnnnnee 
RUN LOOP, part 2 vv oe ee ee 010000. 
save Basic PC on STOP or END ee 
save for Basic PC on BREAK (within event block 
SAVE for CURRENT ROM STATE Tr Er 
save for semicolon on PRINT ... . 
save HL on CALL ve ee e 00%. . 

save on GARBAGE COLLECT «vs ce ee ee 00 00° 
save PC and register <c>,<de> on BASIC STACK 
save pointers if program isn’t ended 0.0. 
save pointers on STOP or END Ber ie (ale 
save SP on CALL «ve 2 ee ee 2er. 
save subroutine addr @ queue+1N. or.‘ 
SCR ACCESS, set write mode <a> for graph VDU 
SCR base of RAM for screen Se are see e 
SCR CHAR INVERT, (hl)=char pos, <b,c>=inks . 
SCR CHAR LIMITS, <b>=columns, <c>=liness ... 
SCR CHAR POSITION conv phys coord to screen pos 
SCR CLEAR screen to ink 0... ee 0000. 
SCR current pixel bit ap vv ee. 00% 


the ROM 


SCR DOT POSITION convert base coordinates to screen position 


SCR FILL BOX, <a>=ink, <hl,de>=corners RER" 
SCR flag ae ee se ei .. 
SCR flag which flash period is on (l or 2) . 


..o. 


oo. 


SCR FLOOD BOX, <a>=ink, <hl>=left top, <de>=width/height Per 


SCR FRAME FLY LIST ee ee ee ee 
SCR GET colour of BORDER Pe a a 
SCR GET colour(s) of INK, =<b,c> a are 
SCR GET FLASHING PERIODS <h,1> De a 
SCR GET LOCATION of screen =<a>offset, =(hl)off 
SCR GET MODE <a>, cp Ol x... 2 ee 2 00 0. 


set 


. 


SCR HARDWARE SCROLL, <a>=ink for new line, <b>=0=down, 
SCR HORIZONTAL line plot, <a>=ink, de=xbase, bc=xend, hl=ybase 


SCR INITIALISE screen pack ri 
SCR INK DECODE, in: <a>=encoded ink; out: <a>=i 
SCR INK ENCODE, in: <a>=ink#, out: <a>=encoded 


index 384 


nk# 
ink 


else up 


. 
..o.. 
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ee ae DOC 
ee.  FS8E 
ee 3er ers. CBAB 
sbu:ss.0s. is. DGES 
ee... 6003 
ven... DIMD 

een. DA 
sie nen CABh 
rote 8 0x E676 
ee ee. CBDD 
ee... CBDI 
ee 17 
et ee ie  FBB3 
ve... C162 
ee... 0002 
0.8080 CI5E 
een ee BIIF 
ter PIEA 
en. 2E8A 
een 0001 
ses uee AB 
res 0000 
©... 0008, B982 

“0010, BAl6 
“0. 0018, BIBF 
“2. 0020, BACB 
2. 0028, BA2E 
a ante 0030, 
2.2222.0038, B939 
ve e 00. DD 
aa ae ana ADAD. 
nes. A036 
Sen een 0028 
ve. AED 
an wnw ARTS 
ee ee. BOBF 
eos... C6R6 
ee CBBO 
Sue ne CB93 
ie se. ABI7 
enter nl 086 
“0. 0049, BC59 
Ss ee ie BICB 
© 0. ODDF, BC4A 
“0. 0857, BC17 
“0. 0B64, BCIA 
OAF7, BC1l4, BDEB 
ee. BICR 
“2. OBA9, BC1D 
“0. 0DB3, BC44 
5 oe 9 "BIRC 
See ee. BIFB 
© 0. 0DB7, BC47 
es nee BIFE 
© 0. 0D19, BC3B 
“0. O0D14, BC35 
2. OCESB, BC4l 
©. 0850, BCOB 
© 2. OAEC, BCll 

. . ODFA, BC4D 

. . OFC4, BC5F 
©.» OAA0, BBFF 
0. 0CA0, BC2F 
“2. 0086, BC2C 
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SCR NEXT BYTE, step screen addr (hl) right one byte . » «2 0... OBF9, BC20 
SCR NEXT LINE, step screen addr (hl) down one line eo 0.0.0.0. 0. 0C13, BC26 
SCR offset to screen start ae een een ae BICA 
SCR PIXELS write, FORCE-mode 0, NEW=INK, (hl)=scr addr, <b>=ink, <c>=mask O0C6B 
SCR PIXELS write, FORCE-mode 0, NEW=INK, (hl)=scr addr, <b>=ink, <c>=mask BICC 
SCR PIXELS write, ignoring write de ve 2 ee een ee ee. . BC5C 
SCR PREV BYTE, step screen addr (hl) left one btte «ee... 0. . 0C05, BC23 
SCR PREV LINE, step screen addr (hl) up one line ee. 0.0.0.0. . 0C2D, BC29 
SCR READ a pixel from the screen, (hl)=addr, <c9=mask . x... . . 0C82, BDES 
SCR REPACK char matrix to standard ee 00000000. 00. . BC56, 0F4I 
SCR RESET screen pack «ve ee ee ee ee een een een ee ee. OABL, BCO2 
SCR screen de 2 2 2 2 er ee een ee ee een ee ee ee. BIC8 
SCR SCREEN START ne a re eee aar LBLC9 
SCR SET BASE of screen RAM <a> a ne ie 0865,08 
SCR SET BORDER, <b,c>=colours «ee ee ee. ee ee een ee. OCFl, BC38 
SCR SET colour of INK, <a>=ink#, <b,c>=colours eo 00.0.0... . OCEC, BC32 
SCR SET FLASHING PERIODS <h,1> “eo. 0 0000 ee en... ec LOCE4, BC3E 
SCR SET MODE <a> ee ee 0000 0.0 0.0.0... DACA, BCOE 
SCR SET OFFSET (hl) of screen start ve ee ee. 0.0. ee 0 . 0B3C, BCO5 
SCR table of colours, flash period 1 Per Er ee ee 00.0.0. 0.  BIlDI 
SCR table of colours, flash period 2 ii ee eo 0.0.0. 0.  BIEA 
SCR time for flashing period 1 einen ee 0.0.0.0. BIlD 
SCR time for flashing period 2 De ae a Er Er Ze .. 
SCR UNPACK, (hl)=matrix address, (de)=destination « «ee oe... . OEF3, BC53 
SCR VERTICAL line plot, <a>=ink, de=xbase, bc=yend, hl=ybase « . .  102F, BC62 
SCR WINDOW SCROLL up or down on 0 00000000... ee . DOEIE, BC50 
SCR WRITE pixel(s) (hl)=addr, <c>=mask, using curr graph write mode 0C68, BDE8 
search <a> in table(hl); =carıy «ve ee ee ee ee ee en ee 0.  FFAA 
search <a> in table(hl); hleaddress - » «ve ve ee ee ee ee ee ee. . FF93 


search for a FN function name » vs ce ev ve er er er ee een... «ee. .  D6DE 
search for line# within text Deren 0000... E86 
search line# <de> from start, <hl>=addr, nc=error «ve ee... 0. .  E79A, E7A3 
search line <de>, <hl>=address, =caltly «2 ee ee ee ee een ee. E7A 
search line# <de>; <hl>=saddress » «ee ee ee ee ee ee ee ee ee. E7CL 
search name, check (), a=b=c=VARTYPE Or are ar .. ee... D6D6 
search TOKEN or OPERATOR <a> in table » ce ve ve ee ee ee ee ee ee. . E2ED 
select ROM and jump to routine «ee ee eeeeeeeeeenen nenne BIAB 
select ROM STATE le ee ee ee, ee a OO2C 


set all inks to present flashing period ce ee... ee... 0... ODAF 
set BASIC program counter to <hl> «ve. ee een ee ee ee ec. DDCE 
set BASIC STACK pointer to <hl> „ve ee ee een een een ee. F5AC 
set bit in <a> to mask or comppare «ve ve ee... een ee een ce. 1CCD 
set chan 0, print char <a> at a new line ee eeeeneenen.. C386 
set cursor to col 1, print linefeed vs ee ee een eeeenee. 277B 
set cursor to colum 1 Dee een een een... 2783 
set DATA pointer to HL Doreen ee... . DDI2 
set default printer WIDTH 132. een een een... C337 
set default VARTYPE A-Z to real » 2 ce ve ee ee ee ee ee ee ee ee D5FC 


set default ZONE to 13. 2 2 ee ee ee een ee ee ee... FIF2 
set entry, if argument present ee ee ee nn. . D4EA 
set exp REAL(ix+4) to 0; set carıy; hleix «eve... eeee een.  36E6 
set FAC to (-1, 0, +1); <a> was FF,00,01 ee ee 0000... . . FFOS 
set FAC to <a> and mark Integer » » ve ee een een ee. .  FFOA 
set FAC to <a>, mark integer, CHRGET Pa EEE ı 1773 3 
set FAC to <al> and mark integer ee ee 0.00 ee... 0. . FD60, FFOC 
set FAC to <de® ve 2 ee ee ee ee ee ee ee een ee ee... DO2S 
set FAC to <hl,de> and normalise to real eo. 000000000... . FETT 
set FAC to <hl> and mark integer Pe ee Er Er u 2 i ı) 
set FAC to all zeroes - » 2 ee ee ee ee ee ee ee ee ee. ee. . FER3 
set FAC to VAL of next 2 bytes ee ee ee ee... ee... . DO4I 


set FAC to VAL of next btte ve ee ee ee een een ee. DOLE 
set flag for AUTO x se ee ee ee een een een een ee ee. COD6 
set in/out channel t0O » vs 2 22 een ee een een een een. CI 
set input chan to <a>, a=old channel ee een een... CIAF 
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set KEYBOARD ’put back’ to be empty » ve see. ee rennen e ee 1A75 
set loadpointer to <startaddr>, if present ee ee... EA2L 
set low string end up to himem „2.2 ee ee een ee. F5CA 
set output channel to <a>, a= old channel „. . . 2 ee ee... ee... CIA2 
set PAPER/PEN to <hl>, set default window » ce 2 2 2 ee... ee...  113D 
set REAL(ix) to: FF,FF,FF,(<b> and 7F),FF oo ee ee. ee ee een...  36EE 
set speed WRITE <speed® «2 2 en ee ee een ee ee een ee ee. DAC3 
set speed, KEY or IK « oe oe 0 ee ee ee een ee ee een ee ee D4AB 
set SYMBOL AFTER <de® «2 0 ee ee ee ee ee ee ee ee ee ee...  F706 
set up a jump instruction according to write wde «ve ve 2 ee ee...  0C5F 
set up all default events 2 2 2 ev ee een ee ee ee ee ee. C8ED 
set up current pixel bitmap, mode=<a> „ve. ee. ee. ee een ee. OBll 
set up env sequence <steps>,<step>,<pause> ee ee. ee 0.0... 0 . D3D8 
set up jump block «ve 0 ev ee ee ee een ee een e een 0. 0897 
set up pixel bit map for mdel .... ee eier. ee LOAFZ 
set VARTYPE <a>, copy VARIABLE (hl) to Fa een...  FF4B 
set VARTYPE integer, <a>=old VARTYPE ee ee een... ee ee.  FEAS 
set VARTYPE integer; <a>=2 ee ee ee ee ee... .  FFIO 
set VARTYPE real een en ee een ce DIII,-FELI 
shift all Basic pointers up by <bce> „vv ee ee ee. ee ee een en.  P52C 
shift DIM’d VAR pointers up by <bc> ... een eeee ee  F53A 
shift rest of buffer up/down matching new jan Pa | \) 
skip over "tet" 2 0 0 0er ee ernennen een ee. EISC 
skip over a statement element 2 ev ee ee ee ee ee ee ee ee ee EI43 
skip over command «ve ev ee ee ee een ee een. FIAE 


skip over constant Deere een...  EI78 
skip over EXTERNAL CMAND ee. ee een een ee ee. EITO 
skip over statements till [ELSE] or <line end> ee 00 ee... . 0  ES8IF 
skip over variable va a Eee ee er BI 


skip statements, count IF’s and ELSE’s ver ereeeeeeee 0... EBA2 
SOUND amplitude envelope ae ae ne ren wa BODA 
SOUND ARM EVENT, <a>=channels, (hl)=event block « «ee 0... . . 2089, BCBO 
sound chan | (bit 0) Teen ne ee AC38 
sound chan 2 (bit 1) SEE ana ae Ach 
sound chan 3 (bit 2) Be er Blei ee ee ie Ach. 
SOUND chan-stat ve 0 ee ne er ee een een ee ee ee. ADB2 
SOUND channel bits of active sounds «ve ee ee ee ee. ee ee. ee. B552 
SOUND CHECK for space in <a>, <a>=status een nee. .  206C, BCAD 
SOUND CONTINUE stopped sounds «ve ee ee ee ee een een ee. lEE6, BCBI 
SOUND envelope address ?? x ve ee ee 000. . ee. ADBC 
SOUND event block «vv ee ee een. . ve... B555 
SOUND flag ?? x ee ne ee. eo 0000. .  B550 
SOUND get AMPL ENV ADDR, <a>=env#, (hl)=addr . . oe 0. 2349, BCC2 
SOUND get TONE ENV ADDR, <a>=env#, (hl)=addr ee ee...  234E, BCC5 
SOUND HOLD, stop all sounds «ve ve ee ee ee ee een een en. LECB, BCB6 
SOUND noise «ve ee ee ee ee ee ee ee ee ee ee ee ee. ADB 
SOUND period DE Eee Er ADB 
SOUND queue +3 (tone period) ne ee ee en en BISE 
SOUND queue +5 (noise period) . » a ee een ie Bl 
SOUND QUEUE, add a sound, Inliesdind program een ee. ee. LFIF, BCAA 
SOUND QUEUE, channel A, (first entry), channels to use ee... 0.  B55c 
SOUND QUEUE, channel B Pe a u re Gr ee >; ) | 
SOUND QUEUE, channel C een een nee ee ec.  B5DA 
SOUND RELEASE, <a>=channel(s) . een eenee nee.  204A, BCB3 
SOUND rendenzvous byte ?? x 2 2 ee ee ee ee ee ee ee een en ee B554 


SOUND RESET «ve. ee 00%. een nee e ee. .  1E68, BCA7 
SOUND save for active sounds .. Dee ee Bl 


SOUND set AMPL ENVELOPE, <a>=envf, (hiyedata een ee ee... . 2338, BCBC 
SOUND set TONE ENVELOPE, <a>=envi#, (hl)=data vo eeee ee. 0  233D, BCBF 
SOUND TICK (every 1/300 second) « 2 ce 2 ee ee ee een een ee. 1F6l 
SOUND time ee ee ee ADBI 


SOUND timer count for 1/100 second ee ee ne 3333 
SOUND ton-env 2 2 0 0 0 ee ee ee ee ee een ee ee ADB4A, B6FA, ADB3 
SOUND volume Dee een een een. 0. ADBB 
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space left between low string/upper DIM’d VAR 
start of BASIC program -1 pointer . ev... 
start of BASIC STACK Pe Er 
start of DIM’d VAR table pointer .. eo... 
start of VAR table pointer —.. nr nl. 
step for AUTO v2 2 2 2 0 ee een. 
store error# and error address oe 00... 
string stack DIsR Tr ur a ER) uE ur er RT ar Er GR SR 
SYMBOL images, start of table .. ve... 
SYSTEM SAK ve 0000.00 nn. 
table of arithmetic functions, <priority>, 
table of colour hardware numbers PR 
table of constants 10. . . 1E+13 .... 

table of cursor functions and ’BEL ... 

table of filetypes A BP Paar Br Ba ES 
table of function key routines ner a, lene ne 
table of operators ",\,>=,=>,>,=,<>,<=,=< 


tape buffer flag CIRER ET ar Baar BT TOR: Br ar er BR 
temp storage BASIC STACK pointer ... 
temp store for char „vv ee ee 0000. 
temporary string descriptor „ee ee... 
test <a> for °.’ or digit, =-CARRY » ce... 
test <a> for A-Z, =carry nn rein 
test <a> for digit, =carry .. Pa re 
test <a>=VARTYPE? if not CINT, CREAL .. . 
test AUTO flag; (print line#); wait for Input 
test end of text or buffer FE a Pr I RE 
test expo (hl); z=zero, c=neg; ix=hl ee 
test exponent (hl), cp with <b>; set p,z,c . 
test filetype and load inputfile or... 
test for ELSE or THEN in this line; z=found . 
test len of string; copy temp to stack ie 
test line for ELSE or THEN; error if pgm ended 
test previous <b> char’s for SP,HT,CR,LF .. 
test VARTYPE for string, else error ..... 
tick an event (called after: ex af,af’) ... 
time count for current flash period ..... 
TIMER, block #0 (4 blocks total) . . vs... 
TOKEN = + ( NOT ERLFNMID$@ vv... 0000 
TOKEN: COMMA SPC TAB SEMICOLON Der a ar a 
token: DATA DEFINT DEFSTR DEFREAL . FE a 
token: RESTORE RENUM DELETE EDIT RESUME ... 
trace print ’[<linef>]” 2 eve een 0. 
try allocate space for new string » «ve... 
try delete string from string stack .. ... 


’ ’ 
table of predefined VARTYPES -41 (A) «ve... 


. 
. 
. 


* 


try to release string (FAC); <a>=1len, z=zero len 
try to release string at low end of string space 


try to resume after error break .. ev... . 
TXT address of BACK/FOREGROUND routine . .. 
TXT buffer for unpacked char matrix .. ... 
TXT clear char at cursor position ..v . ev... 
TXT CLEAR current WINDOW ih 


TXT clear line from cursor to end «ve... 
TXT clear start of line incl cursor . ve... 
TXT clear window from cursor to end » ve... 


TXT clear window from start to cursor ...v» 
TXT colum, window left upper corner ee 
TXT colum, window right bottom corner 9.82% 
TXT control code buffer for up to 9 parameters 
TXT control code buffer index ve... r. 
TXT current text stream selected or... 
TXT CURSOR colum/row 2 2 2 000000. 
TXT CURSOR DISABLE (user) ce ee. 00.0. 
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<jp addr> 


..o0.. 


eo... 


.. .  F628 
“eo. AE8l 
ee. AE8B 
eo. AE87 
eo. .  AE85 
ee. ACIE 
oe. . CA85 
“0. BOIC 
eo. 3800 
oe... BFOO 
oe. CF& 
eo. 0D93 
oe... 2F53 
oe. .  2BIC 
“eo.  EC2C 
“ee.  2AEO 
“0. E64B 
eo. . AE0OC 
eo. BOI 
oe...  AE32 
eo. AE6E 
oe 0. .  BOBA 
eo... FFIF 
FF7l, FF7B 
oe. .  FF83 
eo. . FED? 
“eo. C099 
“ . .  EOB3 
“0. 356C 
e 0. . 3307 
ee. EBAß 
“ee... E9I35 
eo... F7DC 
oe...  E923 
... .  F80F 
“ee.  FF3C 
... 0189 
“0.  BILFD 
eo 0. AC5C 
eo. CFF2 
... F224 
eo.  DF30 
“eo.  DFDC 
ee. DDEB 
eo.  F5E6 
ee. .  FBFF 
“ee. FBDA 
eo. FBEB 
eo.  CC2B 
“eo.  B291 
oe... B298 
ee.  154F 
1540, BB6C 
. . 1584 
oe. .  158E 
eo. 1556 
“0. 156D 
. B289 
ee. B28B 
“0.  B2B9 
ee. .  B2B8 
ee. .  B20C 
B B285 
1294, BB7E 
387 index 


cursor down one line Der a Er I a Eee 
CURSOR ENABLE (user) Pr er 
cursor enable flag (user) . 2. 2.2.0.0 0% 
cursor HOME «ev 02 2 0 001 e. 
cursor left one step . Pa a 
cursor LOCATE eolummstde), line>(de+l) ee 
CURSOR OFF N ee N We 
CURSOR ON 2 0 0 0 0 0 0 er re. 
eursor right one Step «vv ee een. 
eursor to start of line „vv ve ee ee ee 0.0. 
cursor up one line Pa a a Er 
define window, <left>,<right>,<top>,<bottom> we 
DRAW/UNDRAW CURSOR, if enabled Pe a a ES 
first char of user matrix table . .. 
flag for user matrix table ie ae ne 
flag graphic char write „ve... 
flag VDU enable „ve... 
GET char <a> MATRIX, (hl)=address, carry=user . «. 
GET CONTROL code table addrr 2 ve ee ee 0 0. 
GET CURSOR position (hl), roll count <a> PEN 
GET if BACKground is being written <a> u 
GET PAPER ink =<a> Pe ar a 
GET PEN ink, =<a> „ve 2 er een. 
GET user MATRIX TABLE (hl)=addr, <a>=first char in 


table 


GET WINDOW size, <hl>=left top, <de>=right bottom corner 


INITIALISE text WU . v2 ee ee ee 000. 
INVERSE, swap PEN/PAPER ink v2 ce ee. 
OUT ACTION, char or ctl code <a> to WI ..... 
OUTPUT char or ctl code <a> to VDU Fe eu ae 
PAPER ink 2 oe 0 ee er ern. 
PEN ik 2 2 0 0 0 00 ren. 
PLACE/REMOVE CURSOR on screen . . . ie 
READ char from screen RE Es, scarry 

RESET text VDU er... ... 
reset to default control code babe . 
ring the bell . vv ce ee ee 00. 
roll count ee ee 
row, window right bottom corner ve eve... 
row; window left upper corner vv ever 0. 
SET BACKground being written <a> ee ee 8 
set border <colour>[<colour?]) ve ee ee 00. 
SET char MATRIX, <a>=char, (hl)=matrix to set . » 
SET cursor to COLUMN <a> ne ee 
SET cursor to ROW <a ve ee een. 
SET CURSOR, <hl>=colum/row : . ... aan 
SET GRAPHIC char write, <a>=0=OFF, FF=ON oo... 
set ink, <PEN>,<colourl>, [<colour2>] en 
set matrix for user <symbol>, 8<byte matrix> .. 
SET PAPER ink <a> „ve ee ee 1 ee en. 
SET PEN ink <a> ... . 20. er 0 ae . 
SET user MATRIX TABLE adde (de), (hl)=new table. . 
SET WINDOW <hl>=left top, <de>=right bottom corner 
set write mode 2, O=off, leon «ve... 
start of user matrix table Pr Dar re er 
STREAM <a> SELECT, <a>=old text stream Pa 
SWAP STREAMS <b> with <c> „v2 ee een. 
table for text stream parameters (8 times) ... 
UNWRITE CHAR, read screen <hl>=col/row, =a> . 
VALIDATE cursor position <hl> colum/rw ...«. 
VDU DISABLE sv 0 ee ee ee ern. 
VDU ENABLE Pa a a EEE 
window flag; O=whole screen ce. e0 00. 
WRITE CHAR <a> on screen, <hl>=pos Br rer 


undefined TKEN » 2 2 ve ee nr ne ne een. 


index 388 


. 1344, 


huslik, 


2780, 


1268, 


BDD3, 


1203, 
l4CB, 
1180, 
1387, 
1203, 
12BD, 
132A, 
1256, 
1078, 
1209, 
140C, 
BBSA, 
BB8A, 
13AB, 
1088, 


137A, 
12Fl, 
L15E, 
1169, 
1174, 
13A7, 
12AE, 
1249, 
L2FD, 
120C, 


10E8, 
1107, 
13C0, 
LICE, 
144B, 
1451, 


1334, 


oo. 


1514 
BB7B 
B28D 
152A 
150A 
1538 


‚ BB84 


BB8l 
150F 
1530 
1519 
14F8 


‚ BDDO 


B294 
B295 
B293 
B28E 
BBA5 
BBBl 
BB78 
BBA2 
BB99 
BB93 
BBAE 
BB69 
BB4E 
BB9IC 
BDD9I 
c399 
B290 
B28F 
BB8D 
BB60 
BB51 
145B 
14D8 
B28C 
B28A 
B288 
BBIF 
l4Fl 
BBA8 
BB6F 
BB72 
BB75 
BB63 
14E8 
1504 
BB96 
BB9O 
BBAB 
BB66 
14E3 
B296 
BBB4 
BBB7 
B20D 
BDD6 
BB87 
BB57 
BB54 
B287 
BB5D 
DDC3 
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undraw cursor, if enabled ... ee... 


Unknown token after switch .. ... 


unlink a block (hl) from list (ae) .. 
update predefined VARTYPE table .... 
upper bound for string space pointer . 


upper end of DIM’d variables pointer . 


use standard symbols Be m ar er a 


used by DEF FN and FN only ?? ..... 


used by DELETE <line#>, lower addr .. 


used by DELETE <line#>, upper addr .. 


used by FOR vv ee ee 0000. 


used by FOR ?? re ea er ie 


used by GARBAGE COLLECT  . so... 0.0. 


used by LOAD, CHAIN „2. 2 20.000. 


used by ON ee ar ee ie 


used by WHILE, WND ve... 000% 
used on GARBAGE COLLECT «x vs... 0%. 
validate COPYCURSOR, reset if illegal . 


validate cursor, scroll window up ... 


variable not yet used, insert pointer . 


VARTYPE 2 se 200er. 


wait for condition Pa BEE a ar ER) 


what VARTYPE is VAR NAME?, set VARTYPE (FAC) 


WIDTH £or Printer . ve ee ee 00000. 


write BACKGROUND/FOREGROUND . . .. . 


write mode l: XOR-mode, NEW=ink XOR o18 
write mode 2: AND-mode, NEW=ink AND old 
write mode 3: OR-mode, NEW=ink OR old . 
ZONE for TAB ee 
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.. 1177 
. .  DOA9I 
... 0382 
.. D6lE 
. .  BO8F 
. . AE89 
. .  12E3 
. . D6A2 
e . AE3B 
« . AE3D 
. .  D6B3 
. . AC2C 
.... B098 
. . AB43 
. . AC3O 
. . AC2E 
e .  BOBD 
. . 2C8C 
..  11AB 
. .  D9I1B 
..  BOCL 
..  F18D 
. .. DITF 
..  AC24 
.. 1376 
..  0C7D 
... 0077 
.. 0072 
«. AE79 


389 index 


ASCII 
"NUL 
‘SoH (A) 
"STX (”B) 


TOKEN 
[ABS] 
[ATN] 
[AUTO] 
[CINT) 
[CLEAR] 
[cos] 
[CREAL] 
[EXP] 
[FIX] 
[FRE] 
[INKEY] 
[INP] 
[INT] 
[JoY] 
[LEN] 
[LOG] 
[LOG10] 
[LOWERS$] 
[PEEK] 
[REMAIN] 
[SGN] 
[SIN] 
[SPACE$] 
[SQ] 
[SQR] 
[STR$) 
[TAN] 
[UNT) 
[UPPER$] 


[VAL] 


Disassembler tables 


280 CODE 
nop 

ld be, ***%* 
ld (be),a 
inc bc 

inc b 

dec b 

ld b,** 
rlca 

ex af,af’ 
add hl,bc 
ld a,(bc) 
dec bc 

ine c 

dec c 

ld c,** 
rrca 

djnz ** 

ld de,t#** 
ld (de),a 
inc de 

inc d 

dec d 

ld d,** 
rla 

jr ** 

add hl,de 
ld a,(de) 
dec de 

inc e 

dec e 

ld e,** 
rra 

jr nz,** 
ld hl,*r*%* 
ld (****),hl 
inc hl 

inc h 

dec h 

ld h,** 
daa 

jr z,** 
add hl,hl 
ld hl,(****) 
dec hl 

inc 1 

dec 1 

ld 1,** 
cpl 

jr nc,** 
ld sp, ***% 
ld (**k*),a 
inc sp 

inc (hl) 
dec (hl) 
ld (h1l),%** 
scf 

jr c,** 
add hl,sp 
ld a,(**%**) 
dec sp 

inc a 

dec a 

ld a,** 
ccf 


CB XX ED XX HEX 
rlc b 00 
rle c ol 
rlc d 02 
rlc e 03 
rlc h 04 
rlc 1 05 
rlc (hl) 06 
rlc a 07 
rrce b 08 
rre c 09 
rre d 0A 
rrc e OB 
rrch 0Cc 
rre 1 0D 
rrc (hl) 0E 
rrca OF 
rlb 10 
rlc 11 
rld 12 
rle 13 
rlh 14 
rı1ı 15 
21: (hl) 16 
rla 17 
rr b 18 
rc 19 
rrd 1A 
rre 1B 
rr h IC 
rr | 1D 
rr (hl) lE 
rra IF 
sla b 20 
sla c 21 
sla d 22 
sla e 23 
sla h 24 
sla 1 25 
sla (hl) 26 
sla a 27 
sra b 28 
sra c 29 
sra d 2A 
sra e 2B 
sra h 2C 
sra 1 2D 
sra (hl) 2E 
sra a 2F 

30 

31 

32 

33 

34 

35 

36 

37 
srl b 38 
srl c 39 
srl d 3A 
srl e 3B 
srlh 3c 
srl1l 3D 
srl (hl) 3E 
srla 3F 
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HEX DEC ASCII TOKEN z80 CODE CB XX ED XX HEX 


40 64 @ [EOF] ld b,b bit 0,b in b,(c) 40 
4l 65 A [ERR] ld b,c bit 0,c out (c),b 4 
42 66 °B [HIMEM] ld b,d bit 0,d sbc hl,bc 42 
43 67 °C [INKEY$] ld b,e bit 0,e ld (***%),be 43 
4 68 °’D [RND] ld b,h bit 0,h neg 44 
45 69 °’E [TIME] ld b,1 bit 0,1 retn 45 
46 70 °F [XPOS] ld b,(hl) bit 0,(hl) im 0 46 
47 71 [YPoS] ld b,a bit 0,a ld i,a 47 
4 72 °H ld c,b bit 1,b in c,(c) 48 
49 713:-27 ld c,c bit l,c out (c),c 49 
4A 74 °J ld c,d bit 1,d adc hl,bc 4A 
4B 75. °& ld c,e bit l,e ld be, (***k%) 4B 
4c 76 °’L ld c,h bit 1,h 4c 
4D 77 MM ld c,1 bit 1,1 reti 4D 
4E 78 °’N ld c,(hl) bit 1,(hl) 4E 
4F 9 0 ld c,a bit l,a ld r,a 4F 
50.80 ’p ld d,b bit 2,b in d,(c) 50 
5l 831 °Q ld d,c bit 2,c out (c),d 51 
52 82 °R ld d,d bit 2,d sbc hl,de 52 
53 83 5 ld d,e bit 2,e ld (***k%),de 53 
54 84 °T ld d,h bit 2,h 54 
5 85 “u ld d,! bit 2,1 55 
56 86 ’V ld d,(hl) bit 2,(hl) im 1 56 
577897 m ld d,a bit 2,a Ida, 57 
58 88 °’xX ld e,b bit 2,b in e,(c) 58 
59 89 °’y ld e,c bit 3,c out (c),e 59 
5A 90 °z ld e,d bit 3,d adc hl,de 5A 
BB 9 ld e,e bit 3,e ld de,(****) 5B 
5C 92 °’\ ld e,h bit 3,h 5C 
5D 93 ° ld e,l1 bit 3,1 5D 
5E 94 °* ld e,(hl) bit 3,(hl) im 2 5E 
5F 95 °’_ ld e,a bit 3,a ld a,r 5F 
60 96 ”* ld h,b bit 4,b in h,(c) 60 
61 97 ’a ld h,c bit 4,c out (c),h 61 
62 98 °b ld h,d bit 4,d sbc hl,hl 62 
63 99 °c ld h,e bit 4,e ld (**k*),h1l 63 
64 100 ’d ld h,h bit 4,h 64 
65 101 ’e ld h,1 bit 4,1 65 
66 102 ’£ ld h,(hl) bit 4,(hl) 66 
67 103 ’g ld h,a bit 4,a rrd 67 
68 104 °h ld 1,b bit 5,b in 1,(c) 68 
69 105 ’i ld 1,c bit 5,c out (c),1 69 
6A 106 ° ld 1,d bit 5,d adc hl,hl 6A 
6B 107 ’k ld 1,e bit 5,e ld h1,(***%*%) 6B 
6c 108 1 ld 1,h bit 5,h 6C 
6D 109 ’m ld 1,1 bit 5,1 6D 
6E 110 °’n ld 1,(hl) bit 5,(hl) 6E 
6F 111 °o ld 1,a bit 5,a rld 6F 
70 112 °p ld (h!),b bit 6,b 70 
71 113 ’q [BORDER]) ld (hl),c bit 6,c 7ı 
72 114 °r [DEC$] ld (hl),d bit 6,d sbc hl,sp 72 
73 115 °s [HEX$] ld (hl),e bit 6,e ld (***k%*),sp 73 
74 116 °t [INSTR] ld (hl),h bit 6,h 74 
75 117 u [LEFT$] ld (hl),1 bit 6,1 75 
76 118 ’v [MAX] halt bit 6,(hl) 76 
77 19 mw [MIN] ld (hl),a bit 6,a 77 
78 120 ’x [POS] ld a,b bit 7,b in a,(c) 78 
79 121 ’y [RIGHT$] ld a,c bit 7,c out (c),a 79 
7A 122 ’z [ROUND] ld a,d bit 7,d adc hl,sp 7A 
73: 123 [STRING$] ld a,e bit 7,e ld sp, (***k*) 7B 
7cC 124 | [TEST] ld a,h bit 7,h 7C 
78° 125: 7% [TESTR] ld a,l bit 7,1 7D 
7E 126 °° ld a,(hl) bit 7,(hl) 7E 
7F 127 °DEL [VPOS] ld a,a bit 7,a 7F 
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HEX DEC ASCII TOKEN Zz80 CODE CB XX ED XX HEX 
80 128 ’FO 0 [AFTER] add a,b res 0,b 80 
8l 129 °F 1 [AUTO] add a,c res 0,c 8 
8 130 ’F2 2 [BORDER] add a,d res 0,d 82 
83 131 °73 3 [CALL] add a,e res 0,e 83 
84 132 ’F4 4 [CAT] add a,h res 0,h 84 
85 133 °’F5 5 [CHAIN] add a,l res 0,1 85 
86 134 ’F6 6 [CLEAR] add a,(hl) res 0,(hl) 86 
87 135 °’F7 7 [CLG] add a,a res 0,a 87 
88 136 ’F8 8 [CLOSEIN] adc a,b res 1,b 88 
89 137 ’r9 9 [CLOSEOUT] adc a,c res l,c 89 
8A 138 ’FlO. [CLS] adc a,d res l,d 8A 
8B 139 °FIl <CR> [CoNT) adc a,e res l,e 8B 
8C 140 °FL12 RUN'"<CR> [DATA] adc a,h res l,h 8C 
8D 141 ’F13 [DEF] adc a,l res 1,1 8D 
8E 142 ’Fl4 [DEFINT) adc a,(hl) res l,(hl) 8E 
8F 143 ’F15 [DEFREAL) adc a,a res l,a 8F 
90 144 ’F16 [DEFSTR] sub b res 2,b 90 
91 145 ’FI7 [DEG] sub c res 2,c 91 
92 146 ’F18 [DELETE] sub d res 2,d 92 
93 147 °’F19 [DIM] sub e res 2,e 93 
94 148 °’F2O [DRAW] sub h res 2,h 94 
95 149 ’F2L [DRAWR] sub 1 res 2,1 95 
96 150 ’F22 (EDIT) sub (hl) res 2,(hl) 96 
97 151 °F23 [ELSE] sub a res 2,a 97 
98 152 ’F24 [END] sbce a,b res 3,b 98 
99 153 °F25 [ENT] sbc a,c res 3,c 99 
9A 154 °F26 [ENV] sbce a,d res 3,d 9A 
9B 155 °F27 [ERASE] sbc a,e res 3,e 9B 
9c 156 ’F28 [ERROR] sbc a,h res 3,h Ic 
9D 157 °’F29 [EVERY] sbc a,l res 3,1 9D 
9E 158 °’F30 [FOR] sbc a,(hl) res 3,(hl) IE 
9F 159 ’F3l [GOSUB] sbc a,a res 3,a 9F 
AO 160 [GOTO] and b res 4,b ldi AO 
Al 161 [IF] and c res 4,c cpi Al 
A2 162 [INK] and d res 4,d ini A2 
A3 163 POUND [INPUT) and e res 4,e outi A3 
A4 164 [KEY] and h res 4,h Au 
A5S 165 [LET] and 1 res 4,1 A5 
A6 166 [LINE] and (hl) res 4,(hl) A6 
A7 167 [LIST] and a res 4,a A7 
AB 168 [LOAD] xor b res 5,b ldd AB 
AI 169 [LOCATE] xor c res 5,c cpd A9 
AA 170 [MEMORY] xor d res 5,d ind AA 
AB 171 [MERGE] xor e res 5,e outd AB 
AC 172 [MID$] xor h res 5,h AC 
AD 173 [MODE] xor 1 res 5,1 AD 
AE 174 [MOVE] xor (hl) res 5,(hl) AE 
AF 175 [MOVER]) xor a res 5,a AF 
BO 176 [NEXT] or b res 6,b ldir BO 
Bl 177 [NEW] orc res 6,c cpir Bl 
B2 178 [ON] or d res 6,d inir B2 
B3 179 [ON BREAK] or e res 6,e otir B3 
B4 180 [ON ERROR] or h res 6,h B4 
B5S 181 [ON SQ] or 1 res 6,1 B5 
B6 182 [OPENIN] or (hl) res 6,(hl) B6 
B7 183 [OPENOUT] or a res 6,a B7 
B8 184 [ORIGIN] cp b res 7,b lddr B8 
BI 185 [OUT] cp c res 7,c cpdr B9 
BA 186 [PAPER] cp d res 7,d indr BA 
BB 187 [PEN] cp e res 7,e otdr BB 
BC 188 [PLOT] cph res 7,h BC 
BD 189 [PLOTR]) cp 1 res 7,1 BD 
BE 190 [POKE] cp (hl) res 7,(hl) BE 
BF 191 [PRINT] cp a res 7,a BF 
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HEX DEC 
co 192 
cl 193 
c2 194 
c3 195 
c4 196 
c5 197 
c6 198 
c7 199 


ASCII 


’COPY KEY 
“INS (”TAB) 


"BREAK mark 


*CURSOR 
°CURSOR 
“CURSOR 
"CURSOR 
*COPYCU 
"COPYCU 
°COPYCU 
*COPYCU 
"CURSOR 
"CURSOR 
*CURSOR 
’CURSOR 


up 
down 
left 
right 
up 
down 
left 
right 
SoTXT 
EoTXT 
SoLN 
EoLN 


"BREAK KEY 
"CAPS LOCK 
“SHIFT LOCK 


"IGNORE 


TOKEN z80 CODE CB XX 
[REM”] ret nz set 0,b 
[RAD] pop bc set 0,c 
[RANDOMIZE]) jp nz, **** set 0,d 
[READ] jp **%** set 0,e 
[RELEASE] call nz,**%* set 0,h 
[REM] push bc set 0,1 
[RENUM] add a,** set 0,(hl) 
[RESTORE] rst 0 set 0,a 
[RESUME] ret z set 1,b 
[RETURN] ret set l,c 
[RUN] jp z,*+** set l,d 
[SAVE] set l,e 
[SOUND] call >7,*%*%* set 1l,h 
[SPEED] call *A%%k set 1,1 
[STOP] adc a,** set 1,(hl) 
[SYMBOL] rst 1,*%*% set l,a 
[TAG] ret nc set 2,b 
[TAGOFF] pop de set 2,c 
[TROFF] jp nce,**k** set 2,d 
[TRON] out **,a set 2,e 
[WAIT] call nc,**%%* get 2,h 
[WEND) push de set 2,1 
[WHILE) sub ** set 2,(hl) 
[WIDTH] rst 2,%k%*% set 2,a 
[WINDOW] ret c set 3,b 
[WRITE] exx set 3,c 
[ZONE] jp c,*kr% set 3,d 
(DI) in a,** set 3,e 
[EL] call c,**%*%* set 3,h 
set 3,1 
sbce a,** set 3,(hl) 
rst 3,%kX% set 3,a 
ret po set 4,b 
pop hl set 4,c 
jp po,*kk%* set 4,d 
[ERL] ex (sp),hl set 4,e 
[FN] call po,**%** set 4,h 
[SPC] push hl set 4,1 
[STEP) and ** set 4,(hl) 
[SWAP] rst 4 set 4,a 
ret pe set 5,b 
jp (hl) set 5,c 
[TAB] jp pe,**k* set 5,d 
[THEN] ex de,hl set 5,e 
[TO] call pe,***%* set 5,h 
[USING] set 5,1 
[>] xor *%* set 5,(hl) 
[=] rst 5,*rKkr%k set 5,a 
[>=] ret p set 6,b 
[<) pop af set 6,c 
[<>] jp p,*++* set 6,d 
[<=] di set 6,e 
(+) call p,***%* set 6,h 
[-] push af set 6,1 
[*) or ** set 6,(hl) 
[/] rst 6 set 6,a 
[7] ret m set 7,b 
[N ld sp,hl set 7,c 
[AND] jp m,*k** set 7,d 
[MOD] ei set 7,e 
[OR] call m,**** set 7,h 
[XOR] set 7,1 
[NOT] cp ** set 7,(hl) 
[TOKEN SWITCH] rst 7 set 7,a 
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cpcw 


Kleines Fachwörterbuch 

abandon völlig aufgeben, verlassen 

adjust anpassen, angleichen 

allocate zuteilen, den Platz bestimmen 

arm aufrüsten, wirksam machen 

background Speicherbereich für externe Geräte 
base Grundlage, Basis, Ausgangsadresse 

bottom Grund, Untergrenze 

bound, boundary Grenze, Begrenzung 
brandname Firmenname 

chain Kette, durch Verweise verbundene Blöcke 
column Spalte, horizontale Cursorposition 

control code Steuerzeichen 

count Zähler 

CRTC, Cathode Ray Tube Controller Bildschirmsteuerung 
current hier: der laufende, der momentane 
default Ersatzwert für fehlenden Parameter 
descriptor Beschreiber, z.B. String Länge, Adresse 
destination Ziel, Bestimmung 

device Gerät, hier oft gleichbedeutend mit channel 
disable unfähig machen, außerstand setzen 
disarm entwaffnen, unwirksam machen 

dormant schlafend, nicht bereite Task 

dot Einzelpunkt (einer Matrix) auf dem Bildschirm 
enable in den Stand setzen, befähigen 

entry Einsprungadresse, Eintrag in einer Tabelle 
envelope Hüllkurve, Umhüllung, Briefumschlag 
EoLN, end of line gehe zum Ende der Zeile 
EoTXT, end of text gehe zum Textende 
establish einrichten, gründen 

evaluate auswerten (Formel, Ausdruck) 

event Ereignis, hier vergleichbar mit task 
expansion Erweiterung, Ausdehnung (eines Zeichens) 
external außerhalb, meist Zusatzgerät 

fail schief gehen, erfolglos bleiben 

flag Marke, Zeichen, kennzeichnet einen Zustand 
flashing period Blink-Periode (einer Farbe) 

flood fluten, Bereich mit einer Farbe auffüllen 
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force zwingen (Cursor ins Fenster) 

foreground Speicherbereich für Anwenderprogramm 
garbage collect Müllabfuhr’, Strings neu ordnen 
indirection Umleitung (ermöglicht Abfrage) 
initial value Ausgangswert 

initialise beginnen, einführen 

insert einfügen (dabei den Rest verschieben) 
interrupt disable Unterbrechungen verhindern 
interrupt Unterbrechung des normalen Programmlaufs 
invalid unvollständig, ungültig 

kernel Kern, Grund-Funktionen des Betriebssystems 
legal der Vorschrift entsprechend, zulässig 

limits Grenzwerte (z.B. max. Zeilenanzahl) 

link Verweis auf einen (nächsten) Block 

location (Speicher-)Stelle 

log eintragen (Logbuch), hier: Tabelle 

map (Land-)Karte, Plan, meist Bit-Tabelle 

match zueinander passen, übereinstimmen 
message Nachricht, Mitteilung 

noisy geräuschvoll, (bei CAS eher sichtbar) 

occur sich ereignen, vorkommen 

offset Versatz (zu einer Ausgangsadresse, base) 
overwrite alten Text mit neuem überschreiben 
parameter Übergabewert an ein Unterprogramm 
patch Ändern (Ausbessern) einer Speicherstelle 
perform durchführen 

pixel Fachausdruck für 'dot’, Einzelpunkt 

pointer Zeiger (auf eine Speicherstelle) 

power Potenz (mathematisch) 

prepare vorbereiten auf 

present gegenwärtig, augenblicklich 

preserve bewahren, erhalten (meist Bits) 
previous vorhergehend, bisheriger 

proceede weitergehen, weitermachen 

prohibit verbieten 

PSG Programmable Sound Generator 

queue Warteschlange 

remove entfernen (des Cursors, aus einer Liste) 
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reset zurücksetzen (in Ausgangszustand, meist 0) 
row Reihe, (Zeile), vertikale Cursorposition 

RSX, Resident System Extension feste Erweiterung 
search suchen (in einer Tabelle) 

select auswählen, anwählen (ROM) 

sequence Folge, Reihenfolge 

skip überspringen, übergehen, auslassen 
soldered jumpers Lötbrücken 

SoLN, start of line gehe zum Zeilenanfang 
SoTXT, start of text gehe zum Textanfang 
source Quelle 

specify genau aufzählen, anführen, angeben 
state map Zustands-Tabelle (meist nur Bits) 
store speichern, Speicher, (Memory) 

table Tabelle, Liste 

task Routine die gleichzeitig mit anderen abläuft 
temporary vorübergehend, zeitweise 
terminated beendet, abgeschlossen, fertig 
unchanged unverändert 

undraw wegnehmen, löschen (Cursor) 

unpack eigentlich expand (char matrix) 

valid gültig, zulässig 

validate für gültig erklären, bestätigen 

VDU Video Display Unit, Bildschirm 

vector Zeiger (auf eine Speicherstelle, Liste) 
verify auf Richtigkeit überprüfen 
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Feed-Back Sheet (Rückkopplungszettel) 


Das ist mein Urteil: 
(bitte ankreuzen und/oder ausfüllen) 


(0) 


(0) 


Ich habe es bereits bedauert, das Geld für dieses Buch ausgegeben 
zu haben. Ich kann damit nichts anfangen. 


Warum müssen die Kommentare unbedingt in englisch sein? 
Ohne Wörterbuch komme ich da nicht klar. 


Ich finde dieses Buch nicht schlecht, es sollte aber mehr enthalten 
Uber... 4 a ee ee een 


Ich habe folgende Fehler entdeckt: 
Seite/Adresse: 2.222 cseeeeeeeeeeneeneeneeneeneennenn 


Es muß richtig heißen: ........::2uc2nneeeneer een 


Bitte an den Verlag S. Huslik, Postfach 101824, 8900 Augsburg |, 
einsenden. Ich freue mich, Ihr Urteil zu lesen. 


Winfried Huslik 


Weitere Mitteilungen oder Vorschläge: 


Verlag S. Huslik Absender: 
Postfach 101824 


8900 Augsburg | 


Feed-Back Sheet (Rückkopplungszettel) 


Das ist mein Urteil: 
(bitte ankreuzen und/oder ausfüllen) 


(0) 


(0) 


Ich habe es bereits bedauert, das Geld für dieses Buch ausgegeben 
zu haben. Ich kann damit nichts anfangen. 


Warum müssen die Kommentare unbedingt in englisch sein? 
Ohne Wörterbuch komme ich da nicht klar. 


Ich finde dieses Buch nicht schlecht, es sollte aber mehr enthalten 
Uber... 4 a ee ee een 


Ich habe folgende Fehler entdeckt: 
Seite/Adresse: 2.222 cseeeeeeeeeeneeneeneeneeneennenn 


Es muß richtig heißen: ........::2uc2nneeeneer een 


Bitte an den Verlag S. Huslik, Postfach 101824, 8900 Augsburg |, 
einsenden. Ich freue mich, Ihr Urteil zu lesen. 


Winfried Huslik 


Weitere Mitteilungen oder Vorschläge: 


Verlag S. Huslik Absender: 
Postfach 101824 


8900 Augsburg | 
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